plot.ppr {stats}  R Documentation 
Plot the ridge functions for a projection pursuit regression
(ppr
) fit.
## S3 method for class 'ppr'
plot(x, ask, type = "o", cex = 1/2,
main = quote(bquote(
"term"[.(i)]*":" ~~ hat(beta[.(i)]) == .(bet.i))),
xlab = quote(bquote(bold(alpha)[.(i)]^T * bold(x))),
ylab = "", ...)
x 
an R object of class 
ask 
the graphics parameter 
type 
the type of line (see 
cex 
plot symbol expansion factor (relative to

main, xlab, ylab 
axis annotations, see also

... 
further graphical parameters, passed to

None
A series of plots are drawn on the current graphical device, one for each term in the fit.
require(graphics)
rock1 < within(rock, { area1 < area/10000; peri1 < peri/10000 })
par(mfrow = c(3,2)) # maybe: , pty = "s"
rock.ppr < ppr(log(perm) ~ area1 + peri1 + shape,
data = rock1, nterms = 2, max.terms = 5)
plot(rock.ppr, main = "ppr(log(perm)~ ., nterms=2, max.terms=5)")
plot(update(rock.ppr, bass = 5), main = "update(..., bass = 5)")
plot(update(rock.ppr, sm.method = "gcv", gcvpen = 2),
main = "update(..., sm.method=\"gcv\", gcvpen=2)")