こちらから 参考はこちら ng<-9 ns<-1000 dataset<-matrix(0,ns,ng) averages<-runif(ng) variances<-runif(ng) for(i in 1:ng){ dataset[,i]<-rnorm(ns,mean=averages[i],sd=sqrt(variances[i])) } summary(dataset) rownames<-c() for(i in 1:ng){ rowname…