data(iris)
iris.vsurf <- VSURF(x=iris[,1:4], y=iris[,5])
plot(iris.vsurf)
plot(iris.vsurf, var.names=TRUE)
# A more interesting example with toys data (see \code{\link{toys}})
# (a few minutes to execute) and intermediate functions
data(toys)
toys.vsurf <- VSURF(x=toys$x, y=toys$y)
plot(toys.vsurf)
plot(toys.vsurf, nvar.imp=50, nvar.sd=50)
toys.thres <- VSURF.thres(x=toys$x, y=toys$y)
plot(toys.thres)
par(mfrow=c(1,1))
plot(toys.thres, nvar.imp=70, imp.sd=FALSE)
toys.interp <- VSURF.interp(x=toys$x, y=toys$y, vars=toys.thres$varselect.thres)
plot(toys.interp, var.names=TRUE)
toys.pred <- VSURF.pred(x=toys$x, y=toys$y, err.interp=toys.interp$err.interp,
varselect.interp=toys.interp$varselect.interp)
plot(toys.pred, var.names=TRUE)
Run the code above in your browser using DataLab