require(yaImpute)
data(iris)
set.seed(12345)
x <- iris[,1:2] # Sepal.Length Sepal.Width
y <- iris[,3:4] # Petal.Length Petal.Width
vsel <- varSelection(x=x,y=y,nboot=5,useParallel=FALSE)
bestVars(vsel)
Run the code above in your browser using DataLab