# NOT RUN {
## Projection pursuit regression on the rock dataset.
data(rock)
ppr.out <- ppr(log(perm) ~ area + peri + shape,
data = rock, nterms = 2, max.terms = 5)
obj <- ppr_funs(ppr.out)
obj
# }
Run the code above in your browser using DataLab