Online R Compiler

set.seed(19991) x1<-sample(c(NA,rnorm(5,2,1)),20,replace=TRUE) x2<-sample(c(NA,rnorm(5,40,0.87)),20,replace=TRUE) x3<-sample(c(NA,rnorm(5,1,0.015)),20,replace=TRUE) x4<-sample(c(NA,rnorm(10,5,1.27)),20,replace=TRUE) x5<-sample(c(NA,rnorm(8,1,0.20)),20,replace=TRUE) df1<-data.frame(x1,x2,x3,x4,x5) df1