統計解析R たぶんpart3くらい (587レス)
上下前次1-新
抽出解除 レス栞
3: 2012/06/22(金)13:34:23.47 AAS
Rのスレは別の板にあったと思うけど
90(1): 2014/08/13(水)10:33:15.47 ID:oD1F8/c3(1/2) AAS
代入にほとんど<-が使われていますが、
=を<-と同じとして使ってよいのでしょうか?
287: 2019/07/06(土)00:13:08.47 ID:EHwJE8LY(3/4) AAS
``` {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);
省8
302: 2019/09/21(土)00:43:04.47 ID:MLPk5U2Q(1/4) AAS
## Zigzag on Rails
[ブログ](外部リンク:blog.mirkoklukas.comの内容を
実装してみる。
``` {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]);
省16
354: 2021/04/04(日)21:35:04.47 ID:wb8oJNIe(1) AAS
色々とご親切にありがとうございます
自分のつたいないコードよりスッキリ問題解決しました
m(_ _)m
583: 01/21(火)21:45:31.47 ID:Q1AkQbXB(1) AAS
Rには関係ないが、資料として置いておく。
* [PCAST Reports (2020-2025)](外部リンク:www.erichorvitz.com
* [Documents & Reports | PCAST | The White House](外部リンク:web.archive.org
中身は全く読んでいないが、次の討論会を見る限り、政治色はないと思う。
* [PCAST: Discussion of Artificial Intelligence (AI) Enabling Science and AI Impacts on Society - YouTube](動画リンク[YouTube]
上下前次1-新書関写板覧索設栞歴
スレ情報 赤レス抽出 画像レス抽出 歴の未読スレ AAサムネイル
ぬこの手 ぬこTOP 1.099s*