▽EViews ●11/12 09:50 Email ThisBlogThis!Share to XShare to FacebookShare to PinterestEmail ThisBlogThis!Share to XShare to FacebookShare to PinterestEmail ThisBlogThis!Share to XShare to FacebookShare to PinterestEmail ThisBlogThis!Share to XShare to FacebookShare to PinterestEmail ThisBlogThis!Share to XShare to FacebookShare to PinterestEmail ThisBlogThis!Share to XShare to FacebookShare to PinterestEmail This
▽ほくそ笑む ●11/11 00:06 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))n <- 1500 p <- 300 # ﾃﾞｰﾀの生成 set.seed(314) x <- rnorm(n * p, mean = 0, sd = sqrt(1/n)) X <- matrix(
▽Posts - Tidyverse ●11/09 03:50 S7 0.2.0packageTomasz Kalinowski and Hadley WickhamS7 is a new package that simplifies object-oriented programming (OOP) in R. It combines the simplicity of S3 with the structure of S4 to create a clearer system that’s accessible to everyone. Read more ...2024/11/07WebAssembly roundup part 3: Quarto Live 0.1.1roundupGeorge StaggQuarto Live is a new Quarto extension that uses WebAssembly to
