The R Project SVN R

Rev

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

Rev 59039 Rev 61153
Line 26... Line 26...
26 
\examples{
 26 
\examples{
27 
require(graphics)
 27 
require(graphics)
28 
 
 28 
 
29 
n2mfrow(8) # 3 x 3
 29 
n2mfrow(8) # 3 x 3
30 
 
 30 
 
31 
n <- 5 ; x <- seq(-2,2, len=51)
 31 
n <- 5 ; x <- seq(-2, 2, len = 51)
32 
## suppose now that 'n' is not known {inside function}
 32 
## suppose now that 'n' is not known {inside function}
33 
op <- par(mfrow = n2mfrow(n))
 33 
op <- par(mfrow = n2mfrow(n))
34 
for (j in 1:n)
 34 
for (j in 1:n)
35 
   plot(x, x^j, main = substitute(x^ exp, list(exp = j)), type = "l",
 35 
   plot(x, x^j, main = substitute(x^ exp, list(exp = j)), type = "l",
36 
   col = "blue")
 36 
   col = "blue")