The R Project SVN R

Rev

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

Rev 61433 Rev 62641
Line 727... Line 727...
727 
   stopifnot((n <- length(ltys)) >= 1)
 727 
   stopifnot((n <- length(ltys)) >= 1)
728 
   op <- par(mar = rep(.5,4)); on.exit(par(op))
 728 
   op <- par(mar = rep(.5,4)); on.exit(par(op))
729 
   plot(0:1, 0:1, type = "n", axes = FALSE, ann = FALSE)
 729 
   plot(0:1, 0:1, type = "n", axes = FALSE, ann = FALSE)
730 
   y <- (n:1)/(n+1)
 730 
   y <- (n:1)/(n+1)
731 
   clty <- as.character(ltys)
 731 
   clty <- as.character(ltys)
- 
 
 732 
   mytext <- function(x, y, txt)
732 
   mytext <- function(x,y, txt) text(x, y, txt, adj = c(0, -.3), cex = 0.8, ...)
 733 
      text(x, y, txt, adj = c(0, -.3), cex = 0.8, ...)
733 
   abline(h = y, lty = ltys, ...); mytext(xoff, y, clty)
 734 
   abline(h = y, lty = ltys, ...); mytext(xoff, y, clty)
734 
   y <- y - 1/(3*(n+1))
 735 
   y <- y - 1/(3*(n+1))
- 
 
 736 
   abline(h = y, lty = ltys, lwd = 2, ...)
735 
   abline(h = y, lty = ltys, lwd = 2, ...); mytext(1/8+xoff, y, paste(clty," lwd = 2"))
 737 
   mytext(1/8+xoff, y, paste(clty," lwd = 2"))
736 
}
 738 
}
737 
showLty(c("solid", "dashed", "dotted", "dotdash", "longdash", "twodash"))
 739 
showLty(c("solid", "dashed", "dotted", "dotdash", "longdash", "twodash"))
738 
par(new = TRUE)  # the same:
 740 
par(new = TRUE)  # the same:
739 
showLty(c("solid", "44", "13", "1343", "73", "2262"), xoff = .2, col = 2)
 741 
showLty(c("solid", "44", "13", "1343", "73", "2262"), xoff = .2, col = 2)
740 
showLty(c("11", "22", "33", "44",   "12", "13", "14",   "21", "31"))
 742 
showLty(c("11", "22", "33", "44",   "12", "13", "14",   "21", "31"))