## ffit a dynaTree model to the Ozone data
X <- airquality[,2:4]
y <- airquality$Ozone
na <- apply(is.na(X), 1, any) | is.na(y)
out <- dynaTree(X=X[!na,], y=y[!na])
## obtain variable usage proportions
varpropuse(out)
varproptotal(out)
## gather relevance statistics which are more meaningful
out <- relevance(out)
boxplot(out$relevance)
abline(h=0, col=2, lty=2)
## obtain tree statistics
treestats(out)
## clean up
deletecloud(out)
Run the code above in your browser using DataLab