data(iris)
iris.thres <- VSURF.thres(x=iris[,1:4], y=iris[,5], ntree=100, nfor.thres=20)
iris.thres.tuned <- tune(x=iris.thres, nmin=10)
iris.thres.tuned
iris.interp <- VSURF.interp(x=iris[,1:4], y=iris[,5], vars=iris.thres$varselect.thres,
nfor.interp=10)
iris.interp.tuned <- tune(x=iris.interp, nsd=10)
iris.interp.tuned
Run the code above in your browser using DataLab