統計解析R たぶんpart3くらい (587レス)
統計解析R たぶんpart3くらい http://mevius.5ch.net/test/read.cgi/tech/1340339592/
上
下
前次
1-
新
通常表示
512バイト分割
レス栞
抽出解除
レス栞
リロード規制
です。10分ほどで解除するので、
他のブラウザ
へ避難してください。
3: デフォルトの名無しさん [sage] 2012/06/22(金) 13:34:23.47 Rのスレは別の板にあったと思うけど http://mevius.5ch.net/test/read.cgi/tech/1340339592/3
90: デフォルトの名無しさん [sage] 2014/08/13(水) 10:33:15.47 ID:oD1F8/c3 代入にほとんど<-が使われていますが、 =を<-と同じとして使ってよいのでしょうか? http://mevius.5ch.net/test/read.cgi/tech/1340339592/90
287: デフォルトの名無しさん [] 2019/07/06(土) 00:13:08.47 ID:EHwJE8LY ``` {r, cache = F} with (c (big_data, nx = 3, nt = 1e+3), { normalize = function (x) x / sqrt (sum (x * x)); testthat::test_that ('lens', purrr::map (1 : nt, function (.) { a = pracma::randortho (nx) %>% make_lens (); s = rnorm (nx) %>% normalize () %>% make_state (); x = rnorm (nx) %>% normalize (); y = rnorm (nx) %>% normalize (); testthat::expect_equal (s %>% set (a, s %>% get (a)), s); testthat::expect_equal (s %>% set (a, x) %>% get (a), x); testthat::expect_equal (s %>% set (a, x) %>% set (a, y), s %>% set (a, y)); })); }); ``` [setup](#setup)で`why`を`F`にするとテストが通らない どこにバグがあるかわからないが 遅延評価のチェインで露呈したバグになっている おしまい http://mevius.5ch.net/test/read.cgi/tech/1340339592/287
302: デフォルトの名無しさん [] 2019/09/21(土) 00:43:04.47 ID:MLPk5U2Q ## Zigzag on Rails [ブログ](http://blog.mirkoklukas.com/finite-sample-expressivity/)の内容を 実装してみる。 ``` {r} zigzag_on_rails = function (xi, yi) { js = order (xi); xi = xi [js]; yi = yi [js]; y0 = yi [1]; ai = diff (c (0, diff (yi) / diff (xi), 0)); f = function (x) { purrr::reduce (.init = y0, .x = seq_along (xi), .f = function (out, j) { out + ai [j] * prelu (x - xi [j]); }); }; big_data $ add (big_data, xi = xi, yi = yi, y0 = y0, ai = ai, zigzag = f); }; dog_data = with (dog_data, { yi = c (2, 0, - 1, 1); rails = zigzag_on_rails (xi, yi); x = seq (min (xi) - 1, max (xi) + 1, len = 1e+3); plot (x, rails $ zigzag (x), type = 'l'); points (xi, yi); add (dog_data, yi = yi); }); ``` 観測値からの外延の仕方がブログとは異なると思うが、こんな感じじゃないかと 思う。[区分線形関数](https://en.wikipedia.org/wiki/Piecewise_linear_function) を式にすると、自然とReLUの和が現れる。折れ線の変化`ai`を正と負の成分に 分けると、それぞれが凸 on Railsに乗る。 続く http://mevius.5ch.net/test/read.cgi/tech/1340339592/302
354: デフォルトの名無しさん [sage] 2021/04/04(日) 21:35:04.47 ID:wb8oJNIe 色々とご親切にありがとうございます 自分のつたいないコードよりスッキリ問題解決しました m(_ _)m http://mevius.5ch.net/test/read.cgi/tech/1340339592/354
583: デフォルトの名無しさん [] 2025/01/21(火) 21:45:31.47 ID:Q1AkQbXB Rには関係ないが、資料として置いておく。 * [PCAST Reports (2020-2025)](https://www.erichorvitz.com/PCAST_reports_2020-2025.htm) * [Documents & Reports | PCAST | The White House](https://web.archive.org/web/20250116064747/https://www.whitehouse.gov/pcast/documents-reports/) 中身は全く読んでいないが、次の討論会を見る限り、政治色はないと思う。 * [PCAST: Discussion of Artificial Intelligence (AI) Enabling Science and AI Impacts on Society - YouTube](https://www.youtube.com/watch?v=gZb7Yr4C8po) http://mevius.5ch.net/test/read.cgi/tech/1340339592/583
上
下
前次
1-
新
書
関
写
板
覧
索
設
栞
歴
スレ情報
赤レス抽出
画像レス抽出
歴の未読スレ
AAサムネイル
Google検索
Wikipedia
ぬこの手
ぬこTOP
0.020s