統計解析R たぶんpart3くらい (587レス)
上下前次1-新
抽出解除 レス栞
228: 2018/08/19(日)22:19:39.16 ID:XMFPI6Qk(1) AAS
>>218
画像リンク[jpg]:blogimg.goo.ne.jp
299: 2019/09/13(金)20:17:51.16 ID:wTJZs2gr(2/4) AAS
## Convex on Rails
多分、[村人の定理](外部リンク:en.wikipedia.org
同値な関数達
``` {r}
ebdf_0 = function (xi) {
n = length (xi); qi = cumsum (sort (xi));
function (x) { purrr::reduce (.init = 0, .x = 1 : n, .f = function (out, j) {
pmax (out, j * x - qi [j]); }) / n; }; }; ebdf_1 = function (xi) {
n = length (xi); function (x) {
purrr::reduce (.init = 0, .x = xi, .f = function (out, xi) {
省18
305: 2019/09/21(土)00:50:33.16 ID:MLPk5U2Q(4/4) AAS
と思ったけどバグを見つけた
誤:
equal (rails $ zigzag (xi), rails $ convex (xi));
equal (rails $ zigzag (xi), rails $ resnet (xi));
正:
equal (rails $ zigzag (x), rails $ convex (x));
equal (rails $ zigzag (x), rails $ resnet (x));
433(1): 2022/03/13(日)16:14:58.16 ID:yMboFGZP(1/3) AAS
>>432
1列目がすべて同じ値でデータを結合させるキーとして使う必要がなければ、こんな感じ。
最後に1列目をバインドかジョインさせれば、概ね目的が達成できるのではないかと。
require(tidyverse)
# サンプルデータの作成
for (i in 1:10) {
data.frame(
a = seq(from = 1, to = 100),
b = rnorm(100)
) %>%
省6
439: 2022/03/17(木)20:03:45.16 ID:gf49ge7R(1/2) AAS
>>438
先にディレクトリ(フォルダ)作らないとだめよ。
550: 2023/09/02(土)10:50:19.16 ID:aOHtbbKy(1) AAS
隙あらばどうでもいい自分語り
上下前次1-新書関写板覧索設栞歴
スレ情報 赤レス抽出 画像レス抽出 歴の未読スレ AAサムネイル
ぬこの手 ぬこTOP 0.028s