The R Project SVN R

Rev

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

Rev 61153 Rev 61168
Line 42... Line 42...
42 
 
 42 
 
43 
hsv(.5,.5,.5)
 43 
hsv(.5,.5,.5)
44 
 
 44 
 
45 
## Red tones:
 45 
## Red tones:
46 
n <- 20;  y <- -sin(3*pi*((1:n)-1/2)/n)
 46 
n <- 20;  y <- -sin(3*pi*((1:n)-1/2)/n)
47 
op <- par(mar = rep(1.5,4))
 47 
op <- par(mar = rep(1.5, 4))
48 
plot(y, axes = FALSE, frame.plot = TRUE,
 48 
plot(y, axes = FALSE, frame.plot = TRUE,
49 
     xlab = "", ylab = "", pch = 21, cex = 30,
 49 
     xlab = "", ylab = "", pch = 21, cex = 30,
50 
     bg = rainbow(n, start = .85, end = .1),
 50 
     bg = rainbow(n, start = .85, end = .1),
51 
     main = "Red tones")
 51 
     main = "Red tones")
52 
par(op)
 52 
par(op)