The R Project SVN R

Rev

Rev 61160 | Rev 70615 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 61160 Rev 61168
Line 45... Line 45...
45 
\examples{
 45 
\examples{
46 
require(graphics)
 46 
require(graphics)
47 
 
 47 
 
48 
with(rock, {
 48 
with(rock, {
49 
area1 <- area/10000; peri1 <- peri/10000
 49 
area1 <- area/10000; peri1 <- peri/10000
50 
par(mfrow = c(3,2))# maybe: , pty = "s")
 50 
par(mfrow = c(3,2)) # maybe: , pty = "s")
51 
rock.ppr <- ppr(log(perm) ~ area1 + peri1 + shape,
 51 
rock.ppr <- ppr(log(perm) ~ area1 + peri1 + shape,
52 
                data = rock, nterms = 2, max.terms = 5)
 52 
                data = rock, nterms = 2, max.terms = 5)
53 
plot(rock.ppr, main = "ppr(log(perm)~ ., nterms=2, max.terms=5)")
 53 
plot(rock.ppr, main = "ppr(log(perm)~ ., nterms=2, max.terms=5)")
54 
plot(update(rock.ppr, bass = 5), main = "update(..., bass = 5)")
 54 
plot(update(rock.ppr, bass = 5), main = "update(..., bass = 5)")
55 
plot(update(rock.ppr, sm.method = "gcv", gcvpen = 2),
 55 
plot(update(rock.ppr, sm.method = "gcv", gcvpen = 2),