library(bindata)
rmvbin(10, bincorr=cbind(c(1,0.5),c(0.5,1)), margprob=c(0.5,0.5))
[,1] [,2]
[1,] 1 1
[2,] 0 0
[3,] 0 1
[4,] 1 0
[5,] 0 0
[6,] 1 1
[7,] 0 0
[8,] 0 1
[9,] 1 1
[10,] 0 1
x12<-rmvbin(10, bincorr=cbind(c(1,0.5),c(0.5,1)), margprob=c(0.5,0.5))
> x1<-x12[,1]
> x2<-x12[,2]
cor(x1,x2)
[1] 0.2182179
服从正态分布的随机数
rnorm(n,mean=0,sd=1)
rnorm(10,mean=1,sd=4)
[1] -10.4146507 3.8098774 4.9735023 0.1911083 -2.5737850 -1.0986859 1.5545849 0.5935415 0.9246535
[10] 2.0676123
服从均匀分布的随机数
runif(n, min = 0, max = 1)
runif(10)
[1] 0.9270751 0.1760249 0.6509612 0.2049199 0.5042673 0.9479421 0.3794903 0.2456060 0.7168733 0.4874575