▽ほくそ笑む
●11/09 21:24
n <- 1300 p <- 300 # ﾃﾞｰﾀの生成 set.seed(314) x <- rnorm(n * p, mean = 0, sd = sqrt(1/n)) X <- matrix(x, nrow = n, ncol = p) beta <- matrix(rep(c(10, -10, 0), each = p/3)) prob <- plogis(X %*% beta) y <- rbinom(n, 1, prob) # ﾛｼﾞｽﾃｨｯｸ回帰ﾓﾃﾞﾙの適用 fit <- glm(y ~ X, family = binomial, control = list(maxit = 50))

▽内田樹の研究室
●11/08 23:01
内田樹選集今日はこれから病院ですい臓がんの切除手術の日程打ち合わせである｡手術が無事に終わったとしても､もう74歳であるから､相...2024-11-08 vendredi韓国の出版社企画で｢無知の楽しさ｣という本が出た｡韓国の編集者や訳者の朴東燮先生からの質問に私が答えて一冊の本になったの...

▽今日も脳天気
●11/07 08:22
10 | 2024/11 | 12- - - - - 1 23 4 5 6 7 8 910 11 12 13 14 15 1617 18 19 20 21 22 2324 25 26 27 28 29 30

▽PhyCom :: A Phylogenetics Community
●11/05 14:48
このﾄﾞﾒｲﾝを購入する｡2024 著作権. 不許複製

▽一人と猫一匹 in USA
●11/03 23:02
2024-11