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