powered by
RPModel(Model.No, n, p, Pi = 1/2)
n
p
Data <- RPModel(Model.No = 1, 100, 50, Pi = 1/2) table(Data$y) colMeans(Data$x[Data$y==1,]) colMeans(Data$x[Data$y==2,])
Run the code above in your browser using DataLab