統計解析R たぶんpart3くらい (587レス)
統計解析R たぶんpart3くらい http://mevius.5ch.net/test/read.cgi/tech/1340339592/
上
下
前次
1-
新
通常表示
512バイト分割
レス栞
抽出解除
レス栞
リロード規制
です。10分ほどで解除するので、
他のブラウザ
へ避難してください。
40: デフォルトの名無しさん [sage] 2013/11/12(火) 13:22:39.61 >>39 RのことをR言語というは2重の意味で反対って、 御大が仰っていたが。 http://mevius.5ch.net/test/read.cgi/tech/1340339592/40
204: デフォルトの名無しさん [sage] 2018/03/14(水) 19:42:24.61 ID:wgcmBZf4 この記事だ ttps://lab-on.jp/article/23 http://mevius.5ch.net/test/read.cgi/tech/1340339592/204
205: デフォルトの名無しさん [sage] 2018/03/20(火) 10:02:37.61 ID:5CLL2roU その本を買ってPCで真似してます Rコマンダーのお陰で敷居は下がりました Rの壁は 出力データの読み方、意味するところの理解 質のよいデータはあるので頑張る http://mevius.5ch.net/test/read.cgi/tech/1340339592/205
313: デフォルトの名無しさん [] 2019/11/01(金) 23:50:53.61 ID:JL+xq15p [JavaScript const in R](https://colinfay.me/js-const-r/) やってみる ``` {js} $ (window).on ('load', function () { const out = new Map (); out.hello = 'world'; $ ('#const-here').html (JSON.stringify (out)); }); ``` <pre id='const-here'></pre> ``` {r} with (list (), { your_name = function (x) deparse (substitute (x)); out = new.env (); lockBinding (your_name (out), environment ()); tryCatch ({ out $ hello = 'world'; }, error = function (ex) { assign ('hello', toString (ex), env = out); }); jsonlite::toJSON (as.list (out), auto = T); }); ``` ``` {Rcpp} #include <Rcpp.h> // [[Rcpp::export]] void kossori (Rcpp::List out, Rcpp::String key, Rcpp::RObject val) { out [key] = val; } ``` ``` {r} with (list (), { your_name = function (x) deparse (substitute (x)); out = list (hello = ''); lockBinding (your_name (out), environment ()); tryCatch ({ out $ hello = 'world'; }, error = function (ex) { kossori (out, 'hello', toString (ex)); }); jsonlite::toJSON (out, auto = T); }); ``` 仕様上は、`env`に対する`$`でのセッターは、たとえ`lockBinding`が 施されていても無問題と思うが、実際は、弾くようにしている。 何か理由があるのかな? http://mevius.5ch.net/test/read.cgi/tech/1340339592/313
494: デフォルトの名無しさん [] 2023/04/26(水) 23:58:34.61 ID:GTOaZ7cP >>493 つまりサイズが8人ずつの比較では 優位差を言うには弱いと思いますか? http://mevius.5ch.net/test/read.cgi/tech/1340339592/494
505: デフォルトの名無しさん [] 2023/05/22(月) 11:53:24.61 ID:wj8Gj0ut その要件だと以下のような感じでいけると思います library(tidyverse) df <- tibble( time = rep(1:4, each = 5), id = rep(1:5, 4), a = rnorm(20), b = rnorm(20), c = rnorm(20), d = rnorm(20), e = rnorm(20) ) df |> pivot_wider(id_cols = id, names_from = time, values_from = c(a, e)) |> ggplot(aes(a_1, e_4)) + geom_point() http://mevius.5ch.net/test/read.cgi/tech/1340339592/505
メモ帳
(0/65535文字)
上
下
前次
1-
新
書
関
写
板
覧
索
設
栞
歴
スレ情報
赤レス抽出
画像レス抽出
歴の未読スレ
AAサムネイル
Google検索
Wikipedia
ぬこの手
ぬこTOP
0.033s