統計解析R たぶんpart3くらい (587ﾚｽ)
上下前次1-新
抽出解除 ﾚｽ栞

---

150: 2016/07/24(日)11:38:41.23 ID:iiJWc7Dl(1) AAS
どうやってできるんですか？

---

173: 2018/02/11(日)13:37:06.23 ID:jK1XmpcF(2/2) AAS
そりゃ当然の流れやな。

---

298: 2019/09/13(金)20:17:09.23 ID:wTJZs2gr(1/4) AAS
## Configuration over Configuration
$$
\require{TeX/extpfeil}\require{TeX/AMScd}
\newcommand{\eqtag}[1]{\tag{#1}\label{#1}}
\newcommand{\isa}[1]{\mathinner{\left[\!\left[{#1}\right]\!\right]}}
\DeclareMathOperator{\bbR}{\mathbb{R}}
\DeclareMathOperator{\ecdf}{\mathtt{ecdf}}
\DeclareMathOperator{\ebdf}{\mathtt{ebdf}}
\DeclareMathOperator{\relu}{\mathtt{relu}}
\DeclareMathOperator{\lure}{\mathtt{lure}}
省8

---

303: 2019/09/21(土)00:44:03.23 ID:MLPk5U2Q(2/4) AAS
``` {r}
convex_on_rails = function (xi, ai) {
js = order (xi); xi = xi [js]; ai = ai [js]; bi = cumsum (ai);
ci = cumsum (ai * xi); f = function (j, x) bi [j] * x - ci [j];
d_f = function (j, x) ai [j] * (x - xi [j]);
i_f = function (j, x) (x + ci [j]) / bi [j];
convex = function (x) { js = seq_along (xi);
purrr::reduce (.init = 0, .x = js, .f = function (out, j) {
pmax (out, f (j, x)); }); };
resnet = function (x) { js = rev (seq_along (xi));
省16

---

334: 2020/11/29(日)22:33:58.23 ID:yN2qz+NE(1) AAS
良さそだね
ただ、ライブラリ名は検索する時につらいかも
外部ﾘﾝｸ:html.duckduckgo.com collapse

---

383: 2021/05/29(土)00:00:07.23 ID:Rm9o1hL0(1) AAS
これでもできたけどやはりめんどくさい
かなり見やすくはなった
cars |> head() |> lm(formula = dist ~ speed)

---

489: 2023/03/31(金)01:01:10.23 ID:3FvfgxM7(1) AAS
正直、書き方を思い出すためだけに、話題にかこつけて、わざと異なる
プログラミング言語で書くこともある。しかし、今回は純粋に、処理の道筋を
単刀直入な形で表せるプログラミング言語を選択した。

[線形回帰](外部ﾘﾝｸ:en.wikipedia.orgを例にとる。
Rで線形回帰はとても書きやすい。しかし、線型回帰をRのイディオムとして
覚えるよりも、線形代数として覚えた方が長い目で見た時に利益になると思う。
同じように、等価ジョインは
[プルバック](外部ﾘﾝｸ:en.wikipedia.org
に対応する。等価ジョインを、Rのイディオムとして覚えるよりも、
単純な`for`ループの形で覚えた方が長い目で見た時に利益になると思う。
省1

---

561: 2023/12/18(月)23:51:29.23 ID:t5S7JJTy(1) AAS
あなたは地球上で何日過ごしてますか？
という問いに答えるRのスクリプト

干支と誕生日（月日）から今日が生まれて何日めか計算

eto=("ひつじ")
tag="10-17"
Eto=c("子(ね＝ねずみ)","丑(うし)","寅(とら)","卯(う＝うさぎ)","辰(たつ＝龍(りゅう))","巳(み＝へび)","午(うま)","未(ひつじ)","申(さる)","酉(とり＝にわとり)","戌(いぬ)","亥(い＝いのしし)")
# Eto
i=grep(eto,Eto)
this_year=as.numeric(strsplit(as.character(Sys.Date()),'-')[[1]][1])
j=this_year%%12 - 3
省7

---

上下前次1-新書関写板覧索設栞歴

---

ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ

---

ぬこの手 ぬこTOP 1.041s*