日本語総説 m <- 100 u <- 50 v <- m-u n1 <- 100 n2 <- 100 my.means <- function(m,u,M,S){ m1 <- rep(0,m) m2 <- c(rep(0,m-u),rnorm(u,M,S)) return(cbind(m1,m2)) } M <- 0.1 S <- 1 ms <- my.means(m,u,M,S) my.X <- function(m,u,M,S,n1,n2){ ms <- m…