# \donttest{
y1<-rnorm(100,mean=100,sd=50)
y2<- rnorm(100,mean=100,sd=50)
y3<- rnorm(100,mean=100,sd=50)
y4<-rnorm(100,mean=100,sd=50)
y<-rnorm(100,mean=100,sd=50)
data<-cbind(y,y1,y2,y3,y4)
OptiSemble<-WeightedEnsemble(df=data)
# }
Run the code above in your browser using DataLab