The R Project SVN – R – Diff – /branches/R-exp-R5/tests/Examples/grDevices-Ex.Rout.save

-R version 2.12.0 Under development (unstable) (2010-05-03 r51899)
+R version 2.12.0 Under development (unstable) (2010-05-23 r52077)
 Copyright (C) 2010 The R Foundation for Statistical Computing
 ISBN 3-900051-07-0
+Platform: i386-pc-mingw32/i386 (32-bit)
-R is free software and comes with ABSOLUTELY NO WARRANTY.
-You are welcome to redistribute it under certain conditions.
+R is free software and comes with ABSOLUTELY NO WARRANTY.
-Type 'license()' or 'licence()' for distribution details.
+You are welcome to redistribute it under certain conditions.
+Type 'license()' or 'licence()' for distribution details.
-  Natural language support but running in an English locale
+  Natural language support but running in an English locale
-R is a collaborative project with many contributors.
-Type 'contributors()' for more information and
+R is a collaborative project with many contributors.
-'citation()' on how to cite R or R packages in publications.
+Type 'contributors()' for more information and
+'citation()' on how to cite R or R packages in publications.
-Type 'demo()' for some demos, 'help()' for on-line help, or
-'help.start()' for an HTML browser interface to help.
+Type 'demo()' for some demos, 'help()' for on-line help, or
-Type 'q()' to quit R.
+'help.start()' for an HTML browser interface to help.
+Type 'q()' to quit R.
-> pkgname <- "grDevices"
-> source(file.path(R.home("share"), "R", "examples-header.R"))
+> pkgname <- "grDevices"
-> options(warn = 1)
+> source(file.path(R.home("share"), "R", "examples-header.R"))
-> library('grDevices')
+> options(warn = 1)
->
+> options(pager = "console")
-> assign(".oldSearch", search(), pos = 'CheckExEnv')
+> library('grDevices')
-> cleanEx()
+>
-> nameEx("Devices")
+> assign(".oldSearch", search(), pos = 'CheckExEnv')
-> ### * Devices
+> cleanEx()
->
+> nameEx("Devices")
-> flush(stderr()); flush(stdout())
+> ### * Devices
 >
-> ### Name: Devices
+> flush(stderr()); flush(stdout())
-> ### Title: List of Graphical Devices
+>
-> ### Aliases: Devices device
+> ### Name: Devices
-> ### Keywords: device
+> ### Title: List of Graphical Devices
->
+> ### Aliases: Devices device
-> ### ** Examples
+> ### Keywords: device
-> ## Not run:
+>
-> ##D ## open the default screen device on this platform if no device is
+> ### ** Examples
-> ##D ## open
+> ## Not run:
-> ##D if(dev.cur() == 1) dev.new()
+> ##D ## open the default screen device on this platform if no device is
-> ## End(Not run)
+> ##D ## open
->
+> ##D if(dev.cur() == 1) dev.new()
->
+> ## End(Not run)
-> cleanEx()
+>
-> nameEx("Hershey")
+>
-> ### * Hershey
+> cleanEx()
->
+> nameEx("Hershey")
-> flush(stderr()); flush(stdout())
+> ### * Hershey
 >
-> ### Name: Hershey
+> flush(stderr()); flush(stdout())
-> ### Title: Hershey Vector Fonts in R
+>
-> ### Aliases: Hershey
+> ### Name: Hershey
-> ### Keywords: aplot
+> ### Title: Hershey Vector Fonts in R
->
+> ### Aliases: Hershey
-> ### ** Examples
+> ### Keywords: aplot
 >
-> Hershey
+> ### ** Examples
-$typeface
+>
-[1] "serif"             "sans serif"        "script"
+> Hershey
-[4] "gothic english"    "gothic german"     "gothic italian"
+$typeface
-[7] "serif symbol"      "sans serif symbol"
+[1] "serif"             "sans serif"        "script"
+[4] "gothic english"    "gothic german"     "gothic italian"
-$fontindex
+[7] "serif symbol"      "sans serif symbol"
-[1] "plain"            "italic"           "bold"             "bold italic"
-[5] "cyrillic"         "oblique cyrillic" "EUC"
+$fontindex
+[1] "plain"            "italic"           "bold"             "bold italic"
-$allowed
+[5] "cyrillic"         "oblique cyrillic" "EUC"
-      [,1] [,2]
- [1,]    1    1
+$allowed
- [2,]    1    2
+      [,1] [,2]
- [3,]    1    3
+ [1,]    1    1
- [4,]    1    4
+ [2,]    1    2
- [5,]    1    5
+ [3,]    1    3
- [6,]    1    6
+ [4,]    1    4
- [7,]    1    7
+ [5,]    1    5
- [8,]    2    1
+ [6,]    1    6
- [9,]    2    2
+ [7,]    1    7
-[10,]    2    3
+ [8,]    2    1
-[11,]    2    4
+ [9,]    2    2
-[12,]    3    1
+[10,]    2    3
-[13,]    3    2
+[11,]    2    4
-[14,]    3    3
+[12,]    3    1
-[15,]    4    1
+[13,]    3    2
-[16,]    5    1
+[14,]    3    3
-[17,]    6    1
+[15,]    4    1
-[18,]    7    1
+[16,]    5    1
-[19,]    7    2
+[17,]    6    1
-[20,]    7    3
+[18,]    7    1
-[21,]    7    4
+[19,]    7    2
-[22,]    8    1
+[20,]    7    3
-[23,]    8    2
+[21,]    7    4
+[22,]    8    1
->
+[23,]    8    2
-> ## for tables of examples, see demo(Hershey)
 >
->
+> ## for tables of examples, see demo(Hershey)
 >
-> cleanEx()
+>
-> nameEx("Japanese")
+>
-> ### * Japanese
+> cleanEx()
->
+> nameEx("Japanese")
-> flush(stderr()); flush(stdout())
+> ### * Japanese
 >
-> ### Name: Japanese
+> flush(stderr()); flush(stdout())
-> ### Title: Japanese characters in R
+>
-> ### Aliases: Japanese
+> ### Name: Japanese
-> ### Keywords: aplot
+> ### Title: Japanese characters in R
->
+> ### Aliases: Japanese
-> ### ** Examples
+> ### Keywords: aplot
 >
-> require(graphics)
+> ### ** Examples
 >
-> plot(1:9, type="n", axes=FALSE, frame=TRUE, ylab="",
+> require(graphics)
-+      main= "example(Japanese)", xlab= "using Hershey fonts")
+>
-> par(cex=3)
+> plot(1:9, type="n", axes=FALSE, frame=TRUE, ylab="",
-> Vf <- c("serif", "plain")
++      main= "example(Japanese)", xlab= "using Hershey fonts")
-> text(4, 2, "\\#J2438\\#J2421\\#J2451\\#J2473", vfont = Vf)
+> par(cex=3)
-> text(4, 4, "\\#J2538\\#J2521\\#J2551\\#J2573", vfont = Vf)
+> Vf <- c("serif", "plain")
-> text(4, 6, "\\#J467c\\#J4b5c", vfont = Vf)
+> text(4, 2, "\\#J2438\\#J2421\\#J2451\\#J2473", vfont = Vf)
-> text(4, 8, "Japan", vfont = Vf)
+> text(4, 4, "\\#J2538\\#J2521\\#J2551\\#J2573", vfont = Vf)
-> par(cex=1)
+> text(4, 6, "\\#J467c\\#J4b5c", vfont = Vf)
-> text(8, 2, "Hiragana")
+> text(4, 8, "Japan", vfont = Vf)
-> text(8, 4, "Katakana")
+> par(cex=1)
-> text(8, 6, "Kanji")
+> text(8, 2, "Hiragana")
-> text(8, 8, "English")
+> text(8, 4, "Katakana")
->
+> text(8, 6, "Kanji")
->
+> text(8, 8, "English")
 >
-> graphics::par(get("par.postscript", pos = 'CheckExEnv'))
+>
-> cleanEx()
+>
-> nameEx("Type1Font")
+> graphics::par(get("par.postscript", pos = 'CheckExEnv'))
-> ### * Type1Font
+> cleanEx()
->
+> nameEx("Type1Font")
-> flush(stderr()); flush(stdout())
+> ### * Type1Font
 >
-> ### Name: Type1Font
+> flush(stderr()); flush(stdout())
-> ### Title: Type 1 and CID Fonts
+>
-> ### Aliases: Type1Font CIDFont
+> ### Name: Type1Font
-> ### Keywords: device
+> ### Title: Type 1 and CID Fonts
->
+> ### Aliases: Type1Font CIDFont
-> ### ** Examples
+> ### Keywords: device
 >
-> ## This duplicates "ComputerModernItalic".
+> ### ** Examples
-> CMitalic <- Type1Font("ComputerModern2",
+>
-+                       c("CM_regular_10.afm", "CM_boldx_10.afm",
+> ## This duplicates "ComputerModernItalic".
-+                         "cmti10.afm", "cmbxti10.afm",
+> CMitalic <- Type1Font("ComputerModern2",
-+                         "CM_symbol_10.afm"),
++                       c("CM_regular_10.afm", "CM_boldx_10.afm",
-+                       encoding = "TeXtext.enc")
++                         "cmti10.afm", "cmbxti10.afm",
->
++                         "CM_symbol_10.afm"),
-> ## Not run:
++                       encoding = "TeXtext.enc")
-> ##D ## This could be used by
+>
-> ##D postscript(family = CMitalic)
+> ## Not run:
-> ##D ## or
+> ##D ## This could be used by
-> ##D postscriptFonts(CMitalic = CMitalic)  # once in a session
+> ##D postscript(family = CMitalic)
-> ##D postscript(family = "CMitalic", encoding = "TeXtext.enc")
+> ##D ## or
-> ## End(Not run)
+> ##D postscriptFonts(CMitalic = CMitalic)  # once in a session
->
+> ##D postscript(family = "CMitalic", encoding = "TeXtext.enc")
->
+> ## End(Not run)
-> cleanEx()
+>
-> nameEx("as.raster")
+>
-> ### * as.raster
+> cleanEx()
->
+> nameEx("as.raster")
-> flush(stderr()); flush(stdout())
+> ### * as.raster
 >
-> ### Name: as.raster
+> flush(stderr()); flush(stdout())
-> ### Title: Create a Raster Object
+>
-> ### Aliases: is.raster as.raster as.raster.logical as.raster.numeric
+> ### Name: as.raster
-> ###   as.raster.character as.raster.matrix as.raster.array
+> ### Title: Create a Raster Object
-> ### Keywords: dplot
+> ### Aliases: is.raster as.raster as.raster.logical as.raster.numeric
->
+> ###   as.raster.character as.raster.matrix as.raster.array
-> ### ** Examples
+> ### Keywords: dplot
 >
-> # A red gradient
+> ### ** Examples
-> as.raster(matrix(hcl(0, 80, seq(50, 80, 10)),
+>
-+                  nrow=4, ncol=5))
+> # A red gradient
-     [,1]      [,2]      [,3]      [,4]      [,5]
+> as.raster(matrix(hcl(0, 80, seq(50, 80, 10)),
-[1,] "#C54E6D" "#C54E6D" "#C54E6D" "#C54E6D" "#C54E6D"
++                  nrow=4, ncol=5))
-[2,] "#E16A86" "#E16A86" "#E16A86" "#E16A86" "#E16A86"
+     [,1]      [,2]      [,3]      [,4]      [,5]
-[3,] "#FE86A1" "#FE86A1" "#FE86A1" "#FE86A1" "#FE86A1"
+[1,] "#C54E6D" "#C54E6D" "#C54E6D" "#C54E6D" "#C54E6D"
-[4,] "#FFA2BC" "#FFA2BC" "#FFA2BC" "#FFA2BC" "#FFA2BC"
+[2,] "#E16A86" "#E16A86" "#E16A86" "#E16A86" "#E16A86"
->
+[3,] "#FE86A1" "#FE86A1" "#FE86A1" "#FE86A1" "#FE86A1"
-> # Vectors are 1-column matrices ...
+[4,] "#FFA2BC" "#FFA2BC" "#FFA2BC" "#FFA2BC" "#FFA2BC"
-> #   character vectors are color names ...
+>
-> as.raster(hcl(0, 80, seq(50, 80, 10)))
+> # Vectors are 1-column matrices ...
-     [,1]
+> #   character vectors are color names ...
-[1,] "#C54E6D"
+> as.raster(hcl(0, 80, seq(50, 80, 10)))
-[2,] "#E16A86"
+     [,1]
-[3,] "#FE86A1"
+[1,] "#C54E6D"
-[4,] "#FFA2BC"
+[2,] "#E16A86"
-> #   numeric vectors are greyscale ...
+[3,] "#FE86A1"
-> as.raster(1:5, max=5)
+[4,] "#FFA2BC"
-     [,1]
+> #   numeric vectors are greyscale ...
-[1,] "#333333"
+> as.raster(1:5, max=5)
-[2,] "#666666"
+     [,1]
-[3,] "#999999"
+[1,] "#333333"
-[4,] "#CCCCCC"
+[2,] "#666666"
-[5,] "#FFFFFF"
+[3,] "#999999"
-> #   locigal vectors are black and white ...
+[4,] "#CCCCCC"
-> as.raster(1:10 %% 2 == 0)
+[5,] "#FFFFFF"
-      [,1]
+> #   locigal vectors are black and white ...
- [1,] "#000000"
+> as.raster(1:10 %% 2 == 0)
- [2,] "#FFFFFF"
+      [,1]
- [3,] "#000000"
+ [1,] "#000000"
- [4,] "#FFFFFF"
+ [2,] "#FFFFFF"
- [5,] "#000000"
+ [3,] "#000000"
- [6,] "#FFFFFF"
+ [4,] "#FFFFFF"
- [7,] "#000000"
+ [5,] "#000000"
- [8,] "#FFFFFF"
+ [6,] "#FFFFFF"
- [9,] "#000000"
+ [7,] "#000000"
-[10,] "#FFFFFF"
+ [8,] "#FFFFFF"
->
+ [9,] "#000000"
-> # ... unless nrow/ncol are supplied ...
+[10,] "#FFFFFF"
-> as.raster(1:10 %% 2 == 0, nrow=1)
+>
-     [,1]      [,2]      [,3]      [,4]      [,5]      [,6]      [,7]
+> # ... unless nrow/ncol are supplied ...
-[1,] "#000000" "#FFFFFF" "#000000" "#FFFFFF" "#000000" "#FFFFFF" "#000000"
+> as.raster(1:10 %% 2 == 0, nrow=1)
-     [,8]      [,9]      [,10]
+     [,1]      [,2]      [,3]      [,4]      [,5]      [,6]      [,7]
-[1,] "#FFFFFF" "#000000" "#FFFFFF"
+[1,] "#000000" "#FFFFFF" "#000000" "#FFFFFF" "#000000" "#FFFFFF" "#000000"
->
+     [,8]      [,9]      [,10]
-> # Matrix can also be logical or numeric ...
+[1,] "#FFFFFF" "#000000" "#FFFFFF"
-> as.raster(matrix(c(TRUE, FALSE), nrow=3, ncol=2))
+>
-     [,1]      [,2]
+> # Matrix can also be logical or numeric ...
-[1,] "#FFFFFF" "#000000"
+> as.raster(matrix(c(TRUE, FALSE), nrow=3, ncol=2))
-[2,] "#000000" "#FFFFFF"
+     [,1]      [,2]
-[3,] "#FFFFFF" "#000000"
+[1,] "#FFFFFF" "#000000"
-> as.raster(matrix(1:3/4, nrow=3, ncol=4))
+[2,] "#000000" "#FFFFFF"
-     [,1]      [,2]      [,3]      [,4]
+[3,] "#FFFFFF" "#000000"
-[1,] "#404040" "#404040" "#404040" "#404040"
+> as.raster(matrix(1:3/4, nrow=3, ncol=4))
-[2,] "#808080" "#808080" "#808080" "#808080"
+     [,1]      [,2]      [,3]      [,4]
-[3,] "#BFBFBF" "#BFBFBF" "#BFBFBF" "#BFBFBF"
+[1,] "#404040" "#404040" "#404040" "#404040"
->
+[2,] "#808080" "#808080" "#808080" "#808080"
-> # An array can be 3-plane numeric (R, G, B planes) ...
+[3,] "#BFBFBF" "#BFBFBF" "#BFBFBF" "#BFBFBF"
-> as.raster(array(c(0:1, rep(0.5, 4)), c(2, 1, 3)))
+>
-     [,1]
+> # An array can be 3-plane numeric (R, G, B planes) ...
-[1,] "#008080"
+> as.raster(array(c(0:1, rep(0.5, 4)), c(2, 1, 3)))
-[2,] "#FF8080"
+     [,1]
->
+[1,] "#008080"
-> # ... or 4-plane numeric (R, G, B, A planes)
+[2,] "#FF8080"
-> as.raster(array(c(0:1, rep(0.5, 6)), c(2, 1, 4)))
+>
-     [,1]
+> # ... or 4-plane numeric (R, G, B, A planes)
-[1,] "#00808080"
+> as.raster(array(c(0:1, rep(0.5, 6)), c(2, 1, 4)))
-[2,] "#FF808080"
+     [,1]
->
+[1,] "#00808080"
->
+[2,] "#FF808080"
 >
 >
-> cleanEx()
+>
-> nameEx("boxplot.stats")
+>
-> ### * boxplot.stats
+> cleanEx()
->
+> nameEx("boxplot.stats")
-> flush(stderr()); flush(stdout())
+> ### * boxplot.stats
 >
-> ### Name: boxplot.stats
+> flush(stderr()); flush(stdout())
-> ### Title: Box Plot Statistics
+>
-> ### Aliases: boxplot.stats
+> ### Name: boxplot.stats
-> ### Keywords: dplot
+> ### Title: Box Plot Statistics
->
+> ### Aliases: boxplot.stats
-> ### ** Examples
+> ### Keywords: dplot
 >
-> require(stats)
+> ### ** Examples
-> x <- c(1:100, 1000)
+>
-> (b1 <- boxplot.stats(x))
+> require(stats)
-$stats
+> x <- c(1:100, 1000)
-[1]   1  26  51  76 100
+> (b1 <- boxplot.stats(x))
+$stats
-$n
+[1]   1  26  51  76 100
-[1] 101
+$n
-$conf
+[1] 101
-[1] 43.13921 58.86079
+$conf
-$out
+[1] 43.13921 58.86079
-[1] 1000
+$out
-> (b2 <- boxplot.stats(x, do.conf=FALSE, do.out=FALSE))
+[1] 1000
-$stats
-[1]   1  26  51  76 100
+> (b2 <- boxplot.stats(x, do.conf=FALSE, do.out=FALSE))
+$stats
-$n
+[1]   1  26  51  76 100
-[1] 101
+$n
-$conf
+[1] 101
-NULL
+$conf
-$out
+NULL
-numeric(0)
+$out
-> stopifnot(b1 $ stats == b2 $ stats) # do.out=F is still robust
+numeric(0)
-> boxplot.stats(x, coef = 3, do.conf=FALSE)
-$stats
+> stopifnot(b1 $ stats == b2 $ stats) # do.out=F is still robust
-[1]   1  26  51  76 100
+> boxplot.stats(x, coef = 3, do.conf=FALSE)
+$stats
-$n
+[1]   1  26  51  76 100
-[1] 101
+$n
-$conf
+[1] 101
-NULL
+$conf
-$out
+NULL
-[1] 1000
+$out
-> ## no outlier treatment:
+[1] 1000
-> boxplot.stats(x, coef = 0)
-$stats
+> ## no outlier treatment:
-[1]    1   26   51   76 1000
+> boxplot.stats(x, coef = 0)
+$stats
-$n
+[1]    1   26   51   76 1000
-[1] 101
+$n
-$conf
+[1] 101
-[1] 43.13921 58.86079
+$conf
-$out
+[1] 43.13921 58.86079
-numeric(0)
+$out
->
+numeric(0)
-> boxplot.stats(c(x, NA)) # slight change : n is 101
-$stats
+>
-[1]   1  26  51  76 100
+> boxplot.stats(c(x, NA)) # slight change : n is 101
+$stats
-$n
+[1]   1  26  51  76 100
-[1] 101
+$n
-$conf
+[1] 101
-[1] 43.13921 58.86079
+$conf
-$out
+[1] 43.13921 58.86079
-[1] 1000
+$out
-> (r <- boxplot.stats(c(x, -1:1/0)))
+[1] 1000
-$stats
-[1]   1.0  25.5  51.0  76.5 100.0
+> (r <- boxplot.stats(c(x, -1:1/0)))
+$stats
-$n
+[1]   1.0  25.5  51.0  76.5 100.0
-[1] 103
+$n
-$conf
+[1] 103
-[1] 43.06022 58.93978
+$conf
-$out
+[1] 43.06022 58.93978
-[1] 1000 -Inf  Inf
+$out
-> stopifnot(r$out == c(1000, -Inf, Inf))
+[1] 1000 -Inf  Inf
->
-> ## Don't show:
+> stopifnot(r$out == c(1000, -Inf, Inf))
->  ## Difference between quartiles and hinges :
+>
->  nn <- 1:17 ;  n4 <- nn %% 4
+> ## Don't show:
->  hin <- sapply(sapply(nn, seq), function(x) boxplot.stats(x)$stats[c(2,4)])
+>  ## Difference between quartiles and hinges :
->  q13 <- sapply(sapply(nn, seq), quantile, probs = c(1,3)/4, names = FALSE)
+>  nn <- 1:17 ;  n4 <- nn %% 4
->  m <- t(rbind(q13,hin))[, c(1,3,2,4)]
+>  hin <- sapply(sapply(nn, seq), function(x) boxplot.stats(x)$stats[c(2,4)])
->  dimnames(m) <- list(paste(nn), c("q1","lH", "q3","uH"))
+>  q13 <- sapply(sapply(nn, seq), quantile, probs = c(1,3)/4, names = FALSE)
->  stopifnot(m[n4==1, 1:2] == (nn[n4==1] + 3)/4,# quart. = hinge
+>  m <- t(rbind(q13,hin))[, c(1,3,2,4)]
-+            m[n4==1, 3:4] == (3*nn[n4==1]+1)/4,
+>  dimnames(m) <- list(paste(nn), c("q1","lH", "q3","uH"))
-+            m[,"lH"] == ( (nn+3) %/% 2) / 2,
+>  stopifnot(m[n4==1, 1:2] == (nn[n4==1] + 3)/4,# quart. = hinge
-+            m[,"uH"] == ((3*nn+2)%/% 2) / 2)
++            m[n4==1, 3:4] == (3*nn[n4==1]+1)/4,
->  cm <- noquote(format(m))
++            m[,"lH"] == ( (nn+3) %/% 2) / 2,
->  cm[m[,2] == m[,1], 2] <- " = "
++            m[,"uH"] == ((3*nn+2)%/% 2) / 2)
->  cm[m[,4] == m[,3], 4] <- " = "
+>  cm <- noquote(format(m))
->  cm
+>  cm[m[,2] == m[,1], 2] <- " = "
-   q1    lH    q3    uH
+>  cm[m[,4] == m[,3], 4] <- " = "
-1.00  =     1.00  =
+>  cm
-1.25  1.00  1.75  2.00
+   q1    lH    q3    uH
-1.50  =     2.50  =
+1.00  =     1.00  =
-1.75  1.50  3.25  3.50
+1.25  1.00  1.75  2.00
-2.00  =     4.00  =
+1.50  =     2.50  =
-2.25  2.00  4.75  5.00
+1.75  1.50  3.25  3.50
-2.50  =     5.50  =
+2.00  =     4.00  =
-2.75  2.50  6.25  6.50
+2.25  2.00  4.75  5.00
-3.00  =     7.00  =
+2.50  =     5.50  =
-3.25  3.00  7.75  8.00
+2.75  2.50  6.25  6.50
-3.50  =     8.50  =
+3.00  =     7.00  =
-3.75  3.50  9.25  9.50
+3.25  3.00  7.75  8.00
-4.00  =    10.00  =
+3.50  =     8.50  =
-4.25  4.00 10.75 11.00
+3.75  3.50  9.25  9.50
-4.50  =    11.50  =
+4.00  =    10.00  =
-4.75  4.50 12.25 12.50
+4.25  4.00 10.75 11.00
-5.00  =    13.00  =
+4.50  =    11.50  =
-> ## End Don't show
+4.75  4.50 12.25 12.50
->
+5.00  =    13.00  =
->
+> ## End Don't show
 >
 >
-> cleanEx()
+>
-> nameEx("check.options")
+>
-> ### * check.options
+> cleanEx()
->
+> nameEx("check.options")
-> flush(stderr()); flush(stdout())
+> ### * check.options
 >
-> ### Name: check.options
+> flush(stderr()); flush(stdout())
-> ### Title: Set Options with Consistency Checks
+>
-> ### Aliases: check.options
+> ### Name: check.options
-> ### Keywords: utilities programming
+> ### Title: Set Options with Consistency Checks
->
+> ### Aliases: check.options
-> ### ** Examples
+> ### Keywords: utilities programming
 >
-> (L1 <- list(a=1:3, b=pi, ch="CH"))
+> ### ** Examples
-$a
+>
-[1] 1 2 3
+> (L1 <- list(a=1:3, b=pi, ch="CH"))
+$a
-$b
+[1] 1 2 3
-[1] 3.141593
+$b
-$ch
+[1] 3.141593
-[1] "CH"
+$ch
-> check.options(list(a=0:2), name.opt = "L1")
+[1] "CH"
-$a
-[1] 0 1 2
+> check.options(list(a=0:2), name.opt = "L1")
+$a
-$b
+[1] 0 1 2
-[1] 3.141593
+$b
-$ch
+[1] 3.141593
-[1] "CH"
+$ch
-> check.options(NULL, reset = TRUE, name.opt = "L1")
+[1] "CH"
-$a
-[1] 1 2 3
+> check.options(NULL, reset = TRUE, name.opt = "L1")
+$a
-$b
+[1] 1 2 3
-[1] 3.141593
+$b
-$ch
+[1] 3.141593
-[1] "CH"
+$ch
->
+[1] "CH"
->
 >
-> cleanEx()
+>
-> nameEx("chull")
+>
-> ### * chull
+> cleanEx()
->
+> nameEx("chull")
-> flush(stderr()); flush(stdout())
+> ### * chull
 >
-> ### Name: chull
+> flush(stderr()); flush(stdout())
-> ### Title: Compute Convex Hull of a Set of Points
+>
-> ### Aliases: chull
+> ### Name: chull
-> ### Keywords: graphs
+> ### Title: Compute Convex Hull of a Set of Points
->
+> ### Aliases: chull
-> ### ** Examples
+> ### Keywords: graphs
 >
-> require(stats)
+> ### ** Examples
-> X <- matrix(rnorm(2000), ncol = 2)
+>
-> chull(X)
+> require(stats)
- [1]  61 442 165 899 697 446 975 656 232 557 938 295 495
+> X <- matrix(rnorm(2000), ncol = 2)
-> ## Not run:
+> chull(X)
-> ##D   # Example usage from graphics package
+ [1]  61 442 165 899 697 446 975 656 232 557 938 295 495
-> ##D   plot(X, cex = 0.5)
+> ## Not run:
-> ##D   hpts <- chull(X)
+> ##D   # Example usage from graphics package
-> ##D   hpts <- c(hpts, hpts[1])
+> ##D   plot(X, cex = 0.5)
-> ##D   lines(X[hpts, ])
+> ##D   hpts <- chull(X)
-> ## End(Not run)
+> ##D   hpts <- c(hpts, hpts[1])
->
+> ##D   lines(X[hpts, ])
->
+> ## End(Not run)
 >
-> cleanEx()
+>
-> nameEx("cm")
+>
-> ### * cm
+> cleanEx()
->
+> nameEx("cm")
-> flush(stderr()); flush(stdout())
+> ### * cm
 >
-> ### Name: cm
+> flush(stderr()); flush(stdout())
-> ### Title: Unit Transformation
+>
-> ### Aliases: cm
+> ### Name: cm
-> ### Keywords: dplot
+> ### Title: Unit Transformation
->
+> ### Aliases: cm
-> ### ** Examples
+> ### Keywords: dplot
 >
-> cm(1)# = 2.54
+> ### ** Examples
-[1] 2.54
+>
->
+> cm(1)# = 2.54
-> ## Translate *from* cm *to* inches:
+[1] 2.54
 >
-> 10 / cm(1) # -> 10cm  are 3.937 inches
+> ## Translate *from* cm *to* inches:
-[1] 3.937008
+>
->
+> 10 / cm(1) # -> 10cm  are 3.937 inches
->
+[1] 3.937008
 >
-> cleanEx()
+>
-> nameEx("col2rgb")
+>
-> ### * col2rgb
+> cleanEx()
->
+> nameEx("col2rgb")
-> flush(stderr()); flush(stdout())
+> ### * col2rgb
 >
-> ### Name: col2rgb
+> flush(stderr()); flush(stdout())
-> ### Title: Color to RGB Conversion
+>
-> ### Aliases: col2rgb
+> ### Name: col2rgb
-> ### Keywords: color dplot
+> ### Title: Color to RGB Conversion
->
+> ### Aliases: col2rgb
-> ### ** Examples
+> ### Keywords: color dplot
 >
-> col2rgb("peachpuff")
+> ### ** Examples
-      [,1]
+>
-red    255
+> col2rgb("peachpuff")
-green  218
+      [,1]
-blue   185
+red    255
-> col2rgb(c(blu = "royalblue", reddish = "tomato")) # names kept
+green  218
-      blu reddish
+blue   185
-red    65     255
+> col2rgb(c(blu = "royalblue", reddish = "tomato")) # names kept
-green 105      99
+      blu reddish
-blue  225      71
+red    65     255
->
+green 105      99
-> col2rgb(1:8)# the ones from the palette() :
+blue  225      71
-      [,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8]
+>
-red      0  255    0    0    0  255  255  190
+> col2rgb(1:8)# the ones from the palette() :
-green    0    0  205    0  255    0  255  190
+      [,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8]
-blue     0    0    0  255  255  255    0  190
+red      0  255    0    0    0  255  255  190
->
+green    0    0  205    0  255    0  255  190
-> col2rgb(paste("gold", 1:4, sep=""))
+blue     0    0    0  255  255  255    0  190
-      [,1] [,2] [,3] [,4]
+>
-red    255  238  205  139
+> col2rgb(paste("gold", 1:4, sep=""))
-green  215  201  173  117
+      [,1] [,2] [,3] [,4]
-blue     0    0    0    0
+red    255  238  205  139
->
+green  215  201  173  117
-> col2rgb("#08a0ff")
+blue     0    0    0    0
-      [,1]
+>
-red      8
+> col2rgb("#08a0ff")
-green  160
+      [,1]
-blue   255
+red      8
-> ## all three kind of colors mixed :
+green  160
-> col2rgb(c(red="red", palette= 1:3, hex="#abcdef"))
+blue   255
-      red palette1 palette2 palette3 hex
+> ## all three kind of colors mixed :
-red   255        0      255        0 171
+> col2rgb(c(red="red", palette= 1:3, hex="#abcdef"))
-green   0        0        0      205 205
+      red palette1 palette2 palette3 hex
-blue    0        0        0        0 239
+red   255        0      255        0 171
->
+green   0        0        0      205 205
-> ##-- NON-INTRODUCTORY examples --
+blue    0        0        0        0 239
 >
-> grC <- col2rgb(paste("gray",0:100,sep=""))
+> ##-- NON-INTRODUCTORY examples --
-> table(print(diff(grC["red",])))# '2' or '3': almost equidistant
+>
-  [1] 3 2 3 2 3 2 3 2 3 3 2 3 2 3 2 3 2 3 2 3 3 2 3 2 3 2 3 2 3 3 2 3 2 3 2 3 2
+> grC <- col2rgb(paste("gray",0:100,sep=""))
- [38] 3 2 3 3 2 3 2 3 2 3 2 3 2 3 3 2 3 2 3 2 3 2 3 3 2 3 2 3 2 3 2 3 3 2 3 2 3
+> table(print(diff(grC["red",])))# '2' or '3': almost equidistant
- [75] 2 3 2 3 2 3 3 2 3 2 3 2 3 2 3 2 3 3 2 3 2 3 2 3 2 3
+  [1] 3 2 3 2 3 2 3 2 3 3 2 3 2 3 2 3 2 3 2 3 3 2 3 2 3 2 3 2 3 3 2 3 2 3 2 3 2
+ [38] 3 2 3 3 2 3 2 3 2 3 2 3 2 3 3 2 3 2 3 2 3 2 3 3 2 3 2 3 2 3 2 3 3 2 3 2 3
-3
+ [75] 2 3 2 3 2 3 3 2 3 2 3 2 3 2 3 2 3 3 2 3 2 3 2 3 2 3
-55
-> ## The 'named' grays are in between {"slate gray" is not gray, strictly}
+3
-> col2rgb(c(g66="gray66", darkg= "dark gray", g67="gray67",
+55
-+           g74="gray74", gray =      "gray", g75="gray75",
+> ## The 'named' grays are in between {"slate gray" is not gray, strictly}
-+           g82="gray82", light="light gray", g83="gray83"))
+> col2rgb(c(g66="gray66", darkg= "dark gray", g67="gray67",
-      g66 darkg g67 g74 gray g75 g82 light g83
++           g74="gray74", gray =      "gray", g75="gray75",
-red   168   169 171 189  190 191 209   211 212
++           g82="gray82", light="light gray", g83="gray83"))
-green 168   169 171 189  190 191 209   211 212
+      g66 darkg g67 g74 gray g75 g82 light g83
-blue  168   169 171 189  190 191 209   211 212
+red   168   169 171 189  190 191 209   211 212
->
+green 168   169 171 189  190 191 209   211 212
-> crgb <- col2rgb(cc <- colors())
+blue  168   169 171 189  190 191 209   211 212
-> colnames(crgb) <- cc
+>
-> t(crgb)## The whole table
+> crgb <- col2rgb(cc <- colors())
-                     red green blue
+> colnames(crgb) <- cc
-white                255   255  255
+> t(crgb)## The whole table
-aliceblue            240   248  255
+                     red green blue
-antiquewhite         250   235  215
+white                255   255  255
-antiquewhite1        255   239  219
+aliceblue            240   248  255
-antiquewhite2        238   223  204
+antiquewhite         250   235  215
-antiquewhite3        205   192  176
+antiquewhite1        255   239  219
-antiquewhite4        139   131  120
+antiquewhite2        238   223  204
-aquamarine           127   255  212
+antiquewhite3        205   192  176
-aquamarine1          127   255  212
+antiquewhite4        139   131  120
-aquamarine2          118   238  198
+aquamarine           127   255  212
-aquamarine3          102   205  170
+aquamarine1          127   255  212
-aquamarine4           69   139  116
+aquamarine2          118   238  198
-azure                240   255  255
+aquamarine3          102   205  170
-azure1               240   255  255
+aquamarine4           69   139  116
-azure2               224   238  238
+azure                240   255  255
-azure3               193   205  205
+azure1               240   255  255
-azure4               131   139  139
+azure2               224   238  238
-beige                245   245  220
+azure3               193   205  205
-bisque               255   228  196
+azure4               131   139  139
-bisque1              255   228  196
+beige                245   245  220
-bisque2              238   213  183
+bisque               255   228  196
-bisque3              205   183  158
+bisque1              255   228  196
-bisque4              139   125  107
+bisque2              238   213  183
-black                  0     0    0
+bisque3              205   183  158
-blanchedalmond       255   235  205
+bisque4              139   125  107
-blue                   0     0  255
+black                  0     0    0
-blue1                  0     0  255
+blanchedalmond       255   235  205
-blue2                  0     0  238
+blue                   0     0  255
-blue3                  0     0  205
+blue1                  0     0  255
-blue4                  0     0  139
+blue2                  0     0  238
-blueviolet           138    43  226
+blue3                  0     0  205
-brown                165    42   42
+blue4                  0     0  139
-brown1               255    64   64
+blueviolet           138    43  226
-brown2               238    59   59
+brown                165    42   42
-brown3               205    51   51
+brown1               255    64   64
-brown4               139    35   35
+brown2               238    59   59
-burlywood            222   184  135
+brown3               205    51   51
-burlywood1           255   211  155
+brown4               139    35   35
-burlywood2           238   197  145
+burlywood            222   184  135
-burlywood3           205   170  125
+burlywood1           255   211  155
-burlywood4           139   115   85
+burlywood2           238   197  145
-cadetblue             95   158  160
+burlywood3           205   170  125
-cadetblue1           152   245  255
+burlywood4           139   115   85
-cadetblue2           142   229  238
+cadetblue             95   158  160
-cadetblue3           122   197  205
+cadetblue1           152   245  255
-cadetblue4            83   134  139
+cadetblue2           142   229  238
-chartreuse           127   255    0
+cadetblue3           122   197  205
-chartreuse1          127   255    0
+cadetblue4            83   134  139
-chartreuse2          118   238    0
+chartreuse           127   255    0
-chartreuse3          102   205    0
+chartreuse1          127   255    0
-chartreuse4           69   139    0
+chartreuse2          118   238    0
-chocolate            210   105   30
+chartreuse3          102   205    0
-chocolate1           255   127   36
+chartreuse4           69   139    0
-chocolate2           238   118   33
+chocolate            210   105   30
-chocolate3           205   102   29
+chocolate1           255   127   36
-chocolate4           139    69   19
+chocolate2           238   118   33
-coral                255   127   80
+chocolate3           205   102   29
-coral1               255   114   86
+chocolate4           139    69   19
-coral2               238   106   80
+coral                255   127   80
-coral3               205    91   69
+coral1               255   114   86
-coral4               139    62   47
+coral2               238   106   80
-cornflowerblue       100   149  237
+coral3               205    91   69
-cornsilk             255   248  220
+coral4               139    62   47
-cornsilk1            255   248  220
+cornflowerblue       100   149  237
-cornsilk2            238   232  205
+cornsilk             255   248  220
-cornsilk3            205   200  177
+cornsilk1            255   248  220
-cornsilk4            139   136  120
+cornsilk2            238   232  205
-cyan                   0   255  255
+cornsilk3            205   200  177
-cyan1                  0   255  255
+cornsilk4            139   136  120
-cyan2                  0   238  238
+cyan                   0   255  255
-cyan3                  0   205  205
+cyan1                  0   255  255
-cyan4                  0   139  139
+cyan2                  0   238  238
-darkblue               0     0  139
+cyan3                  0   205  205
-darkcyan               0   139  139
+cyan4                  0   139  139
-darkgoldenrod        184   134   11
+darkblue               0     0  139
-darkgoldenrod1       255   185   15
+darkcyan               0   139  139
-darkgoldenrod2       238   173   14
+darkgoldenrod        184   134   11
-darkgoldenrod3       205   149   12
+darkgoldenrod1       255   185   15
-darkgoldenrod4       139   101    8
+darkgoldenrod2       238   173   14
-darkgray             169   169  169
+darkgoldenrod3       205   149   12
-darkgreen              0   100    0
+darkgoldenrod4       139   101    8
-darkgrey             169   169  169
+darkgray             169   169  169
-darkkhaki            189   183  107
+darkgreen              0   100    0
-darkmagenta          139     0  139
+darkgrey             169   169  169
-darkolivegreen        85   107   47
+darkkhaki            189   183  107
-darkolivegreen1      202   255  112
+darkmagenta          139     0  139
-darkolivegreen2      188   238  104
+darkolivegreen        85   107   47
-darkolivegreen3      162   205   90
+darkolivegreen1      202   255  112
-darkolivegreen4      110   139   61
+darkolivegreen2      188   238  104
-darkorange           255   140    0
+darkolivegreen3      162   205   90
-darkorange1          255   127    0
+darkolivegreen4      110   139   61
-darkorange2          238   118    0
+darkorange           255   140    0
-darkorange3          205   102    0
+darkorange1          255   127    0
-darkorange4          139    69    0
+darkorange2          238   118    0
-darkorchid           153    50  204
+darkorange3          205   102    0
-darkorchid1          191    62  255
+darkorange4          139    69    0
-darkorchid2          178    58  238
+darkorchid           153    50  204
-darkorchid3          154    50  205
+darkorchid1          191    62  255
-darkorchid4          104    34  139
+darkorchid2          178    58  238
-darkred              139     0    0
+darkorchid3          154    50  205
-darksalmon           233   150  122
+darkorchid4          104    34  139
-darkseagreen         143   188  143
+darkred              139     0    0
-darkseagreen1        193   255  193
+darksalmon           233   150  122
-darkseagreen2        180   238  180
+darkseagreen         143   188  143
-darkseagreen3        155   205  155
+darkseagreen1        193   255  193
-darkseagreen4        105   139  105
+darkseagreen2        180   238  180
-darkslateblue         72    61  139
+darkseagreen3        155   205  155
-darkslategray         47    79   79
+darkseagreen4        105   139  105
-darkslategray1       151   255  255
+darkslateblue         72    61  139
-darkslategray2       141   238  238
+darkslategray         47    79   79
-darkslategray3       121   205  205
+darkslategray1       151   255  255
-darkslategray4        82   139  139
+darkslategray2       141   238  238
-darkslategrey         47    79   79
+darkslategray3       121   205  205
-darkturquoise          0   206  209
+darkslategray4        82   139  139
-darkviolet           148     0  211
+darkslategrey         47    79   79
-deeppink             255    20  147
+darkturquoise          0   206  209
-deeppink1            255    20  147
+darkviolet           148     0  211
-deeppink2            238    18  137
+deeppink             255    20  147
-deeppink3            205    16  118
+deeppink1            255    20  147
-deeppink4            139    10   80
+deeppink2            238    18  137
-deepskyblue            0   191  255
+deeppink3            205    16  118
-deepskyblue1           0   191  255
+deeppink4            139    10   80
-deepskyblue2           0   178  238
+deepskyblue            0   191  255
-deepskyblue3           0   154  205
+deepskyblue1           0   191  255
-deepskyblue4           0   104  139
+deepskyblue2           0   178  238
-dimgray              105   105  105
+deepskyblue3           0   154  205
-dimgrey              105   105  105
+deepskyblue4           0   104  139
-dodgerblue            30   144  255
+dimgray              105   105  105
-dodgerblue1           30   144  255
+dimgrey              105   105  105
-dodgerblue2           28   134  238
+dodgerblue            30   144  255
-dodgerblue3           24   116  205
+dodgerblue1           30   144  255
-dodgerblue4           16    78  139
+dodgerblue2           28   134  238
-firebrick            178    34   34
+dodgerblue3           24   116  205
-firebrick1           255    48   48
+dodgerblue4           16    78  139
-firebrick2           238    44   44
+firebrick            178    34   34
-firebrick3           205    38   38
+firebrick1           255    48   48
-firebrick4           139    26   26
+firebrick2           238    44   44
-floralwhite          255   250  240
+firebrick3           205    38   38
-forestgreen           34   139   34
+firebrick4           139    26   26
-gainsboro            220   220  220
+floralwhite          255   250  240
-ghostwhite           248   248  255
+forestgreen           34   139   34
-gold                 255   215    0
+gainsboro            220   220  220
-gold1                255   215    0
+ghostwhite           248   248  255
-gold2                238   201    0
+gold                 255   215    0
-gold3                205   173    0
+gold1                255   215    0
-gold4                139   117    0
+gold2                238   201    0
-goldenrod            218   165   32
+gold3                205   173    0
-goldenrod1           255   193   37
+gold4                139   117    0
-goldenrod2           238   180   34
+goldenrod            218   165   32
-goldenrod3           205   155   29
+goldenrod1           255   193   37
-goldenrod4           139   105   20
+goldenrod2           238   180   34
-gray                 190   190  190
+goldenrod3           205   155   29
-gray0                  0     0    0
+goldenrod4           139   105   20
-gray1                  3     3    3
+gray                 190   190  190
-gray2                  5     5    5
+gray0                  0     0    0
-gray3                  8     8    8
+gray1                  3     3    3
-gray4                 10    10   10
+gray2                  5     5    5
-gray5                 13    13   13
+gray3                  8     8    8
-gray6                 15    15   15
+gray4                 10    10   10
-gray7                 18    18   18
+gray5                 13    13   13
-gray8                 20    20   20
+gray6                 15    15   15
-gray9                 23    23   23
+gray7                 18    18   18
-gray10                26    26   26
+gray8                 20    20   20
-gray11                28    28   28
+gray9                 23    23   23
-gray12                31    31   31
+gray10                26    26   26
-gray13                33    33   33
+gray11                28    28   28
-gray14                36    36   36
+gray12                31    31   31
-gray15                38    38   38
+gray13                33    33   33
-gray16                41    41   41
+gray14                36    36   36
-gray17                43    43   43
+gray15                38    38   38
-gray18                46    46   46
+gray16                41    41   41
-gray19                48    48   48
+gray17                43    43   43
-gray20                51    51   51
+gray18                46    46   46
-gray21                54    54   54
+gray19                48    48   48
-gray22                56    56   56
+gray20                51    51   51
-gray23                59    59   59
+gray21                54    54   54
-gray24                61    61   61
+gray22                56    56   56
-gray25                64    64   64
+gray23                59    59   59
-gray26                66    66   66
+gray24                61    61   61
-gray27                69    69   69
+gray25                64    64   64
-gray28                71    71   71
+gray26                66    66   66
-gray29                74    74   74
+gray27                69    69   69
-gray30                77    77   77
+gray28                71    71   71
-gray31                79    79   79
+gray29                74    74   74
-gray32                82    82   82
+gray30                77    77   77
-gray33                84    84   84
+gray31                79    79   79
-gray34                87    87   87
+gray32                82    82   82
-gray35                89    89   89
+gray33                84    84   84
-gray36                92    92   92
+gray34                87    87   87
-gray37                94    94   94
+gray35                89    89   89
-gray38                97    97   97
+gray36                92    92   92
-gray39                99    99   99
+gray37                94    94   94
-gray40               102   102  102
+gray38                97    97   97
-gray41               105   105  105
+gray39                99    99   99
-gray42               107   107  107
+gray40               102   102  102
-gray43               110   110  110
+gray41               105   105  105
-gray44               112   112  112
+gray42               107   107  107
-gray45               115   115  115
+gray43               110   110  110
-gray46               117   117  117
+gray44               112   112  112
-gray47               120   120  120
+gray45               115   115  115
-gray48               122   122  122
+gray46               117   117  117
-gray49               125   125  125
+gray47               120   120  120
-gray50               127   127  127
+gray48               122   122  122
-gray51               130   130  130
+gray49               125   125  125
-gray52               133   133  133
+gray50               127   127  127
-gray53               135   135  135
+gray51               130   130  130
-gray54               138   138  138
+gray52               133   133  133
-gray55               140   140  140
+gray53               135   135  135
-gray56               143   143  143
+gray54               138   138  138
-gray57               145   145  145
+gray55               140   140  140
-gray58               148   148  148
+gray56               143   143  143
-gray59               150   150  150
+gray57               145   145  145
-gray60               153   153  153
+gray58               148   148  148
-gray61               156   156  156
+gray59               150   150  150
-gray62               158   158  158
+gray60               153   153  153
-gray63               161   161  161
+gray61               156   156  156
-gray64               163   163  163
+gray62               158   158  158
-gray65               166   166  166
+gray63               161   161  161
-gray66               168   168  168
+gray64               163   163  163
-gray67               171   171  171
+gray65               166   166  166
-gray68               173   173  173
+gray66               168   168  168
-gray69               176   176  176
+gray67               171   171  171
-gray70               179   179  179
+gray68               173   173  173
-gray71               181   181  181
+gray69               176   176  176
-gray72               184   184  184
+gray70               179   179  179
-gray73               186   186  186
+gray71               181   181  181
-gray74               189   189  189
+gray72               184   184  184
-gray75               191   191  191
+gray73               186   186  186
-gray76               194   194  194
+gray74               189   189  189
-gray77               196   196  196
+gray75               191   191  191
-gray78               199   199  199
+gray76               194   194  194
-gray79               201   201  201
+gray77               196   196  196
-gray80               204   204  204
+gray78               199   199  199
-gray81               207   207  207
+gray79               201   201  201
-gray82               209   209  209
+gray80               204   204  204
-gray83               212   212  212
+gray81               207   207  207
-gray84               214   214  214
+gray82               209   209  209
-gray85               217   217  217
+gray83               212   212  212
-gray86               219   219  219
+gray84               214   214  214
-gray87               222   222  222
+gray85               217   217  217
-gray88               224   224  224
+gray86               219   219  219
-gray89               227   227  227
+gray87               222   222  222
-gray90               229   229  229
+gray88               224   224  224
-gray91               232   232  232
+gray89               227   227  227
-gray92               235   235  235
+gray90               229   229  229
-gray93               237   237  237
+gray91               232   232  232
-gray94               240   240  240
+gray92               235   235  235
-gray95               242   242  242
+gray93               237   237  237
-gray96               245   245  245
+gray94               240   240  240
-gray97               247   247  247
+gray95               242   242  242
-gray98               250   250  250
+gray96               245   245  245
-gray99               252   252  252
+gray97               247   247  247
-gray100              255   255  255
+gray98               250   250  250
-green                  0   255    0
+gray99               252   252  252
-green1                 0   255    0
+gray100              255   255  255
-green2                 0   238    0
+green                  0   255    0
-green3                 0   205    0
+green1                 0   255    0
-green4                 0   139    0
+green2                 0   238    0
-greenyellow          173   255   47
+green3                 0   205    0
-grey                 190   190  190
+green4                 0   139    0
-grey0                  0     0    0
+greenyellow          173   255   47
-grey1                  3     3    3
+grey                 190   190  190
-grey2                  5     5    5
+grey0                  0     0    0
-grey3                  8     8    8
+grey1                  3     3    3
-grey4                 10    10   10
+grey2                  5     5    5
-grey5                 13    13   13
+grey3                  8     8    8
-grey6                 15    15   15
+grey4                 10    10   10
-grey7                 18    18   18
+grey5                 13    13   13
-grey8                 20    20   20
+grey6                 15    15   15
-grey9                 23    23   23
+grey7                 18    18   18
-grey10                26    26   26
+grey8                 20    20   20
-grey11                28    28   28
+grey9                 23    23   23
-grey12                31    31   31
+grey10                26    26   26
-grey13                33    33   33
+grey11                28    28   28
-grey14                36    36   36
+grey12                31    31   31
-grey15                38    38   38
+grey13                33    33   33
-grey16                41    41   41
+grey14                36    36   36
-grey17                43    43   43
+grey15                38    38   38
-grey18                46    46   46
+grey16                41    41   41
-grey19                48    48   48
+grey17                43    43   43
-grey20                51    51   51
+grey18                46    46   46
-grey21                54    54   54
+grey19                48    48   48
-grey22                56    56   56
+grey20                51    51   51
-grey23                59    59   59
+grey21                54    54   54
-grey24                61    61   61
+grey22                56    56   56
-grey25                64    64   64
+grey23                59    59   59
-grey26                66    66   66
+grey24                61    61   61
-grey27                69    69   69
+grey25                64    64   64
-grey28                71    71   71
+grey26                66    66   66
-grey29                74    74   74
+grey27                69    69   69
-grey30                77    77   77
+grey28                71    71   71
-grey31                79    79   79
+grey29                74    74   74
-grey32                82    82   82
+grey30                77    77   77
-grey33                84    84   84
+grey31                79    79   79
-grey34                87    87   87
+grey32                82    82   82
-grey35                89    89   89
+grey33                84    84   84
-grey36                92    92   92
+grey34                87    87   87
-grey37                94    94   94
+grey35                89    89   89
-grey38                97    97   97
+grey36                92    92   92
-grey39                99    99   99
+grey37                94    94   94
-grey40               102   102  102
+grey38                97    97   97
-grey41               105   105  105
+grey39                99    99   99
-grey42               107   107  107
+grey40               102   102  102
-grey43               110   110  110
+grey41               105   105  105
-grey44               112   112  112
+grey42               107   107  107
-grey45               115   115  115
+grey43               110   110  110
-grey46               117   117  117
+grey44               112   112  112
-grey47               120   120  120
+grey45               115   115  115
-grey48               122   122  122
+grey46               117   117  117
-grey49               125   125  125
+grey47               120   120  120
-grey50               127   127  127
+grey48               122   122  122
-grey51               130   130  130
+grey49               125   125  125
-grey52               133   133  133
+grey50               127   127  127
-grey53               135   135  135
+grey51               130   130  130
-grey54               138   138  138
+grey52               133   133  133
-grey55               140   140  140
+grey53               135   135  135
-grey56               143   143  143
+grey54               138   138  138
-grey57               145   145  145
+grey55               140   140  140
-grey58               148   148  148
+grey56               143   143  143
-grey59               150   150  150
+grey57               145   145  145
-grey60               153   153  153
+grey58               148   148  148
-grey61               156   156  156
+grey59               150   150  150
-grey62               158   158  158
+grey60               153   153  153
-grey63               161   161  161
+grey61               156   156  156
-grey64               163   163  163
+grey62               158   158  158
-grey65               166   166  166
+grey63               161   161  161
-grey66               168   168  168
+grey64               163   163  163
-grey67               171   171  171
+grey65               166   166  166
-grey68               173   173  173
+grey66               168   168  168
-grey69               176   176  176
+grey67               171   171  171
-grey70               179   179  179
+grey68               173   173  173
-grey71               181   181  181
+grey69               176   176  176
-grey72               184   184  184
+grey70               179   179  179
-grey73               186   186  186
+grey71               181   181  181
-grey74               189   189  189
+grey72               184   184  184
-grey75               191   191  191
+grey73               186   186  186
-grey76               194   194  194
+grey74               189   189  189
-grey77               196   196  196
+grey75               191   191  191
-grey78               199   199  199
+grey76               194   194  194
-grey79               201   201  201
+grey77               196   196  196
-grey80               204   204  204
+grey78               199   199  199
-grey81               207   207  207
+grey79               201   201  201
-grey82               209   209  209
+grey80               204   204  204
-grey83               212   212  212
+grey81               207   207  207
-grey84               214   214  214
+grey82               209   209  209
-grey85               217   217  217
+grey83               212   212  212
-grey86               219   219  219
+grey84               214   214  214
-grey87               222   222  222
+grey85               217   217  217
-grey88               224   224  224
+grey86               219   219  219
-grey89               227   227  227
+grey87               222   222  222
-grey90               229   229  229
+grey88               224   224  224
-grey91               232   232  232
+grey89               227   227  227
-grey92               235   235  235
+grey90               229   229  229
-grey93               237   237  237
+grey91               232   232  232
-grey94               240   240  240
+grey92               235   235  235
-grey95               242   242  242
+grey93               237   237  237
-grey96               245   245  245
+grey94               240   240  240
-grey97               247   247  247
+grey95               242   242  242
-grey98               250   250  250
+grey96               245   245  245
-grey99               252   252  252
+grey97               247   247  247
-grey100              255   255  255
+grey98               250   250  250
-honeydew             240   255  240
+grey99               252   252  252
-honeydew1            240   255  240
+grey100              255   255  255
-honeydew2            224   238  224
+honeydew             240   255  240
-honeydew3            193   205  193
+honeydew1            240   255  240
-honeydew4            131   139  131
+honeydew2            224   238  224
-hotpink              255   105  180
+honeydew3            193   205  193
-hotpink1             255   110  180
+honeydew4            131   139  131
-hotpink2             238   106  167
+hotpink              255   105  180
-hotpink3             205    96  144
+hotpink1             255   110  180
-hotpink4             139    58   98
+hotpink2             238   106  167
-indianred            205    92   92
+hotpink3             205    96  144
-indianred1           255   106  106
+hotpink4             139    58   98
-indianred2           238    99   99
+indianred            205    92   92
-indianred3           205    85   85
+indianred1           255   106  106
-indianred4           139    58   58
+indianred2           238    99   99
-ivory                255   255  240
+indianred3           205    85   85
-ivory1               255   255  240
+indianred4           139    58   58
-ivory2               238   238  224
+ivory                255   255  240
-ivory3               205   205  193
+ivory1               255   255  240
-ivory4               139   139  131
+ivory2               238   238  224
-khaki                240   230  140
+ivory3               205   205  193
-khaki1               255   246  143
+ivory4               139   139  131
-khaki2               238   230  133
+khaki                240   230  140
-khaki3               205   198  115
+khaki1               255   246  143
-khaki4               139   134   78
+khaki2               238   230  133
-lavender             230   230  250
+khaki3               205   198  115
-lavenderblush        255   240  245
+khaki4               139   134   78
-lavenderblush1       255   240  245
+lavender             230   230  250
-lavenderblush2       238   224  229
+lavenderblush        255   240  245
-lavenderblush3       205   193  197
+lavenderblush1       255   240  245
-lavenderblush4       139   131  134
+lavenderblush2       238   224  229
-lawngreen            124   252    0
+lavenderblush3       205   193  197
-lemonchiffon         255   250  205
+lavenderblush4       139   131  134
-lemonchiffon1        255   250  205
+lawngreen            124   252    0
-lemonchiffon2        238   233  191
+lemonchiffon         255   250  205
-lemonchiffon3        205   201  165
+lemonchiffon1        255   250  205
-lemonchiffon4        139   137  112
+lemonchiffon2        238   233  191
-lightblue            173   216  230
+lemonchiffon3        205   201  165
-lightblue1           191   239  255
+lemonchiffon4        139   137  112
-lightblue2           178   223  238
+lightblue            173   216  230
-lightblue3           154   192  205
+lightblue1           191   239  255
-lightblue4           104   131  139
+lightblue2           178   223  238
-lightcoral           240   128  128
+lightblue3           154   192  205
-lightcyan            224   255  255
+lightblue4           104   131  139
-lightcyan1           224   255  255
+lightcoral           240   128  128
-lightcyan2           209   238  238
+lightcyan            224   255  255
-lightcyan3           180   205  205
+lightcyan1           224   255  255
-lightcyan4           122   139  139
+lightcyan2           209   238  238
-lightgoldenrod       238   221  130
+lightcyan3           180   205  205
-lightgoldenrod1      255   236  139
+lightcyan4           122   139  139
-lightgoldenrod2      238   220  130
+lightgoldenrod       238   221  130
-lightgoldenrod3      205   190  112
+lightgoldenrod1      255   236  139
-lightgoldenrod4      139   129   76
+lightgoldenrod2      238   220  130
-lightgoldenrodyellow 250   250  210
+lightgoldenrod3      205   190  112
-lightgray            211   211  211
+lightgoldenrod4      139   129   76
-lightgreen           144   238  144
+lightgoldenrodyellow 250   250  210
-lightgrey            211   211  211
+lightgray            211   211  211
-lightpink            255   182  193
+lightgreen           144   238  144
-lightpink1           255   174  185
+lightgrey            211   211  211
-lightpink2           238   162  173
+lightpink            255   182  193
-lightpink3           205   140  149
+lightpink1           255   174  185
-lightpink4           139    95  101
+lightpink2           238   162  173
-lightsalmon          255   160  122
+lightpink3           205   140  149
-lightsalmon1         255   160  122
+lightpink4           139    95  101
-lightsalmon2         238   149  114
+lightsalmon          255   160  122
-lightsalmon3         205   129   98
+lightsalmon1         255   160  122
-lightsalmon4         139    87   66
+lightsalmon2         238   149  114
-lightseagreen         32   178  170
+lightsalmon3         205   129   98
-lightskyblue         135   206  250
+lightsalmon4         139    87   66
-lightskyblue1        176   226  255
+lightseagreen         32   178  170
-lightskyblue2        164   211  238
+lightskyblue         135   206  250
-lightskyblue3        141   182  205
+lightskyblue1        176   226  255
-lightskyblue4         96   123  139
+lightskyblue2        164   211  238
-lightslateblue       132   112  255
+lightskyblue3        141   182  205
-lightslategray       119   136  153
+lightskyblue4         96   123  139
-lightslategrey       119   136  153
+lightslateblue       132   112  255
-lightsteelblue       176   196  222
+lightslategray       119   136  153
-lightsteelblue1      202   225  255
+lightslategrey       119   136  153
-lightsteelblue2      188   210  238
+lightsteelblue       176   196  222
-lightsteelblue3      162   181  205
+lightsteelblue1      202   225  255
-lightsteelblue4      110   123  139
+lightsteelblue2      188   210  238
-lightyellow          255   255  224
+lightsteelblue3      162   181  205
-lightyellow1         255   255  224
+lightsteelblue4      110   123  139
-lightyellow2         238   238  209
+lightyellow          255   255  224
-lightyellow3         205   205  180
+lightyellow1         255   255  224
-lightyellow4         139   139  122
+lightyellow2         238   238  209
-limegreen             50   205   50
+lightyellow3         205   205  180
-linen                250   240  230
+lightyellow4         139   139  122
-magenta              255     0  255
+limegreen             50   205   50
-magenta1             255     0  255
+linen                250   240  230
-magenta2             238     0  238
+magenta              255     0  255
-magenta3             205     0  205
+magenta1             255     0  255
-magenta4             139     0  139
+magenta2             238     0  238
-maroon               176    48   96
+magenta3             205     0  205
-maroon1              255    52  179
+magenta4             139     0  139
-maroon2              238    48  167
+maroon               176    48   96
-maroon3              205    41  144
+maroon1              255    52  179
-maroon4              139    28   98
+maroon2              238    48  167
-mediumaquamarine     102   205  170
+maroon3              205    41  144
-mediumblue             0     0  205
+maroon4              139    28   98
-mediumorchid         186    85  211
+mediumaquamarine     102   205  170
-mediumorchid1        224   102  255
+mediumblue             0     0  205
-mediumorchid2        209    95  238
+mediumorchid         186    85  211
-mediumorchid3        180    82  205
+mediumorchid1        224   102  255
-mediumorchid4        122    55  139
+mediumorchid2        209    95  238
-mediumpurple         147   112  219
+mediumorchid3        180    82  205
-mediumpurple1        171   130  255
+mediumorchid4        122    55  139
-mediumpurple2        159   121  238
+mediumpurple         147   112  219
-mediumpurple3        137   104  205
+mediumpurple1        171   130  255
-mediumpurple4         93    71  139
+mediumpurple2        159   121  238
-mediumseagreen        60   179  113
+mediumpurple3        137   104  205
-mediumslateblue      123   104  238
+mediumpurple4         93    71  139
-mediumspringgreen      0   250  154
+mediumseagreen        60   179  113
-mediumturquoise       72   209  204
+mediumslateblue      123   104  238
-mediumvioletred      199    21  133
+mediumspringgreen      0   250  154
-midnightblue          25    25  112
+mediumturquoise       72   209  204
-mintcream            245   255  250
+mediumvioletred      199    21  133
-mistyrose            255   228  225
+midnightblue          25    25  112
-mistyrose1           255   228  225
+mintcream            245   255  250
-mistyrose2           238   213  210
+mistyrose            255   228  225
-mistyrose3           205   183  181
+mistyrose1           255   228  225
-mistyrose4           139   125  123
+mistyrose2           238   213  210
-moccasin             255   228  181
+mistyrose3           205   183  181
-navajowhite          255   222  173
+mistyrose4           139   125  123
-navajowhite1         255   222  173
+moccasin             255   228  181
-navajowhite2         238   207  161
+navajowhite          255   222  173
-navajowhite3         205   179  139
+navajowhite1         255   222  173
-navajowhite4         139   121   94
+navajowhite2         238   207  161
-navy                   0     0  128
+navajowhite3         205   179  139
-navyblue               0     0  128
+navajowhite4         139   121   94
-oldlace              253   245  230
+navy                   0     0  128
-olivedrab            107   142   35
+navyblue               0     0  128
-olivedrab1           192   255   62
+oldlace              253   245  230
-olivedrab2           179   238   58
+olivedrab            107   142   35
-olivedrab3           154   205   50
+olivedrab1           192   255   62
-olivedrab4           105   139   34
+olivedrab2           179   238   58
-orange               255   165    0
+olivedrab3           154   205   50
-orange1              255   165    0
+olivedrab4           105   139   34
-orange2              238   154    0
+orange               255   165    0
-orange3              205   133    0
+orange1              255   165    0
-orange4              139    90    0
+orange2              238   154    0
-orangered            255    69    0
+orange3              205   133    0
-orangered1           255    69    0
+orange4              139    90    0
-orangered2           238    64    0
+orangered            255    69    0
-orangered3           205    55    0
+orangered1           255    69    0
-orangered4           139    37    0
+orangered2           238    64    0
-orchid               218   112  214
+orangered3           205    55    0
-orchid1              255   131  250
+orangered4           139    37    0
-orchid2              238   122  233
+orchid               218   112  214
-orchid3              205   105  201
+orchid1              255   131  250
-orchid4              139    71  137
+orchid2              238   122  233
-palegoldenrod        238   232  170
+orchid3              205   105  201
-palegreen            152   251  152
+orchid4              139    71  137
-palegreen1           154   255  154
+palegoldenrod        238   232  170
-palegreen2           144   238  144
+palegreen            152   251  152
-palegreen3           124   205  124
+palegreen1           154   255  154
-palegreen4            84   139   84
+palegreen2           144   238  144
-paleturquoise        175   238  238
+palegreen3           124   205  124
-paleturquoise1       187   255  255
+palegreen4            84   139   84
-paleturquoise2       174   238  238
+paleturquoise        175   238  238
-paleturquoise3       150   205  205
+paleturquoise1       187   255  255
-paleturquoise4       102   139  139
+paleturquoise2       174   238  238
-palevioletred        219   112  147
+paleturquoise3       150   205  205
-palevioletred1       255   130  171
+paleturquoise4       102   139  139
-palevioletred2       238   121  159
+palevioletred        219   112  147
-palevioletred3       205   104  137
+palevioletred1       255   130  171
-palevioletred4       139    71   93
+palevioletred2       238   121  159
-papayawhip           255   239  213
+palevioletred3       205   104  137
-peachpuff            255   218  185
+palevioletred4       139    71   93
-peachpuff1           255   218  185
+papayawhip           255   239  213
-peachpuff2           238   203  173
+peachpuff            255   218  185
-peachpuff3           205   175  149
+peachpuff1           255   218  185
-peachpuff4           139   119  101
+peachpuff2           238   203  173
-peru                 205   133   63
+peachpuff3           205   175  149
-pink                 255   192  203
+peachpuff4           139   119  101
-pink1                255   181  197
+peru                 205   133   63
-pink2                238   169  184
+pink                 255   192  203
-pink3                205   145  158
+pink1                255   181  197
-pink4                139    99  108
+pink2                238   169  184
-plum                 221   160  221
+pink3                205   145  158
-plum1                255   187  255
+pink4                139    99  108
-plum2                238   174  238
+plum                 221   160  221
-plum3                205   150  205
+plum1                255   187  255
-plum4                139   102  139
+plum2                238   174  238
-powderblue           176   224  230
+plum3                205   150  205
-purple               160    32  240
+plum4                139   102  139
-purple1              155    48  255
+powderblue           176   224  230
-purple2              145    44  238
+purple               160    32  240
-purple3              125    38  205
+purple1              155    48  255
-purple4               85    26  139
+purple2              145    44  238
-red                  255     0    0
+purple3              125    38  205
-red1                 255     0    0
+purple4               85    26  139
-red2                 238     0    0
+red                  255     0    0
-red3                 205     0    0
+red1                 255     0    0
-red4                 139     0    0
+red2                 238     0    0
-rosybrown            188   143  143
+red3                 205     0    0
-rosybrown1           255   193  193
+red4                 139     0    0
-rosybrown2           238   180  180
+rosybrown            188   143  143
-rosybrown3           205   155  155
+rosybrown1           255   193  193
-rosybrown4           139   105  105
+rosybrown2           238   180  180
-royalblue             65   105  225
+rosybrown3           205   155  155
-royalblue1            72   118  255
+rosybrown4           139   105  105
-royalblue2            67   110  238
+royalblue             65   105  225
-royalblue3            58    95  205
+royalblue1            72   118  255
-royalblue4            39    64  139
+royalblue2            67   110  238
-saddlebrown          139    69   19
+royalblue3            58    95  205
-salmon               250   128  114
+royalblue4            39    64  139
-salmon1              255   140  105
+saddlebrown          139    69   19
-salmon2              238   130   98
+salmon               250   128  114
-salmon3              205   112   84
+salmon1              255   140  105
-salmon4              139    76   57
+salmon2              238   130   98
-sandybrown           244   164   96
+salmon3              205   112   84
-seagreen              46   139   87
+salmon4              139    76   57
-seagreen1             84   255  159
+sandybrown           244   164   96
-seagreen2             78   238  148
+seagreen              46   139   87
-seagreen3             67   205  128
+seagreen1             84   255  159
-seagreen4             46   139   87
+seagreen2             78   238  148
-seashell             255   245  238
+seagreen3             67   205  128
-seashell1            255   245  238
+seagreen4             46   139   87
-seashell2            238   229  222
+seashell             255   245  238
-seashell3            205   197  191
+seashell1            255   245  238
-seashell4            139   134  130
+seashell2            238   229  222
-sienna               160    82   45
+seashell3            205   197  191
-sienna1              255   130   71
+seashell4            139   134  130
-sienna2              238   121   66
+sienna               160    82   45
-sienna3              205   104   57
+sienna1              255   130   71
-sienna4              139    71   38
+sienna2              238   121   66
-skyblue              135   206  235
+sienna3              205   104   57
-skyblue1             135   206  255
+sienna4              139    71   38
-skyblue2             126   192  238
+skyblue              135   206  235
-skyblue3             108   166  205
+skyblue1             135   206  255
-skyblue4              74   112  139
+skyblue2             126   192  238
-slateblue            106    90  205
+skyblue3             108   166  205
-slateblue1           131   111  255
+skyblue4              74   112  139
-slateblue2           122   103  238
+slateblue            106    90  205
-slateblue3           105    89  205
+slateblue1           131   111  255
-slateblue4            71    60  139
+slateblue2           122   103  238
-slategray            112   128  144
+slateblue3           105    89  205
-slategray1           198   226  255
+slateblue4            71    60  139
-slategray2           185   211  238
+slategray            112   128  144
-slategray3           159   182  205
+slategray1           198   226  255
-slategray4           108   123  139
+slategray2           185   211  238
-slategrey            112   128  144
+slategray3           159   182  205
-snow                 255   250  250
+slategray4           108   123  139
-snow1                255   250  250
+slategrey            112   128  144
-snow2                238   233  233
+snow                 255   250  250
-snow3                205   201  201
+snow1                255   250  250
-snow4                139   137  137
+snow2                238   233  233
-springgreen            0   255  127
+snow3                205   201  201
-springgreen1           0   255  127
+snow4                139   137  137
-springgreen2           0   238  118
+springgreen            0   255  127
-springgreen3           0   205  102
+springgreen1           0   255  127
-springgreen4           0   139   69
+springgreen2           0   238  118
-steelblue             70   130  180
+springgreen3           0   205  102
-steelblue1            99   184  255
+springgreen4           0   139   69
-steelblue2            92   172  238
+steelblue             70   130  180
-steelblue3            79   148  205
+steelblue1            99   184  255
-steelblue4            54   100  139
+steelblue2            92   172  238
-tan                  210   180  140
+steelblue3            79   148  205
-tan1                 255   165   79
+steelblue4            54   100  139
-tan2                 238   154   73
+tan                  210   180  140
-tan3                 205   133   63
+tan1                 255   165   79
-tan4                 139    90   43
+tan2                 238   154   73
-thistle              216   191  216
+tan3                 205   133   63
-thistle1             255   225  255
+tan4                 139    90   43
-thistle2             238   210  238
+thistle              216   191  216
-thistle3             205   181  205
+thistle1             255   225  255
-thistle4             139   123  139
+thistle2             238   210  238
-tomato               255    99   71
+thistle3             205   181  205
-tomato1              255    99   71
+thistle4             139   123  139
-tomato2              238    92   66
+tomato               255    99   71
-tomato3              205    79   57
+tomato1              255    99   71
-tomato4              139    54   38
+tomato2              238    92   66
-turquoise             64   224  208
+tomato3              205    79   57
-turquoise1             0   245  255
+tomato4              139    54   38
-turquoise2             0   229  238
+turquoise             64   224  208
-turquoise3             0   197  205
+turquoise1             0   245  255
-turquoise4             0   134  139
+turquoise2             0   229  238
-violet               238   130  238
+turquoise3             0   197  205
-violetred            208    32  144
+turquoise4             0   134  139
-violetred1           255    62  150
+violet               238   130  238
-violetred2           238    58  140
+violetred            208    32  144
-violetred3           205    50  120
+violetred1           255    62  150
-violetred4           139    34   82
+violetred2           238    58  140
-wheat                245   222  179
+violetred3           205    50  120
-wheat1               255   231  186
+violetred4           139    34   82
-wheat2               238   216  174
+wheat                245   222  179
-wheat3               205   186  150
+wheat1               255   231  186
-wheat4               139   126  102
+wheat2               238   216  174
-whitesmoke           245   245  245
+wheat3               205   186  150
-yellow               255   255    0
+wheat4               139   126  102
-yellow1              255   255    0
+whitesmoke           245   245  245
-yellow2              238   238    0
+yellow               255   255    0
-yellow3              205   205    0
+yellow1              255   255    0
-yellow4              139   139    0
+yellow2              238   238    0
-yellowgreen          154   205   50
+yellow3              205   205    0
->
+yellow4              139   139    0
-> ccodes <- c(256^(2:0) %*% crgb)## = internal codes
+yellowgreen          154   205   50
-> ## How many names are 'aliases' of each other:
+>
-> table(tcc <- table(ccodes))
+> ccodes <- c(256^(2:0) %*% crgb)## = internal codes
+> ## How many names are 'aliases' of each other:
-2   3   4
+> table(tcc <- table(ccodes))
-146   3   1
-> length(uc <- unique(sort(ccodes))) # 502
+2   3   4
-[1] 502
+146   3   1
-> ## All the multiply named colors:
+> length(uc <- unique(sort(ccodes))) # 502
-> mult <- uc[tcc >= 2]
+[1] 502
-> cl <- lapply(mult, function(m) cc[ccodes == m])
+> ## All the multiply named colors:
-> names(cl) <- apply(col2rgb(sapply(cl, function(x)x[1])),
+> mult <- uc[tcc >= 2]
-+                    2, function(n)paste(n, collapse=","))
+> cl <- lapply(mult, function(m) cc[ccodes == m])
-> utils::str(cl)
+> names(cl) <- apply(col2rgb(sapply(cl, function(x)x[1])),
-List of 150
++                    2, function(n)paste(n, collapse=","))
- $ 0,0,0      : chr [1:3] "black" "gray0" "grey0"
+> utils::str(cl)
- $ 0,0,128    : chr [1:2] "navy" "navyblue"
+List of 150
- $ 0,0,139    : chr [1:2] "blue4" "darkblue"
+ $ 0,0,0      : chr [1:3] "black" "gray0" "grey0"
- $ 0,0,205    : chr [1:2] "blue3" "mediumblue"
+ $ 0,0,128    : chr [1:2] "navy" "navyblue"
- $ 0,0,255    : chr [1:2] "blue" "blue1"
+ $ 0,0,139    : chr [1:2] "blue4" "darkblue"
- $ 0,139,139  : chr [1:2] "cyan4" "darkcyan"
+ $ 0,0,205    : chr [1:2] "blue3" "mediumblue"
- $ 0,191,255  : chr [1:2] "deepskyblue" "deepskyblue1"
+ $ 0,0,255    : chr [1:2] "blue" "blue1"
- $ 0,255,0    : chr [1:2] "green" "green1"
+ $ 0,139,139  : chr [1:2] "cyan4" "darkcyan"
- $ 0,255,127  : chr [1:2] "springgreen" "springgreen1"
+ $ 0,191,255  : chr [1:2] "deepskyblue" "deepskyblue1"
- $ 0,255,255  : chr [1:2] "cyan" "cyan1"
+ $ 0,255,0    : chr [1:2] "green" "green1"
- $ 3,3,3      : chr [1:2] "gray1" "grey1"
+ $ 0,255,127  : chr [1:2] "springgreen" "springgreen1"
- $ 5,5,5      : chr [1:2] "gray2" "grey2"
+ $ 0,255,255  : chr [1:2] "cyan" "cyan1"
- $ 8,8,8      : chr [1:2] "gray3" "grey3"
+ $ 3,3,3      : chr [1:2] "gray1" "grey1"
- $ 10,10,10   : chr [1:2] "gray4" "grey4"
+ $ 5,5,5      : chr [1:2] "gray2" "grey2"
- $ 13,13,13   : chr [1:2] "gray5" "grey5"
+ $ 8,8,8      : chr [1:2] "gray3" "grey3"
- $ 15,15,15   : chr [1:2] "gray6" "grey6"
+ $ 10,10,10   : chr [1:2] "gray4" "grey4"
- $ 18,18,18   : chr [1:2] "gray7" "grey7"
+ $ 13,13,13   : chr [1:2] "gray5" "grey5"
- $ 20,20,20   : chr [1:2] "gray8" "grey8"
+ $ 15,15,15   : chr [1:2] "gray6" "grey6"
- $ 23,23,23   : chr [1:2] "gray9" "grey9"
+ $ 18,18,18   : chr [1:2] "gray7" "grey7"
- $ 26,26,26   : chr [1:2] "gray10" "grey10"
+ $ 20,20,20   : chr [1:2] "gray8" "grey8"
- $ 28,28,28   : chr [1:2] "gray11" "grey11"
+ $ 23,23,23   : chr [1:2] "gray9" "grey9"
- $ 30,144,255 : chr [1:2] "dodgerblue" "dodgerblue1"
+ $ 26,26,26   : chr [1:2] "gray10" "grey10"
- $ 31,31,31   : chr [1:2] "gray12" "grey12"
+ $ 28,28,28   : chr [1:2] "gray11" "grey11"
- $ 33,33,33   : chr [1:2] "gray13" "grey13"
+ $ 30,144,255 : chr [1:2] "dodgerblue" "dodgerblue1"
- $ 36,36,36   : chr [1:2] "gray14" "grey14"
+ $ 31,31,31   : chr [1:2] "gray12" "grey12"
- $ 38,38,38   : chr [1:2] "gray15" "grey15"
+ $ 33,33,33   : chr [1:2] "gray13" "grey13"
- $ 41,41,41   : chr [1:2] "gray16" "grey16"
+ $ 36,36,36   : chr [1:2] "gray14" "grey14"
- $ 43,43,43   : chr [1:2] "gray17" "grey17"
+ $ 38,38,38   : chr [1:2] "gray15" "grey15"
- $ 46,46,46   : chr [1:2] "gray18" "grey18"
+ $ 41,41,41   : chr [1:2] "gray16" "grey16"
- $ 46,139,87  : chr [1:2] "seagreen" "seagreen4"
+ $ 43,43,43   : chr [1:2] "gray17" "grey17"
- $ 47,79,79   : chr [1:2] "darkslategray" "darkslategrey"
+ $ 46,46,46   : chr [1:2] "gray18" "grey18"
- $ 48,48,48   : chr [1:2] "gray19" "grey19"
+ $ 46,139,87  : chr [1:2] "seagreen" "seagreen4"
- $ 51,51,51   : chr [1:2] "gray20" "grey20"
+ $ 47,79,79   : chr [1:2] "darkslategray" "darkslategrey"
- $ 54,54,54   : chr [1:2] "gray21" "grey21"
+ $ 48,48,48   : chr [1:2] "gray19" "grey19"
- $ 56,56,56   : chr [1:2] "gray22" "grey22"
+ $ 51,51,51   : chr [1:2] "gray20" "grey20"
- $ 59,59,59   : chr [1:2] "gray23" "grey23"
+ $ 54,54,54   : chr [1:2] "gray21" "grey21"
- $ 61,61,61   : chr [1:2] "gray24" "grey24"
+ $ 56,56,56   : chr [1:2] "gray22" "grey22"
- $ 64,64,64   : chr [1:2] "gray25" "grey25"
+ $ 59,59,59   : chr [1:2] "gray23" "grey23"
- $ 66,66,66   : chr [1:2] "gray26" "grey26"
+ $ 61,61,61   : chr [1:2] "gray24" "grey24"
- $ 69,69,69   : chr [1:2] "gray27" "grey27"
+ $ 64,64,64   : chr [1:2] "gray25" "grey25"
- $ 71,71,71   : chr [1:2] "gray28" "grey28"
+ $ 66,66,66   : chr [1:2] "gray26" "grey26"
- $ 74,74,74   : chr [1:2] "gray29" "grey29"
+ $ 69,69,69   : chr [1:2] "gray27" "grey27"
- $ 77,77,77   : chr [1:2] "gray30" "grey30"
+ $ 71,71,71   : chr [1:2] "gray28" "grey28"
- $ 79,79,79   : chr [1:2] "gray31" "grey31"
+ $ 74,74,74   : chr [1:2] "gray29" "grey29"
- $ 82,82,82   : chr [1:2] "gray32" "grey32"
+ $ 77,77,77   : chr [1:2] "gray30" "grey30"
- $ 84,84,84   : chr [1:2] "gray33" "grey33"
+ $ 79,79,79   : chr [1:2] "gray31" "grey31"
- $ 87,87,87   : chr [1:2] "gray34" "grey34"
+ $ 82,82,82   : chr [1:2] "gray32" "grey32"
- $ 89,89,89   : chr [1:2] "gray35" "grey35"
+ $ 84,84,84   : chr [1:2] "gray33" "grey33"
- $ 92,92,92   : chr [1:2] "gray36" "grey36"
+ $ 87,87,87   : chr [1:2] "gray34" "grey34"
- $ 94,94,94   : chr [1:2] "gray37" "grey37"
+ $ 89,89,89   : chr [1:2] "gray35" "grey35"
- $ 97,97,97   : chr [1:2] "gray38" "grey38"
+ $ 92,92,92   : chr [1:2] "gray36" "grey36"
- $ 99,99,99   : chr [1:2] "gray39" "grey39"
+ $ 94,94,94   : chr [1:2] "gray37" "grey37"
- $ 102,102,102: chr [1:2] "gray40" "grey40"
+ $ 97,97,97   : chr [1:2] "gray38" "grey38"
- $ 102,205,170: chr [1:2] "aquamarine3" "mediumaquamarine"
+ $ 99,99,99   : chr [1:2] "gray39" "grey39"
- $ 105,105,105: chr [1:4] "dimgray" "dimgrey" "gray41" "grey41"
+ $ 102,102,102: chr [1:2] "gray40" "grey40"
- $ 107,107,107: chr [1:2] "gray42" "grey42"
+ $ 102,205,170: chr [1:2] "aquamarine3" "mediumaquamarine"
- $ 110,110,110: chr [1:2] "gray43" "grey43"
+ $ 105,105,105: chr [1:4] "dimgray" "dimgrey" "gray41" "grey41"
- $ 112,112,112: chr [1:2] "gray44" "grey44"
+ $ 107,107,107: chr [1:2] "gray42" "grey42"
- $ 112,128,144: chr [1:2] "slategray" "slategrey"
+ $ 110,110,110: chr [1:2] "gray43" "grey43"
- $ 115,115,115: chr [1:2] "gray45" "grey45"
+ $ 112,112,112: chr [1:2] "gray44" "grey44"
- $ 117,117,117: chr [1:2] "gray46" "grey46"
+ $ 112,128,144: chr [1:2] "slategray" "slategrey"
- $ 119,136,153: chr [1:2] "lightslategray" "lightslategrey"
+ $ 115,115,115: chr [1:2] "gray45" "grey45"
- $ 120,120,120: chr [1:2] "gray47" "grey47"
+ $ 117,117,117: chr [1:2] "gray46" "grey46"
- $ 122,122,122: chr [1:2] "gray48" "grey48"
+ $ 119,136,153: chr [1:2] "lightslategray" "lightslategrey"
- $ 125,125,125: chr [1:2] "gray49" "grey49"
+ $ 120,120,120: chr [1:2] "gray47" "grey47"
- $ 127,127,127: chr [1:2] "gray50" "grey50"
+ $ 122,122,122: chr [1:2] "gray48" "grey48"
- $ 127,255,0  : chr [1:2] "chartreuse" "chartreuse1"
+ $ 125,125,125: chr [1:2] "gray49" "grey49"
- $ 127,255,212: chr [1:2] "aquamarine" "aquamarine1"
+ $ 127,127,127: chr [1:2] "gray50" "grey50"
- $ 130,130,130: chr [1:2] "gray51" "grey51"
+ $ 127,255,0  : chr [1:2] "chartreuse" "chartreuse1"
- $ 133,133,133: chr [1:2] "gray52" "grey52"
+ $ 127,255,212: chr [1:2] "aquamarine" "aquamarine1"
- $ 135,135,135: chr [1:2] "gray53" "grey53"
+ $ 130,130,130: chr [1:2] "gray51" "grey51"
- $ 138,138,138: chr [1:2] "gray54" "grey54"
+ $ 133,133,133: chr [1:2] "gray52" "grey52"
- $ 139,0,0    : chr [1:2] "darkred" "red4"
+ $ 135,135,135: chr [1:2] "gray53" "grey53"
- $ 139,0,139  : chr [1:2] "darkmagenta" "magenta4"
+ $ 138,138,138: chr [1:2] "gray54" "grey54"
- $ 139,69,19  : chr [1:2] "chocolate4" "saddlebrown"
+ $ 139,0,0    : chr [1:2] "darkred" "red4"
- $ 140,140,140: chr [1:2] "gray55" "grey55"
+ $ 139,0,139  : chr [1:2] "darkmagenta" "magenta4"
- $ 143,143,143: chr [1:2] "gray56" "grey56"
+ $ 139,69,19  : chr [1:2] "chocolate4" "saddlebrown"
- $ 144,238,144: chr [1:2] "lightgreen" "palegreen2"
+ $ 140,140,140: chr [1:2] "gray55" "grey55"
- $ 145,145,145: chr [1:2] "gray57" "grey57"
+ $ 143,143,143: chr [1:2] "gray56" "grey56"
- $ 148,148,148: chr [1:2] "gray58" "grey58"
+ $ 144,238,144: chr [1:2] "lightgreen" "palegreen2"
- $ 150,150,150: chr [1:2] "gray59" "grey59"
+ $ 145,145,145: chr [1:2] "gray57" "grey57"
- $ 153,153,153: chr [1:2] "gray60" "grey60"
+ $ 148,148,148: chr [1:2] "gray58" "grey58"
- $ 154,205,50 : chr [1:2] "olivedrab3" "yellowgreen"
+ $ 150,150,150: chr [1:2] "gray59" "grey59"
- $ 156,156,156: chr [1:2] "gray61" "grey61"
+ $ 153,153,153: chr [1:2] "gray60" "grey60"
- $ 158,158,158: chr [1:2] "gray62" "grey62"
+ $ 154,205,50 : chr [1:2] "olivedrab3" "yellowgreen"
- $ 161,161,161: chr [1:2] "gray63" "grey63"
+ $ 156,156,156: chr [1:2] "gray61" "grey61"
- $ 163,163,163: chr [1:2] "gray64" "grey64"
+ $ 158,158,158: chr [1:2] "gray62" "grey62"
- $ 166,166,166: chr [1:2] "gray65" "grey65"
+ $ 161,161,161: chr [1:2] "gray63" "grey63"
- $ 168,168,168: chr [1:2] "gray66" "grey66"
+ $ 163,163,163: chr [1:2] "gray64" "grey64"
- $ 169,169,169: chr [1:2] "darkgray" "darkgrey"
+ $ 166,166,166: chr [1:2] "gray65" "grey65"
- $ 171,171,171: chr [1:2] "gray67" "grey67"
+ $ 168,168,168: chr [1:2] "gray66" "grey66"
- $ 173,173,173: chr [1:2] "gray68" "grey68"
+ $ 169,169,169: chr [1:2] "darkgray" "darkgrey"
- $ 176,176,176: chr [1:2] "gray69" "grey69"
+ $ 171,171,171: chr [1:2] "gray67" "grey67"
- $ 179,179,179: chr [1:2] "gray70" "grey70"
+ $ 173,173,173: chr [1:2] "gray68" "grey68"
- $ 181,181,181: chr [1:2] "gray71" "grey71"
+ $ 176,176,176: chr [1:2] "gray69" "grey69"
- $ 184,184,184: chr [1:2] "gray72" "grey72"
+ $ 179,179,179: chr [1:2] "gray70" "grey70"
- $ 186,186,186: chr [1:2] "gray73" "grey73"
+ $ 181,181,181: chr [1:2] "gray71" "grey71"
- $ 189,189,189: chr [1:2] "gray74" "grey74"
+ $ 184,184,184: chr [1:2] "gray72" "grey72"
- $ 190,190,190: chr [1:2] "gray" "grey"
+ $ 186,186,186: chr [1:2] "gray73" "grey73"
-  [list output truncated]
+ $ 189,189,189: chr [1:2] "gray74" "grey74"
-> ## Not run:
+ $ 190,190,190: chr [1:2] "gray" "grey"
-> ##D  if(require(xgobi)) { ## Look at the color cube dynamically :
+  [list output truncated]
-> ##D    tc <- t(crgb[, !duplicated(ccodes)])
+> ## Not run:
-> ##D    table(is.gray <- tc[,1] == tc[,2] & tc[,2] == tc[,3])# (397, 105)
+> ##D  if(require(xgobi)) { ## Look at the color cube dynamically :
-> ##D    xgobi(tc, color = c("gold", "gray")[1 + is.gray])
+> ##D    tc <- t(crgb[, !duplicated(ccodes)])
-> ##D  }
+> ##D    table(is.gray <- tc[,1] == tc[,2] & tc[,2] == tc[,3])# (397, 105)
-> ## End(Not run)
+> ##D    xgobi(tc, color = c("gold", "gray")[1 + is.gray])
->
+> ##D  }
->
+> ## End(Not run)
 >
-> cleanEx()
+>
-> nameEx("colorRamp")
+>
-> ### * colorRamp
+> cleanEx()
->
+> nameEx("colorRamp")
-> flush(stderr()); flush(stdout())
+> ### * colorRamp
 >
-> ### Name: colorRamp
+> flush(stderr()); flush(stdout())
-> ### Title: Color interpolation
+>
-> ### Aliases: colorRamp colorRampPalette
+> ### Name: colorRamp
-> ### Keywords: color
+> ### Title: Color interpolation
->
+> ### Aliases: colorRamp colorRampPalette
-> ### ** Examples
+> ### Keywords: color
 >
-> require(graphics)
+> ### ** Examples
 >
-> ## Here space="rgb" gives palettes that vary only in saturation,
+> require(graphics)
-> ## as intended.
+>
-> ## With space="Lab" the steps are more uniform, but the hues
+> ## Here space="rgb" gives palettes that vary only in saturation,
-> ## are slightly purple.
+> ## as intended.
-> filled.contour(volcano,
+> ## With space="Lab" the steps are more uniform, but the hues
-+                color.palette =
+> ## are slightly purple.
-+                    colorRampPalette(c("red", "white", "blue")),
+> filled.contour(volcano,
-+                asp = 1)
++                color.palette =
-> filled.contour(volcano,
++                    colorRampPalette(c("red", "white", "blue")),
-+                color.palette =
++                asp = 1)
-+                    colorRampPalette(c("red", "white", "blue"),
+> filled.contour(volcano,
-+                                     space = "Lab"),
++                color.palette =
-+                asp = 1)
++                    colorRampPalette(c("red", "white", "blue"),
->
++                                     space = "Lab"),
-> ## Interpolating a 'sequential' ColorBrewer palette
++                asp = 1)
-> YlOrBr <- c("#FFFFD4", "#FED98E", "#FE9929", "#D95F0E", "#993404")
+>
-> filled.contour(volcano,
+> ## Interpolating a 'sequential' ColorBrewer palette
-+                color.palette = colorRampPalette(YlOrBr, space = "Lab"),
+> YlOrBr <- c("#FFFFD4", "#FED98E", "#FE9929", "#D95F0E", "#993404")
-+                asp = 1)
+> filled.contour(volcano,
-> filled.contour(volcano,
++                color.palette = colorRampPalette(YlOrBr, space = "Lab"),
-+                color.palette = colorRampPalette(YlOrBr, space = "Lab",
++                asp = 1)
-+                                                 bias = 0.5),
+> filled.contour(volcano,
-+                asp = 1)
++                color.palette = colorRampPalette(YlOrBr, space = "Lab",
->
++                                                 bias = 0.5),
-> ## 'jet.colors' is "as in Matlab"
++                asp = 1)
-> ## (and hurting the eyes by over-saturation)
+>
-> jet.colors <-
+> ## 'jet.colors' is "as in Matlab"
-+   colorRampPalette(c("#00007F", "blue", "#007FFF", "cyan",
+> ## (and hurting the eyes by over-saturation)
-+                      "#7FFF7F", "yellow", "#FF7F00", "red", "#7F0000"))
+> jet.colors <-
-> filled.contour(volcano, color = jet.colors, asp = 1)
++   colorRampPalette(c("#00007F", "blue", "#007FFF", "cyan",
->
++                      "#7FFF7F", "yellow", "#FF7F00", "red", "#7F0000"))
-> ## space="Lab" helps when colors don't form a natural sequence
+> filled.contour(volcano, color = jet.colors, asp = 1)
-> m <- outer(1:20,1:20,function(x,y) sin(sqrt(x*y)/3))
+>
-> rgb.palette <- colorRampPalette(c("red", "orange", "blue"),
+> ## space="Lab" helps when colors don't form a natural sequence
-+                                 space = "rgb")
+> m <- outer(1:20,1:20,function(x,y) sin(sqrt(x*y)/3))
-> Lab.palette <- colorRampPalette(c("red", "orange", "blue"),
+> rgb.palette <- colorRampPalette(c("red", "orange", "blue"),
-+                                 space = "Lab")
++                                 space = "rgb")
-> filled.contour(m, col = rgb.palette(20))
+> Lab.palette <- colorRampPalette(c("red", "orange", "blue"),
-> filled.contour(m, col = Lab.palette(20))
++                                 space = "Lab")
->
+> filled.contour(m, col = rgb.palette(20))
->
+> filled.contour(m, col = Lab.palette(20))
 >
-> cleanEx()
+>
-> nameEx("colors")
+>
-> ### * colors
+> cleanEx()
->
+> nameEx("colors")
-> flush(stderr()); flush(stdout())
+> ### * colors
 >
-> ### Name: colors
+> flush(stderr()); flush(stdout())
-> ### Title: Color Names
+>
-> ### Aliases: colors colours
+> ### Name: colors
-> ### Keywords: color dplot sysdata
+> ### Title: Color Names
->
+> ### Aliases: colors colours
-> ### ** Examples
+> ### Keywords: color dplot sysdata
 >
-> cl <- colors()
+> ### ** Examples
-> length(cl); cl[1:20]
+>
-[1] 657
+> cl <- colors()
- [1] "white"         "aliceblue"     "antiquewhite"  "antiquewhite1"
+> length(cl); cl[1:20]
- [5] "antiquewhite2" "antiquewhite3" "antiquewhite4" "aquamarine"
+[1] 657
- [9] "aquamarine1"   "aquamarine2"   "aquamarine3"   "aquamarine4"
+ [1] "white"         "aliceblue"     "antiquewhite"  "antiquewhite1"
-[13] "azure"         "azure1"        "azure2"        "azure3"
+ [5] "antiquewhite2" "antiquewhite3" "antiquewhite4" "aquamarine"
-[17] "azure4"        "beige"         "bisque"        "bisque1"
+ [9] "aquamarine1"   "aquamarine2"   "aquamarine3"   "aquamarine4"
->
+[13] "azure"         "azure1"        "azure2"        "azure3"
->
+[17] "azure4"        "beige"         "bisque"        "bisque1"
 >
-> cleanEx()
+>
-> nameEx("contourLines")
+>
-> ### * contourLines
+> cleanEx()
->
+> nameEx("contourLines")
-> flush(stderr()); flush(stdout())
+> ### * contourLines
 >
-> ### Name: contourLines
+> flush(stderr()); flush(stdout())
-> ### Title: Calculate Contour Lines
+>
-> ### Aliases: contourLines
+> ### Name: contourLines
-> ### Keywords: dplot
+> ### Title: Calculate Contour Lines
->
+> ### Aliases: contourLines
-> ### ** Examples
+> ### Keywords: dplot
 >
-> x <- 10*1:nrow(volcano)
+> ### ** Examples
-> y <- 10*1:ncol(volcano)
+>
-> contourLines(x, y, volcano)
+> x <- 10*1:nrow(volcano)
->
+> y <- 10*1:ncol(volcano)
->
+> contourLines(x, y, volcano)
 >
-> cleanEx()
+>
-> nameEx("convertColor")
+>
-> ### * convertColor
+> cleanEx()
->
+> nameEx("convertColor")
-> flush(stderr()); flush(stdout())
+> ### * convertColor
 >
-> ### Name: convertColor
+> flush(stderr()); flush(stdout())
-> ### Title: Convert between colour spaces
+>
-> ### Aliases: convertColor colorspaces
+> ### Name: convertColor
-> ### Keywords: color
+> ### Title: Convert between colour spaces
->
+> ### Aliases: convertColor colorspaces
-> ### ** Examples
+> ### Keywords: color
 >
-> require(graphics); require(stats) # for na.omit
+> ### ** Examples
-> par(mfrow=c(2,2))
+>
-> ## The displayable colors from four planes of Lab space
+> require(graphics); require(stats) # for na.omit
-> ab <- expand.grid(a=(-10:15)*10,b=(-15:10)*10)
+> par(mfrow=c(2,2))
->
+> ## The displayable colors from four planes of Lab space
-> Lab <- cbind(L=20,ab)
+> ab <- expand.grid(a=(-10:15)*10,b=(-15:10)*10)
-> srgb <- convertColor(Lab,from="Lab",to="sRGB",clip=NA)
+>
-> clipped <- attr(na.omit(srgb),"na.action")
+> Lab <- cbind(L=20,ab)
-> srgb[clipped,] <- 0
+> srgb <- convertColor(Lab,from="Lab",to="sRGB",clip=NA)
-> cols <- rgb(srgb[,1],srgb[,2],srgb[,3])
+> clipped <- attr(na.omit(srgb),"na.action")
-> image((-10:15)*10,(-15:10)*10,matrix(1:(26*26),ncol=26),col=cols,
+> srgb[clipped,] <- 0
-+   xlab="a",ylab="b",main="Lab: L=20")
+> cols <- rgb(srgb[,1],srgb[,2],srgb[,3])
->
+> image((-10:15)*10,(-15:10)*10,matrix(1:(26*26),ncol=26),col=cols,
-> Lab <- cbind(L=40,ab)
++   xlab="a",ylab="b",main="Lab: L=20")
-> srgb <- convertColor(Lab,from="Lab",to="sRGB",clip=NA)
+>
-> clipped <- attr(na.omit(srgb),"na.action")
+> Lab <- cbind(L=40,ab)
-> srgb[clipped,] <- 0
+> srgb <- convertColor(Lab,from="Lab",to="sRGB",clip=NA)
-> cols <- rgb(srgb[,1],srgb[,2],srgb[,3])
+> clipped <- attr(na.omit(srgb),"na.action")
-> image((-10:15)*10,(-15:10)*10,matrix(1:(26*26),ncol=26),col=cols,
+> srgb[clipped,] <- 0
-+   xlab="a",ylab="b",main="Lab: L=40")
+> cols <- rgb(srgb[,1],srgb[,2],srgb[,3])
->
+> image((-10:15)*10,(-15:10)*10,matrix(1:(26*26),ncol=26),col=cols,
-> Lab <- cbind(L=60,ab)
++   xlab="a",ylab="b",main="Lab: L=40")
-> srgb <- convertColor(Lab,from="Lab",to="sRGB",clip=NA)
+>
-> clipped <- attr(na.omit(srgb),"na.action")
+> Lab <- cbind(L=60,ab)
-> srgb[clipped,] <- 0
+> srgb <- convertColor(Lab,from="Lab",to="sRGB",clip=NA)
-> cols <- rgb(srgb[,1],srgb[,2],srgb[,3])
+> clipped <- attr(na.omit(srgb),"na.action")
-> image((-10:15)*10,(-15:10)*10,matrix(1:(26*26),ncol=26),col=cols,
+> srgb[clipped,] <- 0
-+   xlab="a",ylab="b",main="Lab: L=60")
+> cols <- rgb(srgb[,1],srgb[,2],srgb[,3])
->
+> image((-10:15)*10,(-15:10)*10,matrix(1:(26*26),ncol=26),col=cols,
-> Lab <- cbind(L=80,ab)
++   xlab="a",ylab="b",main="Lab: L=60")
-> srgb <- convertColor(Lab,from="Lab",to="sRGB",clip=NA)
+>
-> clipped <- attr(na.omit(srgb),"na.action")
+> Lab <- cbind(L=80,ab)
-> srgb[clipped,] <- 0
+> srgb <- convertColor(Lab,from="Lab",to="sRGB",clip=NA)
-> cols <- rgb(srgb[,1],srgb[,2],srgb[,3])
+> clipped <- attr(na.omit(srgb),"na.action")
-> image((-10:15)*10,(-15:10)*10,matrix(1:(26*26),ncol=26),col=cols,
+> srgb[clipped,] <- 0
-+   xlab="a",ylab="b",main="Lab: L=80")
+> cols <- rgb(srgb[,1],srgb[,2],srgb[,3])
->
+> image((-10:15)*10,(-15:10)*10,matrix(1:(26*26),ncol=26),col=cols,
-> (cols <- t(col2rgb(palette())))
++   xlab="a",ylab="b",main="Lab: L=80")
-     red green blue
+>
-[1,]   0     0    0
+> (cols <- t(col2rgb(palette())))
-[2,] 255     0    0
+     red green blue
-[3,]   0   205    0
+[1,]   0     0    0
-[4,]   0     0  255
+[2,] 255     0    0
-[5,]   0   255  255
+[3,]   0   205    0
-[6,] 255     0  255
+[4,]   0     0  255
-[7,] 255   255    0
+[5,]   0   255  255
-[8,] 190   190  190
+[6,] 255     0  255
-> zapsmall(lab <- convertColor(cols,from="sRGB",to="Lab",scale.in=255))
+[7,] 255   255    0
-            L       a.x          b
+[8,] 190   190  190
-[1,]  0.00000   0.00000    0.00000
+> zapsmall(lab <- convertColor(cols,from="sRGB",to="Lab",scale.in=255))
-[2,] 53.48418  80.01027   67.38407
+            L       a.x          b
-[3,] 71.91841 -73.33548   70.41134
+[1,]  0.00000   0.00000    0.00000
-[4,] 32.24075  78.82042 -107.93632
+[2,] 53.48418  80.01027   67.38407
-[5,] 91.01106 -48.46075  -14.29081
+[3,] 71.91841 -73.33548   70.41134
-[6,] 60.50231  97.95195  -60.51490
+[4,] 32.24075  78.82042 -107.93632
-[7,] 97.14950 -21.36677   94.42044
+[5,] 91.01106 -48.46075  -14.29081
-[8,] 76.97594   0.00000    0.00000
+[6,] 60.50231  97.95195  -60.51490
-> round(convertColor(lab,from="Lab",to="sRGB",scale.out=255))
+[7,] 97.14950 -21.36677   94.42044
-     [,1] [,2] [,3]
+[8,] 76.97594   0.00000    0.00000
-[1,]    0    0    0
+> round(convertColor(lab,from="Lab",to="sRGB",scale.out=255))
-[2,]  255    0    0
+     [,1] [,2] [,3]
-[3,]    0  205    0
+[1,]    0    0    0
-[4,]    0    0  255
+[2,]  255    0    0
-[5,]    0  255  255
+[3,]    0  205    0
-[6,]  255    0  255
+[4,]    0    0  255
-[7,]  255  255    0
+[5,]    0  255  255
-[8,]  190  190  190
+[6,]  255    0  255
->
+[7,]  255  255    0
->
+[8,]  190  190  190
 >
-> graphics::par(get("par.postscript", pos = 'CheckExEnv'))
+>
-> cleanEx()
+>
-> nameEx("densCols")
+> graphics::par(get("par.postscript", pos = 'CheckExEnv'))
-> ### * densCols
+> cleanEx()
->
+> nameEx("densCols")
-> flush(stderr()); flush(stdout())
+> ### * densCols
 >
-> ### Name: densCols
+> flush(stderr()); flush(stdout())
-> ### Title: Colors for Smooth Density Plots
+>
-> ### Aliases: densCols blues9
+> ### Name: densCols
-> ### Keywords: dplot
+> ### Title: Colors for Smooth Density Plots
->
+> ### Aliases: densCols blues9
-> ### ** Examples
+> ### Keywords: dplot
 >
-> x1  <- matrix(rnorm(1e3), ncol=2)
+> ### ** Examples
-> x2  <- matrix(rnorm(1e3, mean=3, sd=1.5), ncol=2)
+>
-> x   <- rbind(x1,x2)
+> x1  <- matrix(rnorm(1e3), ncol=2)
->
+> x2  <- matrix(rnorm(1e3, mean=3, sd=1.5), ncol=2)
-> dcols <- densCols(x)
+> x   <- rbind(x1,x2)
-KernSmooth 2.23 loaded
+>
-Copyright M. P. Wand 1997-2009
+> dcols <- densCols(x)
-> graphics::plot(x, col = dcols, pch=20, main = "n = 1000")
+KernSmooth 2.23 loaded
->
+Copyright M. P. Wand 1997-2009
->
+> graphics::plot(x, col = dcols, pch=20, main = "n = 1000")
 >
-> cleanEx()
+>
-> nameEx("dev")
+>
-> ### * dev
+> cleanEx()
->
+> nameEx("dev")
-> flush(stderr()); flush(stdout())
+> ### * dev
 >
-> ### Name: dev
+> flush(stderr()); flush(stdout())
-> ### Title: Control Multiple Devices
+>
-> ### Aliases: dev.cur dev.list dev.next dev.prev dev.off dev.set dev.new
+> ### Name: dev
-> ###   graphics.off
+> ### Title: Control Multiple Devices
-> ### Keywords: device iplot
+> ### Aliases: dev.cur dev.list dev.next dev.prev dev.off dev.set dev.new
->
+> ###   graphics.off
-> ### ** Examples
+> ### Keywords: device iplot
 >
-> ## Not run:
+> ### ** Examples
-> ##D ## Unix-specific example
+>
-> ##D x11()
+> ## Not run:
-> ##D plot(1:10)
+> ##D ## Unix-specific example
 > ##D x11()
-> ##D plot(rnorm(10))
+> ##D plot(1:10)
-> ##D dev.set(dev.prev())
+> ##D x11()
-> ##D abline(0,1)# through the 1:10 points
+> ##D plot(rnorm(10))
-> ##D dev.set(dev.next())
+> ##D dev.set(dev.prev())
-> ##D abline(h=0, col="gray")# for the residual plot
+> ##D abline(0,1)# through the 1:10 points
-> ##D dev.set(dev.prev())
+> ##D dev.set(dev.next())
-> ##D dev.off(); dev.off()#- close the two X devices
+> ##D abline(h=0, col="gray")# for the residual plot
-> ## End(Not run)
+> ##D dev.set(dev.prev())
->
+> ##D dev.off(); dev.off()#- close the two X devices
->
+> ## End(Not run)
 >
-> cleanEx()
+>
-> nameEx("dev.interactive")
+>
-> ### * dev.interactive
+> cleanEx()
->
+> nameEx("dev.interactive")
-> flush(stderr()); flush(stdout())
+> ### * dev.interactive
 >
-> ### Name: dev.interactive
+> flush(stderr()); flush(stdout())
-> ### Title: Is the Current Graphics Device Interactive?
+>
-> ### Aliases: dev.interactive deviceIsInteractive
+> ### Name: dev.interactive
-> ### Keywords: device
+> ### Title: Is the Current Graphics Device Interactive?
->
+> ### Aliases: dev.interactive deviceIsInteractive
-> ### ** Examples
+> ### Keywords: device
 >
-> dev.interactive()
+> ### ** Examples
-[1] FALSE
+>
-> print(deviceIsInteractive(NULL))
+> dev.interactive()
-[1] "X11"      "X11cairo" "quartz"   "windows"  "JavaGD"   "CairoWin" "CairoX11"
+[1] FALSE
->
+> print(deviceIsInteractive(NULL))
->
+[1] "X11"      "X11cairo" "quartz"   "windows"  "JavaGD"   "CairoWin" "CairoX11"
 >
-> cleanEx()
+>
-> nameEx("dev.size")
+>
-> ### * dev.size
+> cleanEx()
->
+> nameEx("dev.size")
-> flush(stderr()); flush(stdout())
+> ### * dev.size
 >
-> ### Name: dev.size
+> flush(stderr()); flush(stdout())
-> ### Title: Find Size of Device Surface
+>
-> ### Aliases: dev.size
+> ### Name: dev.size
-> ### Keywords: dplot
+> ### Title: Find Size of Device Surface
->
+> ### Aliases: dev.size
-> ### ** Examples
+> ### Keywords: dplot
 >
-> dev.size("cm")
+> ### ** Examples
-[1] 17.78 17.78
+>
->
+> dev.size("cm")
->
+[1] 17.78 17.78
 >
-> cleanEx()
+>
-> nameEx("dev2")
+>
-> ### * dev2
+> cleanEx()
->
+> nameEx("dev2")
-> flush(stderr()); flush(stdout())
+> ### * dev2
 >
-> ### Name: dev2
+> flush(stderr()); flush(stdout())
-> ### Title: Copy Graphics Between Multiple Devices
+>
-> ### Aliases: dev.copy dev.print dev.copy2eps dev.copy2pdf dev.control
+> ### Name: dev2
-> ### Keywords: device
+> ### Title: Copy Graphics Between Multiple Devices
->
+> ### Aliases: dev.copy dev.print dev.copy2eps dev.copy2pdf dev.control
-> ### ** Examples
+> ### Keywords: device
 >
-> ## Not run:
+> ### ** Examples
-> ##D x11()
+>
-> ##D plot(rnorm(10), main="Plot 1")
+> ## Not run:
-> ##D dev.copy(device=x11)
+> ##D x11()
-> ##D mtext("Copy 1", 3)
+> ##D plot(rnorm(10), main="Plot 1")
-> ##D dev.print(width=6, height=6, horizontal=FALSE) # prints it
+> ##D dev.copy(device=x11)
-> ##D dev.off(dev.prev())
+> ##D mtext("Copy 1", 3)
-> ##D dev.off()
+> ##D dev.print(width=6, height=6, horizontal=FALSE) # prints it
-> ## End(Not run)
+> ##D dev.off(dev.prev())
->
+> ##D dev.off()
->
+> ## End(Not run)
 >
-> cleanEx()
+>
-> nameEx("extendrange")
+>
-> ### * extendrange
+> cleanEx()
->
+> nameEx("extendrange")
-> flush(stderr()); flush(stdout())
+> ### * extendrange
 >
-> ### Name: extendrange
+> flush(stderr()); flush(stdout())
-> ### Title: Extend a Numerical Range by a Small Percentage
+>
-> ### Aliases: extendrange
+> ### Name: extendrange
-> ### Keywords: dplot
+> ### Title: Extend a Numerical Range by a Small Percentage
->
+> ### Aliases: extendrange
-> ### ** Examples
+> ### Keywords: dplot
 >
-> x <- 1:5
+> ### ** Examples
-> (r <- range(x))         # 1    5
+>
-[1] 1 5
+> x <- 1:5
-> extendrange(x)          # 0.8  5.2
+> (r <- range(x))         # 1    5
-[1] 0.8 5.2
+[1] 1 5
-> extendrange(x, f= 0.01) # 0.96 5.04
+> extendrange(x)          # 0.8  5.2
-[1] 0.96 5.04
+[1] 0.8 5.2
-> ## Use 'r' if you have it already:
+> extendrange(x, f= 0.01) # 0.96 5.04
-> stopifnot(identical(extendrange(r=r),
+[1] 0.96 5.04
-+                     extendrange(x)))
+> ## Use 'r' if you have it already:
->
+> stopifnot(identical(extendrange(r=r),
->
++                     extendrange(x)))
 >
-> cleanEx()
+>
-> nameEx("getGraphicsEvent")
+>
-> ### * getGraphicsEvent
+> cleanEx()
->
+> nameEx("getGraphicsEvent")
-> flush(stderr()); flush(stdout())
+> ### * getGraphicsEvent
 >
-> ### Name: getGraphicsEvent
+> flush(stderr()); flush(stdout())
-> ### Title: Wait for a mouse or keyboard event from a graphics window
+>
-> ### Aliases: getGraphicsEvent
+> ### Name: getGraphicsEvent
-> ### Keywords: iplot
+> ### Title: Wait for a mouse or keyboard event from a graphics window
->
+> ### Aliases: getGraphicsEvent setGraphicsEventHandlers getGraphicsEventEnv
-> ### ** Examples
+> ###   setGraphicsEventEnv
->
+> ### Keywords: iplot
-> ## Not run:
+>
-> ##D     mousedown <- function(buttons, x, y) {
+> ### ** Examples
-> ##D         plx <- grconvertX(x, "ndc", "user")
+>
-> ##D         ply <- grconvertY(y, "ndc", "user")
+>
-> ##D         cat("Buttons ", paste(buttons, collapse=" "), " at ndc",
+>
-> ##D             x, y, "user", plx, ply, "\n")
+>
-> ##D         points(plx, ply, col="red", pch=19, cex=2)
+> graphics::par(get("par.postscript", pos = 'CheckExEnv'))
-> ##D         if (x > 0.85 && y > 0.85) "Done"
+> cleanEx()
-> ##D         else NULL
+> nameEx("gray")
-> ##D     }
+> ### * gray
-> ##D
+>
-> ##D     mousemove <- function(buttons, x, y) {
+> flush(stderr()); flush(stdout())
-> ##D         plx <- grconvertX(x, "ndc", "user")
+>
-> ##D         ply <- grconvertY(y, "ndc", "user")
+> ### Name: gray
-> ##D         points(plx, ply)
+> ### Title: Gray Level Specification
-> ##D         NULL
+> ### Aliases: gray grey
-> ##D     }
+> ### Keywords: color
-> ##D
+>
-> ##D     keybd <- function(key) {
+> ### ** Examples
-> ##D         cat("Key <", key, ">\n", sep = "")
+>
-> ##D     }
+> gray(0:8 / 8)
-> ##D
+[1] "#000000" "#202020" "#404040" "#606060" "#808080" "#9F9F9F" "#BFBFBF"
-> ##D     plot(0:1, 0:1, type='n')
+[8] "#DFDFDF" "#FFFFFF"
-> ##D     getGraphicsEvent("Click on upper right to quit",
+>
-> ##D                      onMouseDown = mousedown,
+>
-> ##D                      onMouseMove = mousemove,
+>
-> ##D                      onKeybd = keybd)
+> cleanEx()
-> ## End(Not run)
+> nameEx("gray.colors")
->
+> ### * gray.colors
 >
->
+> flush(stderr()); flush(stdout())
-> cleanEx()
+>
-> nameEx("gray")
+> ### Name: gray.colors
-> ### * gray
+> ### Title: Gray Color Palette
->
+> ### Aliases: gray.colors grey.colors
-> flush(stderr()); flush(stdout())
+> ### Keywords: color
 >
-> ### Name: gray
+> ### ** Examples
-> ### Title: Gray Level Specification
+>
-> ### Aliases: gray grey
+> require(graphics)
-> ### Keywords: color
+>
->
+> pie(rep(1,12), col = gray.colors(12))
-> ### ** Examples
+> barplot(1:12, col = gray.colors(12))
 >
-> gray(0:8 / 8)
+>
-[1] "#000000" "#202020" "#404040" "#606060" "#808080" "#9F9F9F" "#BFBFBF"
+>
-[8] "#DFDFDF" "#FFFFFF"
+> cleanEx()
->
+> nameEx("hcl")
->
+> ### * hcl
 >
-> cleanEx()
+> flush(stderr()); flush(stdout())
-> nameEx("gray.colors")
+>
-> ### * gray.colors
+> ### Name: hcl
->
+> ### Title: HCL Color Specification
-> flush(stderr()); flush(stdout())
+> ### Aliases: hcl
->
+> ### Keywords: color dplot
-> ### Name: gray.colors
+>
-> ### Title: Gray Color Palette
+> ### ** Examples
-> ### Aliases: gray.colors grey.colors
+>
-> ### Keywords: color
+> require(graphics)
 >
-> ### ** Examples
+> # The Foley and Van Dam PhD Data.
->
+> csd <- matrix(c( 4,2,4,6, 4,3,1,4, 4,7,7,1,
-> require(graphics)
++                  0,7,3,2, 4,5,3,2, 5,4,2,2,
->
++                  3,1,3,0, 4,4,6,7, 1,10,8,7,
-> pie(rep(1,12), col = gray.colors(12))
++                  1,5,3,2, 1,5,2,1, 4,1,4,3,
-> barplot(1:12, col = gray.colors(12))
++                  0,3,0,6, 2,1,5,5), nrow=4)
 >
->
+> csphd <- function(colors)
->
++   barplot(csd, col = colors, ylim = c(0,30),
-> cleanEx()
++           names = 72:85, xlab = "Year", ylab = "Students",
-> nameEx("hcl")
++           legend = c("Winter", "Spring", "Summer", "Fall"),
-> ### * hcl
++           main = "Computer Science PhD Graduates", las = 1)
 >
-> flush(stderr()); flush(stdout())
+> # The Original (Metaphorical) Colors (Ouch!)
->
+> csphd(c("blue", "green", "yellow", "orange"))
-> ### Name: hcl
+>
-> ### Title: HCL Color Specification
+> # A Color Tetrad (Maximal Color Differences)
-> ### Aliases: hcl
+> csphd(hcl(h = c(30, 120, 210, 300)))
-> ### Keywords: color dplot
+>
->
+> # Same, but lighter and less colorful
-> ### ** Examples
+> # Turn of automatic correction to make sure
->
+> # that we have defined real colors.
-> require(graphics)
+> csphd(hcl(h = c(30, 120, 210, 300),
->
++           c = 20, l = 90, fixup = FALSE))
-> # The Foley and Van Dam PhD Data.
+>
-> csd <- matrix(c( 4,2,4,6, 4,3,1,4, 4,7,7,1,
+> # Analogous Colors
-+                  0,7,3,2, 4,5,3,2, 5,4,2,2,
+> # Good for those with red/green color confusion
-+                  3,1,3,0, 4,4,6,7, 1,10,8,7,
+> csphd(hcl(h = seq(60, 240, by = 60)))
-+                  1,5,3,2, 1,5,2,1, 4,1,4,3,
+>
-+                  0,3,0,6, 2,1,5,5), nrow=4)
+> # Metaphorical Colors
->
+> csphd(hcl(h = seq(210, 60, length = 4)))
-> csphd <- function(colors)
+>
-+   barplot(csd, col = colors, ylim = c(0,30),
+> # Cool Colors
-+           names = 72:85, xlab = "Year", ylab = "Students",
+> csphd(hcl(h = seq(120, 0, length = 4) + 150))
-+           legend = c("Winter", "Spring", "Summer", "Fall"),
+>
-+           main = "Computer Science PhD Graduates", las = 1)
+> # Warm Colors
->
+> csphd(hcl(h = seq(120, 0, length = 4) - 30))
-> # The Original (Metaphorical) Colors (Ouch!)
+>
-> csphd(c("blue", "green", "yellow", "orange"))
+> # Single Color
->
+> hist(stats::rnorm(1000), col = hcl(240))
-> # A Color Tetrad (Maximal Color Differences)
+>
-> csphd(hcl(h = c(30, 120, 210, 300)))
+>
 >
-> # Same, but lighter and less colorful
+> cleanEx()
-> # Turn of automatic correction to make sure
+> nameEx("hsv")
-> # that we have defined real colors.
+> ### * hsv
-> csphd(hcl(h = c(30, 120, 210, 300),
+>
-+           c = 20, l = 90, fixup = FALSE))
+> flush(stderr()); flush(stdout())
 >
-> # Analogous Colors
+> ### Name: hsv
-> # Good for those with red/green color confusion
+> ### Title: HSV Color Specification
-> csphd(hcl(h = seq(60, 240, by = 60)))
+> ### Aliases: hsv
->
+> ### Keywords: color dplot
-> # Metaphorical Colors
+>
-> csphd(hcl(h = seq(210, 60, length = 4)))
+> ### ** Examples
 >
-> # Cool Colors
+> require(graphics)
-> csphd(hcl(h = seq(120, 0, length = 4) + 150))
+>
->
+> hsv(.5,.5,.5)
-> # Warm Colors
+[1] "#408080"
-> csphd(hcl(h = seq(120, 0, length = 4) - 30))
+>
->
+> ## Look at gamma effect:
-> # Single Color
+> n <- 20;  y <- -sin(3*pi*((1:n)-1/2)/n)
-> hist(stats::rnorm(1000), col = hcl(240))
+> op <- par(mfrow=c(3,2),mar=rep(1.5,4))
->
+> for(gamma in c(.4, .6, .8, 1, 1.2, 1.5))
->
++   plot(y, axes = FALSE, frame.plot = TRUE,
->
++        xlab = "", ylab = "", pch = 21, cex = 30,
-> cleanEx()
++        bg = rainbow(n, start=.85, end=.1, gamma = gamma),
-> nameEx("hsv")
++        main = paste("Red tones;  gamma=",format(gamma)))
-> ### * hsv
+> par(op)
 >
-> flush(stderr()); flush(stdout())
+>
 >
-> ### Name: hsv
+> graphics::par(get("par.postscript", pos = 'CheckExEnv'))
-> ### Title: HSV Color Specification
+> cleanEx()
-> ### Aliases: hsv
+> nameEx("make.rgb")
-> ### Keywords: color dplot
+> ### * make.rgb
 >
-> ### ** Examples
+> flush(stderr()); flush(stdout())
 >
-> require(graphics)
+> ### Name: make.rgb
->
+> ### Title: Create colour spaces
-> hsv(.5,.5,.5)
+> ### Aliases: make.rgb colorConverter
-[1] "#408080"
+> ### Keywords: color
 >
-> ## Look at gamma effect:
+> ### ** Examples
-> n <- 20;  y <- -sin(3*pi*((1:n)-1/2)/n)
+>
-> op <- par(mfrow=c(3,2),mar=rep(1.5,4))
+> (pal <- make.rgb(red=  c(0.6400,0.3300),
-> for(gamma in c(.4, .6, .8, 1, 1.2, 1.5))
++                  green=c(0.2900,0.6000),
-+   plot(y, axes = FALSE, frame.plot = TRUE,
++                  blue= c(0.1500,0.0600),
-+        xlab = "", ylab = "", pch = 21, cex = 30,
++                  name = "PAL/SECAM RGB"))
-+        bg = rainbow(n, start=.85, end=.1, gamma = gamma),
+Color space converter: PAL/SECAM RGB
-+        main = paste("Red tones;  gamma=",format(gamma)))
+Reference white: D65
-> par(op)
+display gamma = 2.2
 >
->
+> ## converter for sRGB in #rrggbb format
->
+> hexcolor <- colorConverter(toXYZ = function(hex,...) {
-> graphics::par(get("par.postscript", pos = 'CheckExEnv'))
++                             rgb <- t(col2rgb(hex))/255
-> cleanEx()
++                             colorspaces$sRGB$toXYZ(rgb,...) },
-> nameEx("make.rgb")
++                            fromXYZ = function(xyz,...) {
-> ### * make.rgb
++                               rgb <- colorspaces$sRGB$fromXYZ(xyz,..)
->
++                               rgb <- round(rgb,5)
-> flush(stderr()); flush(stdout())
++                               if (min(rgb) < 0 || max(rgb) > 1)
->
++                                    as.character(NA)
-> ### Name: make.rgb
++                               else
-> ### Title: Create colour spaces
++                                    rgb(rgb[1],rgb[2],rgb[3])},
-> ### Aliases: make.rgb colorConverter
++                            white = "D65", name = "#rrggbb")
-> ### Keywords: color
+>
->
+> (cols <- t(col2rgb(palette())))
-> ### ** Examples
+     red green blue
->
+[1,]   0     0    0
-> (pal <- make.rgb(red=  c(0.6400,0.3300),
+[2,] 255     0    0
-+                  green=c(0.2900,0.6000),
+[3,]   0   205    0
-+                  blue= c(0.1500,0.0600),
+[4,]   0     0  255
-+                  name = "PAL/SECAM RGB"))
+[5,]   0   255  255
-Color space converter: PAL/SECAM RGB
+[6,] 255     0  255
-Reference white: D65
+[7,] 255   255    0
-display gamma = 2.2
+[8,] 190   190  190
->
+> (luv <- convertColor(cols,from="sRGB", to="Luv", scale.in=255))
-> ## converter for sRGB in #rrggbb format
+            L             u             v
-> hexcolor <- colorConverter(toXYZ = function(hex,...) {
+[1,]  0.00000  0.000000e+00  0.000000e+00
-+                             rgb <- t(col2rgb(hex))/255
+[2,] 53.48418  1.753647e+02  3.780017e+01
-+                             colorspaces$sRGB$toXYZ(rgb,...) },
+[3,] 71.91841 -6.870661e+01  8.786408e+01
-+                            fromXYZ = function(xyz,...) {
+[4,] 32.24075 -9.660595e+00 -1.301930e+02
-+                               rgb <- colorspaces$sRGB$fromXYZ(xyz,..)
+[5,] 91.01106 -7.117303e+01 -1.534147e+01
-+                               rgb <- round(rgb,5)
+[6,] 60.50231  8.456678e+01 -1.081465e+02
-+                               if (min(rgb) < 0 || max(rgb) > 1)
+[7,] 97.14950  7.898148e+00  1.064410e+02
-+                                    as.character(NA)
+[8,] 76.97594 -2.777465e-14 -5.554930e-14
-+                               else
+> (hex <- convertColor(luv, from="Luv",  to=hexcolor, scale.out=NULL))
-+                                    rgb(rgb[1],rgb[2],rgb[3])},
+[1] "#000000" "#FF0000" "#00CD00" "#0000FF" "#00FFFF" "#FF00FF" "#FFFF00"
-+                            white = "D65", name = "#rrggbb")
+[8] "#BEBEBE"
 >
-> (cols <- t(col2rgb(palette())))
+> ## must make hex a matrix before using it
-     red green blue
+> (cc <- round(convertColor(as.matrix(hex), from= hexcolor, to= "sRGB",
-[1,]   0     0    0
++                           scale.in=NULL, scale.out=255)))
-[2,] 255     0    0
+     [,1] [,2] [,3]
-[3,]   0   205    0
+[1,]    0    0    0
-[4,]   0     0  255
+[2,]  255    0    0
-[5,]   0   255  255
+[3,]    0  205    0
-[6,] 255     0  255
+[4,]    0    0  255
-[7,] 255   255    0
+[5,]    0  255  255
-[8,] 190   190  190
+[6,]  255    0  255
-> (luv <- convertColor(cols,from="sRGB", to="Luv", scale.in=255))
+[7,]  255  255    0
-            L             u             v
+[8,]  190  190  190
-[1,]  0.00000  0.000000e+00  0.000000e+00
+> stopifnot(cc == cols)
-[2,] 53.48418  1.753647e+02  3.780017e+01
+>
-[3,] 71.91841 -6.870661e+01  8.786408e+01
+>
-[4,] 32.24075 -9.660595e+00 -1.301930e+02
+>
-[5,] 91.01106 -7.117303e+01 -1.534147e+01
+> cleanEx()
-[6,] 60.50231  8.456678e+01 -1.081465e+02
+> nameEx("n2mfrow")
-[7,] 97.14950  7.898148e+00  1.064410e+02
+> ### * n2mfrow
-[8,] 76.97594 -2.777465e-14 -5.554930e-14
+>
-> (hex <- convertColor(luv, from="Luv",  to=hexcolor, scale.out=NULL))
+> flush(stderr()); flush(stdout())
-[1] "#000000" "#FF0000" "#00CD00" "#0000FF" "#00FFFF" "#FF00FF" "#FFFF00"
+>
-[8] "#BEBEBE"
+> ### Name: n2mfrow
->
+> ### Title: Compute Default mfrow From Number of Plots
-> ## must make hex a matrix before using it
+> ### Aliases: n2mfrow
-> (cc <- round(convertColor(as.matrix(hex), from= hexcolor, to= "sRGB",
+> ### Keywords: dplot utilities
-+                           scale.in=NULL, scale.out=255)))
+>
-     [,1] [,2] [,3]
+> ### ** Examples
-[1,]    0    0    0
+>
-[2,]  255    0    0
+> require(graphics)
-[3,]    0  205    0
+>
-[4,]    0    0  255
+> n2mfrow(8) # 3 x 3
-[5,]    0  255  255
+[1] 3 3
-[6,]  255    0  255
+>
-[7,]  255  255    0
+> n <- 5 ; x <- seq(-2,2, len=51)
-[8,]  190  190  190
+> ## suppose now that 'n' is not known {inside function}
-> stopifnot(cc == cols)
+> op <- par(mfrow = n2mfrow(n))
->
+> for (j in 1:n)
->
++    plot(x, x^j, main = substitute(x^ exp, list(exp = j)), type = "l",
->
++    col = "blue")
-> cleanEx()
+>
-> nameEx("n2mfrow")
+> sapply(1:10, n2mfrow)
-> ### * n2mfrow
+     [,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10]
->
+[1,]    1    2    3    2    3    3    3    3    3     4
-> flush(stderr()); flush(stdout())
+[2,]    1    1    1    2    2    2    3    3    3     3
 >
-> ### Name: n2mfrow
+>
-> ### Title: Compute Default mfrow From Number of Plots
+>
-> ### Aliases: n2mfrow
+> graphics::par(get("par.postscript", pos = 'CheckExEnv'))
-> ### Keywords: dplot utilities
+> cleanEx()
->
+> nameEx("nclass")
-> ### ** Examples
+> ### * nclass
 >
-> require(graphics)
+> flush(stderr()); flush(stdout())
 >
-> n2mfrow(8) # 3 x 3
+> ### Name: nclass
-[1] 3 3
+> ### Title: Compute the Number of Classes for a Histogram
->
+> ### Aliases: nclass.Sturges nclass.scott nclass.FD
-> n <- 5 ; x <- seq(-2,2, len=51)
+> ### Keywords: univar
-> ## suppose now that 'n' is not known {inside function}
+>
-> op <- par(mfrow = n2mfrow(n))
+> ### ** Examples
-> for (j in 1:n)
+>
-+    plot(x, x^j, main = substitute(x^ exp, list(exp = j)), type = "l",
+> set.seed(1)
-+    col = "blue")
+> x <- stats::rnorm(1111)
->
+> nclass.Sturges(x)
-> sapply(1:10, n2mfrow)
+[1] 12
-     [,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10]
+>
-[1,]    1    2    3    2    3    3    3    3    3     4
+> ## Compare them:
-[2,]    1    1    1    2    2    2    3    3    3     3
+> NC <- function(x) c(Sturges = nclass.Sturges(x),
->
++       Scott = nclass.scott(x), FD = nclass.FD(x))
->
+> NC(x)
->
+Sturges   Scott      FD
-> graphics::par(get("par.postscript", pos = 'CheckExEnv'))
+20      26
-> cleanEx()
+> onePt <- rep(1, 11)
-> nameEx("nclass")
+> NC(onePt) # no longer gives NaN
-> ### * nclass
+Sturges   Scott      FD
->
+1       1
-> flush(stderr()); flush(stdout())
+>
 >
-> ### Name: nclass
+>
-> ### Title: Compute the Number of Classes for a Histogram
+> cleanEx()
-> ### Aliases: nclass.Sturges nclass.scott nclass.FD
+> nameEx("palette")
-> ### Keywords: univar
+> ### * palette
 >
-> ### ** Examples
+> flush(stderr()); flush(stdout())
 >
-> set.seed(1)
+> ### Name: palette
-> x <- stats::rnorm(1111)
+> ### Title: Set or View the Graphics Palette
-> nclass.Sturges(x)
+> ### Aliases: palette
-[1] 12
+> ### Keywords: color sysdata
 >
-> ## Compare them:
+> ### ** Examples
-> NC <- function(x) c(Sturges = nclass.Sturges(x),
+>
-+       Scott = nclass.scott(x), FD = nclass.FD(x))
+> require(graphics)
-> NC(x)
+>
-Sturges   Scott      FD
+> palette()               # obtain the current palette
-20      26
+[1] "black"   "red"     "green3"  "blue"    "cyan"    "magenta" "yellow"
-> onePt <- rep(1, 11)
+[8] "gray"
-> NC(onePt) # no longer gives NaN
+> palette(rainbow(6))     # six color rainbow
-Sturges   Scott      FD
+>
-1       1
+> (palette(gray(seq(0,.9,len=25)))) # gray scales; print old palette
->
+[1] "red"     "yellow"  "green"   "cyan"    "blue"    "magenta"
->
+> matplot(outer(1:100,1:30), type='l', lty=1,lwd=2, col=1:30,
->
++         main = "Gray Scales Palette",
-> cleanEx()
++         sub = "palette(gray(seq(0,.9,len=25)))")
-> nameEx("palette")
+> palette("default")      # reset back to the default
-> ### * palette
+>
->
+> ## on a device where alpha-transparency is supported,
-> flush(stderr()); flush(stdout())
+> ##  use 'alpha = 0.3' transparency with the default palette :
->
+> opal <- col2rgb(palette(), alpha=TRUE)/255; opal["alpha",] <- 0.3
-> ### Name: palette
+> mycols <- do.call(rgb, as.list(as.data.frame(t(opal))))
-> ### Title: Set or View the Graphics Palette
+> opal <- palette(mycols)
-> ### Aliases: palette
+> x <- rnorm(1000); xy <- cbind(x, 3*x + rnorm(1000))
-> ### Keywords: color sysdata
+> plot (xy, lwd=2,
->
++        main = "Alpha-Transparency Palette\n alpha = 0.3")
-> ### ** Examples
+> xy[,1] <- -xy[,1]
->
+> points(xy, col=8, pch=16, cex = 1.5)
-> require(graphics)
+Warning in plot.xy(xy.coords(x, y), type = type, ...) :
->
+  semi-transparency is not supported on this device: reported only once per page
-> palette()               # obtain the current palette
+> palette("default")
-[1] "black"   "red"     "green3"  "blue"    "cyan"    "magenta" "yellow"
+>
-[8] "gray"
+>
-> palette(rainbow(6))     # six color rainbow
+>
->
+> cleanEx()
-> (palette(gray(seq(0,.9,len=25)))) # gray scales; print old palette
+> nameEx("palettes")
-[1] "red"     "yellow"  "green"   "cyan"    "blue"    "magenta"
+> ### * palettes
-> matplot(outer(1:100,1:30), type='l', lty=1,lwd=2, col=1:30,
+>
-+         main = "Gray Scales Palette",
+> flush(stderr()); flush(stdout())
-+         sub = "palette(gray(seq(0,.9,len=25)))")
+>
-> palette("default")      # reset back to the default
+> ### Name: Palettes
->
+> ### Title: Color Palettes
-> ## on a device where alpha-transparency is supported,
+> ### Aliases: rainbow heat.colors terrain.colors topo.colors cm.colors
-> ##  use 'alpha = 0.3' transparency with the default palette :
+> ### Keywords: color dplot
-> opal <- col2rgb(palette(), alpha=TRUE)/255; opal["alpha",] <- 0.3
+>
-> mycols <- do.call(rgb, as.list(as.data.frame(t(opal))))
+> ### ** Examples
-> opal <- palette(mycols)
+>
-> x <- rnorm(1000); xy <- cbind(x, 3*x + rnorm(1000))
+> require(graphics)
-> plot (xy, lwd=2,
+> # A Color Wheel
-+        main = "Alpha-Transparency Palette\n alpha = 0.3")
+> pie(rep(1,12), col=rainbow(12))
-> xy[,1] <- -xy[,1]
+>
-> points(xy, col=8, pch=16, cex = 1.5)
+> ##------ Some palettes ------------
-Warning in plot.xy(xy.coords(x, y), type = type, ...) :
+> demo.pal <-
-  semi-transparency is not supported on this device: reported only once per page
++   function(n, border = if (n<32) "light gray" else NA,
-> palette("default")
++            main = paste("color palettes;  n=",n),
->
++            ch.col = c("rainbow(n, start=.7, end=.1)", "heat.colors(n)",
->
++                       "terrain.colors(n)", "topo.colors(n)",
->
++                       "cm.colors(n)"))
-> cleanEx()
++ {
-> nameEx("palettes")
++     nt <- length(ch.col)
-> ### * palettes
++     i <- 1:n; j <- n / nt; d <- j/6; dy <- 2*d
->
++     plot(i,i+d, type="n", yaxt="n", ylab="", main=main)
-> flush(stderr()); flush(stdout())
++     for (k in 1:nt) {
->
++         rect(i-.5, (k-1)*j+ dy, i+.4, k*j,
-> ### Name: Palettes
++              col = eval(parse(text=ch.col[k])), border = border)
-> ### Title: Color Palettes
++         text(2*j,  k * j +dy/4, ch.col[k])
-> ### Aliases: rainbow heat.colors terrain.colors topo.colors cm.colors
++     }
-> ### Keywords: color dplot
++ }
->
+> n <- if(.Device == "postscript") 64 else 16
-> ### ** Examples
+>      # Since for screen, larger n may give color allocation problem
->
+> demo.pal(n)
-> require(graphics)
+>
-> # A Color Wheel
+>
-> pie(rep(1,12), col=rainbow(12))
+>
->
+> cleanEx()
-> ##------ Some palettes ------------
+> nameEx("pdf")
-> demo.pal <-
+> ### * pdf
-+   function(n, border = if (n<32) "light gray" else NA,
+>
-+            main = paste("color palettes;  n=",n),
+> flush(stderr()); flush(stdout())
-+            ch.col = c("rainbow(n, start=.7, end=.1)", "heat.colors(n)",
+>
-+                       "terrain.colors(n)", "topo.colors(n)",
+> ### Name: pdf
-+                       "cm.colors(n)"))
+> ### Title: PDF Graphics Device
-+ {
+> ### Aliases: pdf
-+     nt <- length(ch.col)
+> ### Keywords: device
-+     i <- 1:n; j <- n / nt; d <- j/6; dy <- 2*d
+>
-+     plot(i,i+d, type="n", yaxt="n", ylab="", main=main)
+> ### ** Examples
-+     for (k in 1:nt) {
+>
-+         rect(i-.5, (k-1)*j+ dy, i+.4, k*j,
+> ## Not run:
-+              col = eval(parse(text=ch.col[k])), border = border)
+> ##D ## Test function for encodings
-+         text(2*j,  k * j +dy/4, ch.col[k])
+> ##D TestChars <- function(encoding="ISOLatin1", ...)
-+     }
+> ##D {
-+ }
+> ##D     pdf(encoding=encoding, ...)
-> n <- if(.Device == "postscript") 64 else 16
+> ##D     par(pty="s")
->      # Since for screen, larger n may give color allocation problem
+> ##D     plot(c(-1,16), c(-1,16), type="n", xlab="", ylab="",
-> demo.pal(n)
+> ##D          xaxs="i", yaxs="i")
->
+> ##D          title(paste("Centred chars in encoding", encoding))
->
+> ##D     grid(17, 17, lty=1)
->
+> ##D     for(i in c(32:255)) {
-> cleanEx()
+> ##D         x <- i %% 16
-> nameEx("pdf")
+> ##D         y <- i %/% 16
-> ### * pdf
+> ##D         points(x, y, pch=i)
->
+> ##D     }
-> flush(stderr()); flush(stdout())
+> ##D     dev.off()
->
+> ##D }
-> ### Name: pdf
+> ##D ## there will be many warnings.
-> ### Title: PDF Graphics Device
+> ##D TestChars("ISOLatin2")
-> ### Aliases: pdf
+> ##D ## this does not view properly in older viewers.
-> ### Keywords: device
+> ##D TestChars("ISOLatin2", family="URWHelvetica")
->
+> ##D ## works well for viewing in gs-based viewers, and often in xpdf.
-> ### ** Examples
+> ## End(Not run)
 >
-> ## Not run:
+>
-> ##D ## Test function for encodings
+> cleanEx()
-> ##D TestChars <- function(encoding="ISOLatin1", ...)
+> nameEx("pdf.options")
-> ##D {
+> ### * pdf.options
-> ##D     pdf(encoding=encoding, ...)
+>
-> ##D     par(pty="s")
+> flush(stderr()); flush(stdout())
-> ##D     plot(c(-1,16), c(-1,16), type="n", xlab="", ylab="",
+>
-> ##D          xaxs="i", yaxs="i")
+> ### Name: pdf.options
-> ##D          title(paste("Centred chars in encoding", encoding))
+> ### Title: Auxiliary Function to Set/View Defaults for Arguments of pdf
-> ##D     grid(17, 17, lty=1)
+> ### Aliases: pdf.options
-> ##D     for(i in c(32:255)) {
+> ### Keywords: device
-> ##D         x <- i %% 16
+>
-> ##D         y <- i %/% 16
+> ### ** Examples
-> ##D         points(x, y, pch=i)
+>
-> ##D     }
+> pdf.options(bg = "pink")
-> ##D     dev.off()
+> utils::str(pdf.options())
-> ##D }
+List of 18
-> ##D ## there will be many warnings.
+ $ width      : num 7
-> ##D TestChars("ISOLatin2")
+ $ height     : num 7
-> ##D ## this does not view properly in older viewers.
+ $ onefile    : logi TRUE
-> ##D TestChars("ISOLatin2", family="URWHelvetica")
+ $ family     : chr "Helvetica"
-> ##D ## works well for viewing in gs-based viewers, and often in xpdf.
+ $ title      : chr "R Graphics Output"
-> ## End(Not run)
+ $ fonts      : NULL
->
+ $ version    : chr "1.4"
->
+ $ paper      : chr "special"
-> cleanEx()
+ $ encoding   : chr "default"
-> nameEx("pdf.options")
+ $ bg         : chr "pink"
-> ### * pdf.options
+ $ fg         : chr "black"
->
+ $ pointsize  : num 12
-> flush(stderr()); flush(stdout())
+ $ pagecentre : logi TRUE
->
+ $ colormodel : chr "rgb"
-> ### Name: pdf.options
+ $ useDingbats: logi TRUE
-> ### Title: Auxiliary Function to Set/View Defaults for Arguments of pdf
+ $ useKerning : logi TRUE
-> ### Aliases: pdf.options
+ $ fillOddEven: logi FALSE
-> ### Keywords: device
+ $ maxRasters : num 64
->
+> pdf.options(reset = TRUE) # back to factory-fresh
-> ### ** Examples
+>
 >
-> pdf.options(bg = "pink")
+>
-> utils::str(pdf.options())
+> cleanEx()
-List of 18
+> nameEx("pictex")
- $ width      : num 7
+> ### * pictex
- $ height     : num 7
+>
- $ onefile    : logi TRUE
+> flush(stderr()); flush(stdout())
- $ family     : chr "Helvetica"
+>
- $ title      : chr "R Graphics Output"
+> ### Name: pictex
- $ fonts      : NULL
+> ### Title: A PicTeX Graphics Driver
- $ version    : chr "1.4"
+> ### Aliases: pictex
- $ paper      : chr "special"
+> ### Keywords: device
- $ encoding   : chr "default"
+>
- $ bg         : chr "pink"
+> ### ** Examples
- $ fg         : chr "black"
+>
- $ pointsize  : num 12
+> require(graphics)
- $ pagecentre : logi TRUE
+>
- $ colormodel : chr "rgb"
+> pictex()
- $ useDingbats: logi TRUE
+> plot(1:11,(-5:5)^2, type='b', main="Simple Example Plot")
- $ useKerning : logi TRUE
+> dev.off()
- $ fillOddEven: logi FALSE
+postscript
- $ maxRasters : num 64
-> pdf.options(reset = TRUE) # back to factory-fresh
+> ##--------------------
->
+> ## Not run:
->
+> ##D %% LaTeX Example
->
+> ##D \documentclass{article}
-> cleanEx()
+> ##D \usepackage{pictex}
-> nameEx("pictex")
+> ##D \usepackage{graphics} % for \rotatebox
-> ### * pictex
+> ##D \begin{document}
->
+> ##D %...
-> flush(stderr()); flush(stdout())
+> ##D \begin{figure}[h]
->
+> ##D   \centerline{\input{Rplots.tex}}
-> ### Name: pictex
+> ##D   \caption{}
-> ### Title: A PicTeX Graphics Driver
+> ##D \end{figure}
-> ### Aliases: pictex
+> ##D %...
-> ### Keywords: device
+> ##D \end{document}
->
+> ## End(Not run)
-> ### ** Examples
+> ##--------------------
->
+> unlink("Rplots.tex")
-> require(graphics)
+>
 >
-> pictex()
+>
-> plot(1:11,(-5:5)^2, type='b', main="Simple Example Plot")
+> cleanEx()
-> dev.off()
+> nameEx("plotmath")
-postscript
+> ### * plotmath
+>
-> ##--------------------
+> flush(stderr()); flush(stdout())
-> ## Not run:
+>
-> ##D %% LaTeX Example
+> ### Name: plotmath
-> ##D \documentclass{article}
+> ### Title: Mathematical Annotation in R
-> ##D \usepackage{pictex}
+> ### Aliases: plotmath symbol plain bold italic bolditalic hat bar dot ring
-> ##D \usepackage{graphics} % for \rotatebox
+> ###   widehat widetilde displaystyle textstyle scriptstyle
-> ##D \begin{document}
+> ###   scriptscriptstyle underline phantom over frac atop integral inf sup
-> ##D %...
+> ###   group bgroup
-> ##D \begin{figure}[h]
+> ### Keywords: aplot
-> ##D   \centerline{\input{Rplots.tex}}
+>
-> ##D   \caption{}
+> ### ** Examples
-> ##D \end{figure}
+>
-> ##D %...
+> require(graphics)
-> ##D \end{document}
+>
-> ## End(Not run)
+> x <- seq(-4, 4, len = 101)
-> ##--------------------
+> y <- cbind(sin(x), cos(x))
-> unlink("Rplots.tex")
+> matplot(x, y, type = "l", xaxt = "n",
->
++         main = expression(paste(plain(sin) * phi, "  and  ",
->
++                                 plain(cos) * phi)),
->
++         ylab = expression("sin" * phi, "cos" * phi), # only 1st is taken
-> cleanEx()
++         xlab = expression(paste("Phase Angle ", phi)),
-> nameEx("plotmath")
++         col.main = "blue")
-> ### * plotmath
+> axis(1, at = c(-pi, -pi/2, 0, pi/2, pi),
->
++      labels = expression(-pi, -pi/2, 0, pi/2, pi))
-> flush(stderr()); flush(stdout())
+>
 >
-> ### Name: plotmath
+> ## How to combine "math" and numeric variables :
-> ### Title: Mathematical Annotation in R
+> plot(1:10, type="n", xlab="", ylab="", main = "plot math & numbers")
-> ### Aliases: plotmath symbol plain bold italic bolditalic hat bar dot ring
+> theta <- 1.23 ; mtext(bquote(hat(theta) == .(theta)), line= .25)
-> ###   widehat widetilde displaystyle textstyle scriptstyle
+> for(i in 2:9)
-> ###   scriptscriptstyle underline phantom over frac atop integral inf sup
++     text(i,i+1, substitute(list(xi,eta) == group("(",list(x,y),")"),
-> ###   group bgroup
++                            list(x=i, y=i+1)))
-> ### Keywords: aplot
+> ## note that both of these use calls rather than expressions.
->
+> ##
-> ### ** Examples
+> text(1,10,  "Derivatives:", adj=0)
->
+> text(1,9.6, expression(
-> require(graphics)
++  "             first: {f * minute}(x) " == {f * minute}(x)), adj=0)
->
+> text(1,9.0, expression(
-> x <- seq(-4, 4, len = 101)
++  "     second: {f * second}(x) "        == {f * second}(x)), adj=0)
-> y <- cbind(sin(x), cos(x))
+>
-> matplot(x, y, type = "l", xaxt = "n",
+>
-+         main = expression(paste(plain(sin) * phi, "  and  ",
+> plot(1:10, 1:10)
-+                                 plain(cos) * phi)),
+> text(4, 9, expression(hat(beta) == (X^t * X)^{-1} * X^t * y))
-+         ylab = expression("sin" * phi, "cos" * phi), # only 1st is taken
+> text(4, 8.4, "expression(hat(beta) == (X^t * X)^{-1} * X^t * y)",
-+         xlab = expression(paste("Phase Angle ", phi)),
++      cex = .8)
-+         col.main = "blue")
+> text(4, 7, expression(bar(x) == sum(frac(x[i], n), i==1, n)))
-> axis(1, at = c(-pi, -pi/2, 0, pi/2, pi),
+> text(4, 6.4, "expression(bar(x) == sum(frac(x[i], n), i==1, n))",
-+      labels = expression(-pi, -pi/2, 0, pi/2, pi))
++      cex = .8)
->
+> text(8, 5, expression(paste(frac(1, sigma*sqrt(2*pi)), " ",
->
++                             plain(e)^{frac(-(x-mu)^2, 2*sigma^2)})),
-> ## How to combine "math" and numeric variables :
++      cex = 1.2)
-> plot(1:10, type="n", xlab="", ylab="", main = "plot math & numbers")
+>
-> theta <- 1.23 ; mtext(bquote(hat(theta) == .(theta)), line= .25)
+> ## some other useful symbols
-> for(i in 2:9)
+> plot.new(); plot.window(c(0,4), c(15,1))
-+     text(i,i+1, substitute(list(xi,eta) == group("(",list(x,y),")"),
+> text(1, 1, "universal", adj=0); text(2.5, 1,  "\\042")
-+                            list(x=i, y=i+1)))
+> text(3, 1, expression(symbol("\042")))
-> ## note that both of these use calls rather than expressions.
+> text(1, 2, "existential", adj=0); text(2.5, 2,  "\\044")
-> ##
+> text(3, 2, expression(symbol("\044")))
-> text(1,10,  "Derivatives:", adj=0)
+> text(1, 3, "suchthat", adj=0); text(2.5, 3,  "\\047")
-> text(1,9.6, expression(
+> text(3, 3, expression(symbol("\047")))
-+  "             first: {f * minute}(x) " == {f * minute}(x)), adj=0)
+> text(1, 4, "therefore", adj=0); text(2.5, 4,  "\\134")
-> text(1,9.0, expression(
+> text(3, 4, expression(symbol("\134")))
-+  "     second: {f * second}(x) "        == {f * second}(x)), adj=0)
+> text(1, 5, "perpendicular", adj=0); text(2.5, 5,  "\\136")
->
+> text(3, 5, expression(symbol("\136")))
->
+> text(1, 6, "circlemultiply", adj=0); text(2.5, 6,  "\\304")
-> plot(1:10, 1:10)
+> text(3, 6, expression(symbol("\304")))
-> text(4, 9, expression(hat(beta) == (X^t * X)^{-1} * X^t * y))
+> text(1, 7, "circleplus", adj=0); text(2.5, 7,  "\\305")
-> text(4, 8.4, "expression(hat(beta) == (X^t * X)^{-1} * X^t * y)",
+> text(3, 7, expression(symbol("\305")))
-+      cex = .8)
+> text(1, 8, "emptyset", adj=0); text(2.5, 8,  "\\306")
-> text(4, 7, expression(bar(x) == sum(frac(x[i], n), i==1, n)))
+> text(3, 8, expression(symbol("\306")))
-> text(4, 6.4, "expression(bar(x) == sum(frac(x[i], n), i==1, n))",
+> text(1, 9, "angle", adj=0); text(2.5, 9,  "\\320")
-+      cex = .8)
+> text(3, 9, expression(symbol("\320")))
-> text(8, 5, expression(paste(frac(1, sigma*sqrt(2*pi)), " ",
+> text(1, 10, "leftangle", adj=0); text(2.5, 10,  "\\341")
-+                             plain(e)^{frac(-(x-mu)^2, 2*sigma^2)})),
+> text(3, 10, expression(symbol("\341")))
-+      cex = 1.2)
+> text(1, 11, "rightangle", adj=0); text(2.5, 11,  "\\361")
->
+> text(3, 11, expression(symbol("\361")))
-> ## some other useful symbols
+>
-> plot.new(); plot.window(c(0,4), c(15,1))
+>
-> text(1, 1, "universal", adj=0); text(2.5, 1,  "\\042")
+>
-> text(3, 1, expression(symbol("\042")))
+> cleanEx()
-> text(1, 2, "existential", adj=0); text(2.5, 2,  "\\044")
+> nameEx("postscriptFonts")
-> text(3, 2, expression(symbol("\044")))
+> ### * postscriptFonts
-> text(1, 3, "suchthat", adj=0); text(2.5, 3,  "\\047")
+>
-> text(3, 3, expression(symbol("\047")))
+> flush(stderr()); flush(stdout())
-> text(1, 4, "therefore", adj=0); text(2.5, 4,  "\\134")
+>
-> text(3, 4, expression(symbol("\134")))
+> ### Name: postscriptFonts
-> text(1, 5, "perpendicular", adj=0); text(2.5, 5,  "\\136")
+> ### Title: PostScript and PDF Font Families
-> text(3, 5, expression(symbol("\136")))
+> ### Aliases: postscriptFonts pdfFonts
-> text(1, 6, "circlemultiply", adj=0); text(2.5, 6,  "\\304")
+> ### Keywords: device
-> text(3, 6, expression(symbol("\304")))
+>
-> text(1, 7, "circleplus", adj=0); text(2.5, 7,  "\\305")
+> ### ** Examples
-> text(3, 7, expression(symbol("\305")))
+>
-> text(1, 8, "emptyset", adj=0); text(2.5, 8,  "\\306")
+> postscriptFonts()
-> text(3, 8, expression(symbol("\306")))
+$serif
-> text(1, 9, "angle", adj=0); text(2.5, 9,  "\\320")
+$family
-> text(3, 9, expression(symbol("\320")))
+[1] "Times"
-> text(1, 10, "leftangle", adj=0); text(2.5, 10,  "\\341")
-> text(3, 10, expression(symbol("\341")))
+$metrics
-> text(1, 11, "rightangle", adj=0); text(2.5, 11,  "\\361")
+[1] "Times-Roman.afm"      "Times-Bold.afm"       "Times-Italic.afm"
-> text(3, 11, expression(symbol("\361")))
+[4] "Times-BoldItalic.afm" "Symbol.afm"
->
->
+$encoding
->
+[1] "default"
-> cleanEx()
-> nameEx("postscriptFonts")
+attr(,"class")
-> ### * postscriptFonts
+[1] "Type1Font"
->
-> flush(stderr()); flush(stdout())
+$sans
->
+$family
-> ### Name: postscriptFonts
+[1] "Helvetica"
-> ### Title: PostScript and PDF Font Families
-> ### Aliases: postscriptFonts pdfFonts
+$metrics
-> ### Keywords: device
+[1] "Helvetica.afm"             "Helvetica-Bold.afm"
->
+[3] "Helvetica-Oblique.afm"     "Helvetica-BoldOblique.afm"
-> ### ** Examples
+[5] "Symbol.afm"
->
-> postscriptFonts()
+$encoding
-$serif
+[1] "default"
-$family
-[1] "Times"
+attr(,"class")
+[1] "Type1Font"
-$metrics
-[1] "Times-Roman.afm"      "Times-Bold.afm"       "Times-Italic.afm"
+$mono
-[4] "Times-BoldItalic.afm" "Symbol.afm"
+$family
+[1] "Courier"
-$encoding
-[1] "default"
+$metrics
+[1] "Courier.afm"             "Courier-Bold.afm"
-attr(,"class")
+[3] "Courier-Oblique.afm"     "Courier-BoldOblique.afm"
-[1] "Type1Font"
+[5] "Symbol.afm"
-$sans
+$encoding
-$family
+[1] "default"
-[1] "Helvetica"
+attr(,"class")
-$metrics
+[1] "Type1Font"
-[1] "Helvetica.afm"             "Helvetica-Bold.afm"
-[3] "Helvetica-Oblique.afm"     "Helvetica-BoldOblique.afm"
+$AvantGarde
-[5] "Symbol.afm"
+$family
+[1] "AvantGarde"
-$encoding
-[1] "default"
+$metrics
+[1] "agw_____.afm" "agd_____.afm" "agwo____.afm" "agdo____.afm" "Symbol.afm"
-attr(,"class")
-[1] "Type1Font"
+$encoding
+[1] "default"
-$mono
-$family
+attr(,"class")
-[1] "Courier"
+[1] "Type1Font"
-$metrics
+$Bookman
-[1] "Courier.afm"             "Courier-Bold.afm"
+$family
-[3] "Courier-Oblique.afm"     "Courier-BoldOblique.afm"
+[1] "Bookman"
-[5] "Symbol.afm"
+$metrics
-$encoding
+[1] "bkl_____.afm" "bkd_____.afm" "bkli____.afm" "bkdi____.afm" "Symbol.afm"
-[1] "default"
+$encoding
-attr(,"class")
+[1] "default"
-[1] "Type1Font"
+attr(,"class")
-$AvantGarde
+[1] "Type1Font"
-$family
-[1] "AvantGarde"
+$Courier
+$family
-$metrics
+[1] "Courier"
-[1] "agw_____.afm" "agd_____.afm" "agwo____.afm" "agdo____.afm" "Symbol.afm"
+$metrics
-$encoding
+[1] "Courier.afm"             "Courier-Bold.afm"
-[1] "default"
+[3] "Courier-Oblique.afm"     "Courier-BoldOblique.afm"
+[5] "Symbol.afm"
-attr(,"class")
-[1] "Type1Font"
+$encoding
+[1] "default"
-$Bookman
-$family
+attr(,"class")
-[1] "Bookman"
+[1] "Type1Font"
-$metrics
+$Helvetica
-[1] "bkl_____.afm" "bkd_____.afm" "bkli____.afm" "bkdi____.afm" "Symbol.afm"
+$family
+[1] "Helvetica"
-$encoding
-[1] "default"
+$metrics
+[1] "Helvetica.afm"             "Helvetica-Bold.afm"
-attr(,"class")
+[3] "Helvetica-Oblique.afm"     "Helvetica-BoldOblique.afm"
-[1] "Type1Font"
+[5] "Symbol.afm"
-$Courier
+$encoding
-$family
+[1] "default"
-[1] "Courier"
+attr(,"class")
-$metrics
+[1] "Type1Font"
-[1] "Courier.afm"             "Courier-Bold.afm"
-[3] "Courier-Oblique.afm"     "Courier-BoldOblique.afm"
+$`Helvetica-Narrow`
-[5] "Symbol.afm"
+$family
+[1] "Helvetica-Narrow"
-$encoding
-[1] "default"
+$metrics
+[1] "hvn_____.afm" "hvnb____.afm" "hvno____.afm" "hvnbo___.afm" "Symbol.afm"
-attr(,"class")
-[1] "Type1Font"
+$encoding
+[1] "default"
-$Helvetica
-$family
+attr(,"class")
-[1] "Helvetica"
+[1] "Type1Font"
-$metrics
+$NewCenturySchoolbook
-[1] "Helvetica.afm"             "Helvetica-Bold.afm"
+$family
-[3] "Helvetica-Oblique.afm"     "Helvetica-BoldOblique.afm"
+[1] "NewCenturySchoolbook"
-[5] "Symbol.afm"
+$metrics
-$encoding
+[1] "ncr_____.afm" "ncb_____.afm" "nci_____.afm" "ncbi____.afm" "Symbol.afm"
-[1] "default"
+$encoding
-attr(,"class")
+[1] "default"
-[1] "Type1Font"
+attr(,"class")
-$`Helvetica-Narrow`
+[1] "Type1Font"
-$family
-[1] "Helvetica-Narrow"
+$Palatino
+$family
-$metrics
+[1] "Palatino"
-[1] "hvn_____.afm" "hvnb____.afm" "hvno____.afm" "hvnbo___.afm" "Symbol.afm"
+$metrics
-$encoding
+[1] "por_____.afm" "pob_____.afm" "poi_____.afm" "pobi____.afm" "Symbol.afm"
-[1] "default"
+$encoding
-attr(,"class")
+[1] "default"
-[1] "Type1Font"
+attr(,"class")
-$NewCenturySchoolbook
+[1] "Type1Font"
-$family
-[1] "NewCenturySchoolbook"
+$Times
+$family
-$metrics
+[1] "Times"
-[1] "ncr_____.afm" "ncb_____.afm" "nci_____.afm" "ncbi____.afm" "Symbol.afm"
+$metrics
-$encoding
+[1] "Times-Roman.afm"      "Times-Bold.afm"       "Times-Italic.afm"
-[1] "default"
+[4] "Times-BoldItalic.afm" "Symbol.afm"
-attr(,"class")
+$encoding
-[1] "Type1Font"
+[1] "default"
-$Palatino
+attr(,"class")
-$family
+[1] "Type1Font"
-[1] "Palatino"
+$URWGothic
-$metrics
+$family
-[1] "por_____.afm" "pob_____.afm" "poi_____.afm" "pobi____.afm" "Symbol.afm"
+[1] "URWGothic"
-$encoding
+$metrics
-[1] "default"
+[1] "a010013l.afm" "a010015l.afm" "a010033l.afm" "a010035l.afm" "s050000l.afm"
-attr(,"class")
+$encoding
-[1] "Type1Font"
+[1] "default"
-$Times
+attr(,"class")
-$family
+[1] "Type1Font"
-[1] "Times"
+$URWBookman
-$metrics
+$family
-[1] "Times-Roman.afm"      "Times-Bold.afm"       "Times-Italic.afm"
+[1] "URWBookman"
-[4] "Times-BoldItalic.afm" "Symbol.afm"
+$metrics
-$encoding
+[1] "b018012l.afm" "b018015l.afm" "b018032l.afm" "b018035l.afm" "s050000l.afm"
-[1] "default"
+$encoding
-attr(,"class")
+[1] "default"
-[1] "Type1Font"
+attr(,"class")
-$URWGothic
+[1] "Type1Font"
-$family
-[1] "URWGothic"
+$NimbusMon
+$family
-$metrics
+[1] "NimbusMon"
-[1] "a010013l.afm" "a010015l.afm" "a010033l.afm" "a010035l.afm" "s050000l.afm"
+$metrics
-$encoding
+[1] "n022003l.afm" "n022004l.afm" "n022023l.afm" "n022024l.afm" "s050000l.afm"
-[1] "default"
+$encoding
-attr(,"class")
+[1] "default"
-[1] "Type1Font"
+attr(,"class")
-$URWBookman
+[1] "Type1Font"
-$family
-[1] "URWBookman"
+$NimbusSan
+$family
-$metrics
+[1] "NimbusSan"
-[1] "b018012l.afm" "b018015l.afm" "b018032l.afm" "b018035l.afm" "s050000l.afm"
+$metrics
-$encoding
+[1] "n019003l.afm" "n019004l.afm" "n019023l.afm" "n019024l.afm" "s050000l.afm"
-[1] "default"
+$encoding
-attr(,"class")
+[1] "default"
-[1] "Type1Font"
+attr(,"class")
-$NimbusMon
+[1] "Type1Font"
-$family
-[1] "NimbusMon"
+$URWHelvetica
+$family
-$metrics
+[1] "URWHelvetica"
-[1] "n022003l.afm" "n022004l.afm" "n022023l.afm" "n022024l.afm" "s050000l.afm"
+$metrics
-$encoding
+[1] "n019003l.afm" "n019004l.afm" "n019023l.afm" "n019024l.afm" "s050000l.afm"
-[1] "default"
+$encoding
-attr(,"class")
+[1] "default"
-[1] "Type1Font"
+attr(,"class")
-$NimbusSan
+[1] "Type1Font"
-$family
-[1] "NimbusSan"
+$NimbusSanCond
+$family
-$metrics
+[1] "NimbusSanCond"
-[1] "n019003l.afm" "n019004l.afm" "n019023l.afm" "n019024l.afm" "s050000l.afm"
+$metrics
-$encoding
+[1] "n019043l.afm" "n019044l.afm" "n019063l.afm" "n019064l.afm" "s050000l.afm"
-[1] "default"
+$encoding
-attr(,"class")
+[1] "default"
-[1] "Type1Font"
+attr(,"class")
-$URWHelvetica
+[1] "Type1Font"
-$family
-[1] "URWHelvetica"
+$CenturySch
+$family
-$metrics
+[1] "CenturySch"
-[1] "n019003l.afm" "n019004l.afm" "n019023l.afm" "n019024l.afm" "s050000l.afm"
+$metrics
-$encoding
+[1] "c059013l.afm" "c059016l.afm" "c059033l.afm" "c059036l.afm" "s050000l.afm"
-[1] "default"
+$encoding
-attr(,"class")
+[1] "default"
-[1] "Type1Font"
+attr(,"class")
-$NimbusSanCond
+[1] "Type1Font"
-$family
-[1] "NimbusSanCond"
+$URWPalladio
+$family
-$metrics
+[1] "URWPalladio"
-[1] "n019043l.afm" "n019044l.afm" "n019063l.afm" "n019064l.afm" "s050000l.afm"
+$metrics
-$encoding
+[1] "p052003l.afm" "p052004l.afm" "p052023l.afm" "p052024l.afm" "s050000l.afm"
-[1] "default"
+$encoding
-attr(,"class")
+[1] "default"
-[1] "Type1Font"
+attr(,"class")
-$CenturySch
+[1] "Type1Font"
-$family
-[1] "CenturySch"
+$NimbusRom
+$family
-$metrics
+[1] "NimbusRom"
-[1] "c059013l.afm" "c059016l.afm" "c059033l.afm" "c059036l.afm" "s050000l.afm"
+$metrics
-$encoding
+[1] "n021003l.afm" "n021004l.afm" "n021023l.afm" "n021024l.afm" "s050000l.afm"
-[1] "default"
+$encoding
-attr(,"class")
+[1] "default"
-[1] "Type1Font"
+attr(,"class")
-$URWPalladio
+[1] "Type1Font"
-$family
-[1] "URWPalladio"
+$URWTimes
+$family
-$metrics
+[1] "URWTimes"
-[1] "p052003l.afm" "p052004l.afm" "p052023l.afm" "p052024l.afm" "s050000l.afm"
+$metrics
-$encoding
+[1] "n021003l.afm" "n021004l.afm" "n021023l.afm" "n021024l.afm" "s050000l.afm"
-[1] "default"
+$encoding
-attr(,"class")
+[1] "default"
-[1] "Type1Font"
+attr(,"class")
-$NimbusRom
+[1] "Type1Font"
-$family
-[1] "NimbusRom"
+$ComputerModern
+$family
-$metrics
+[1] "ComputerModern"
-[1] "n021003l.afm" "n021004l.afm" "n021023l.afm" "n021024l.afm" "s050000l.afm"
+$metrics
-$encoding
+[1] "CM_regular_10.afm"      "CM_boldx_10.afm"        "CM_italic_10.afm"
-[1] "default"
+[4] "CM_boldx_italic_10.afm" "CM_symbol_10.afm"
-attr(,"class")
+$encoding
-[1] "Type1Font"
+[1] "TeXtext.enc"
-$URWTimes
+attr(,"class")
-$family
+[1] "Type1Font"
-[1] "URWTimes"
+$ComputerModernItalic
-$metrics
+$family
-[1] "n021003l.afm" "n021004l.afm" "n021023l.afm" "n021024l.afm" "s050000l.afm"
+[1] "ComputerModernItalic"
-$encoding
+$metrics
-[1] "default"
+[1] "CM_regular_10.afm" "CM_boldx_10.afm"   "cmti10.afm"
+[4] "cmbxti10.afm"      "CM_symbol_10.afm"
-attr(,"class")
-[1] "Type1Font"
+$encoding
+[1] "TeXtext.enc"
-$ComputerModern
-$family
+attr(,"class")
-[1] "ComputerModern"
+[1] "Type1Font"
-$metrics
+$Japan1
-[1] "CM_regular_10.afm"      "CM_boldx_10.afm"        "CM_italic_10.afm"
+$family
-[4] "CM_boldx_italic_10.afm" "CM_symbol_10.afm"
+[1] "HeiseiKakuGo-W5"
-$encoding
+$metrics
-[1] "TeXtext.enc"
+[1] ""           ""           ""           ""           "Symbol.afm"
-attr(,"class")
+$cmap
-[1] "Type1Font"
+[1] "EUC-H"
-$ComputerModernItalic
+$cmapEncoding
-$family
+[1] "EUC-JP"
-[1] "ComputerModernItalic"
+$pdfresource
-$metrics
+[1] ""
-[1] "CM_regular_10.afm" "CM_boldx_10.afm"   "cmti10.afm"
-[4] "cmbxti10.afm"      "CM_symbol_10.afm"
+attr(,"class")
+[1] "CIDFont"
-$encoding
-[1] "TeXtext.enc"
+$Japan1HeiMin
+$family
-attr(,"class")
+[1] "HeiseiMin-W3"
-[1] "Type1Font"
+$metrics
-$Japan1
+[1] ""           ""           ""           ""           "Symbol.afm"
-$family
-[1] "HeiseiKakuGo-W5"
+$cmap
+[1] "EUC-H"
-$metrics
-[1] ""           ""           ""           ""           "Symbol.afm"
+$cmapEncoding
+[1] "EUC-JP"
-$cmap
-[1] "EUC-H"
+$pdfresource
+[1] ""
-$cmapEncoding
-[1] "EUC-JP"
+attr(,"class")
+[1] "CIDFont"
-$pdfresource
-[1] ""
+$Japan1GothicBBB
+$family
-attr(,"class")
+[1] "GothicBBB-Medium"
-[1] "CIDFont"
+$metrics
-$Japan1HeiMin
+[1] ""           ""           ""           ""           "Symbol.afm"
-$family
-[1] "HeiseiMin-W3"
+$cmap
+[1] "EUC-H"
-$metrics
-[1] ""           ""           ""           ""           "Symbol.afm"
+$cmapEncoding
+[1] "EUC-JP"
-$cmap
-[1] "EUC-H"
+$pdfresource
+[1] ""
-$cmapEncoding
-[1] "EUC-JP"
+attr(,"class")
+[1] "CIDFont"
-$pdfresource
-[1] ""
+$Japan1Ryumin
+$family
-attr(,"class")
+[1] "Ryumin-Light"
-[1] "CIDFont"
+$metrics
-$Japan1GothicBBB
+[1] ""           ""           ""           ""           "Symbol.afm"
-$family
-[1] "GothicBBB-Medium"
+$cmap
+[1] "EUC-H"
-$metrics
-[1] ""           ""           ""           ""           "Symbol.afm"
+$cmapEncoding
+[1] "EUC-JP"
-$cmap
-[1] "EUC-H"
+$pdfresource
+[1] ""
-$cmapEncoding
-[1] "EUC-JP"
+attr(,"class")
+[1] "CIDFont"
-$pdfresource
-[1] ""
+$Korea1
+$family
-attr(,"class")
+[1] "Baekmuk-Batang"
-[1] "CIDFont"
+$metrics
-$Japan1Ryumin
+[1] ""           ""           ""           ""           "Symbol.afm"
-$family
-[1] "Ryumin-Light"
+$cmap
+[1] "KSCms-UHC-H"
-$metrics
-[1] ""           ""           ""           ""           "Symbol.afm"
+$cmapEncoding
+[1] "CP949"
-$cmap
-[1] "EUC-H"
+$pdfresource
+[1] ""
-$cmapEncoding
-[1] "EUC-JP"
+attr(,"class")
+[1] "CIDFont"
-$pdfresource
-[1] ""
+$Korea1deb
+$family
-attr(,"class")
+[1] "Batang-Regular"
-[1] "CIDFont"
+$metrics
-$Korea1
+[1] ""           ""           ""           ""           "Symbol.afm"
-$family
-[1] "Baekmuk-Batang"
+$cmap
+[1] "KSCms-UHC-H"
-$metrics
-[1] ""           ""           ""           ""           "Symbol.afm"
+$cmapEncoding
+[1] "CP949"
-$cmap
-[1] "KSCms-UHC-H"
+$pdfresource
+[1] ""
-$cmapEncoding
-[1] "CP949"
+attr(,"class")
+[1] "CIDFont"
-$pdfresource
-[1] ""
+$CNS1
+$family
-attr(,"class")
+[1] "MOESung-Regular"
-[1] "CIDFont"
+$metrics
-$Korea1deb
+[1] ""           ""           ""           ""           "Symbol.afm"
-$family
-[1] "Batang-Regular"
+$cmap
+[1] "B5pc-H"
-$metrics
-[1] ""           ""           ""           ""           "Symbol.afm"
+$cmapEncoding
+[1] "CP950"
-$cmap
-[1] "KSCms-UHC-H"
+$pdfresource
+[1] ""
-$cmapEncoding
-[1] "CP949"
+attr(,"class")
+[1] "CIDFont"
-$pdfresource
-[1] ""
+$GB1
+$family
-attr(,"class")
+[1] "BousungEG-Light-GB"
-[1] "CIDFont"
+$metrics
-$CNS1
+[1] ""           ""           ""           ""           "Symbol.afm"
-$family
-[1] "MOESung-Regular"
+$cmap
+[1] "GBK-EUC-H"
-$metrics
-[1] ""           ""           ""           ""           "Symbol.afm"
+$cmapEncoding
+[1] "GBK"
-$cmap
-[1] "B5pc-H"
+$pdfresource
+[1] ""
-$cmapEncoding
-[1] "CP950"
+attr(,"class")
+[1] "CIDFont"
-$pdfresource
-[1] ""
+> ## This duplicates "ComputerModernItalic".
+> CMitalic <- Type1Font("ComputerModern2",
-attr(,"class")
++                       c("CM_regular_10.afm", "CM_boldx_10.afm",
-[1] "CIDFont"
++                         "cmti10.afm", "cmbxti10.afm",
++                          "CM_symbol_10.afm"),
-$GB1
++                       encoding = "TeXtext.enc")
-$family
+> postscriptFonts(CMitalic = CMitalic)
-[1] "BousungEG-Light-GB"
+>
+> ## A CID font for Japanese using a different CMap and
-$metrics
+> ## corresponding cmapEncoding.
-[1] ""           ""           ""           ""           "Symbol.afm"
+> `Jp_UCS-2` <- CIDFont("TestUCS2",
++                   c("Adobe-Japan1-UniJIS-UCS2-H.afm",
-$cmap
++                     "Adobe-Japan1-UniJIS-UCS2-H.afm",
-[1] "GBK-EUC-H"
++                     "Adobe-Japan1-UniJIS-UCS2-H.afm",
++                     "Adobe-Japan1-UniJIS-UCS2-H.afm"),
-$cmapEncoding
++                   "UniJIS-UCS2-H", "UCS-2")
-[1] "GBK"
+> pdfFonts(`Jp_UCS-2` = `Jp_UCS-2`)
+> names(pdfFonts())
-$pdfresource
+ [1] "serif"                "sans"                 "mono"
-[1] ""
+ [4] "AvantGarde"           "Bookman"              "Courier"
+ [7] "Helvetica"            "Helvetica-Narrow"     "NewCenturySchoolbook"
-attr(,"class")
+[10] "Palatino"             "Times"                "URWGothic"
-[1] "CIDFont"
+[13] "URWBookman"           "NimbusMon"            "NimbusSan"
+[16] "URWHelvetica"         "NimbusSanCond"        "CenturySch"
-> ## This duplicates "ComputerModernItalic".
+[19] "URWPalladio"          "NimbusRom"            "URWTimes"
-> CMitalic <- Type1Font("ComputerModern2",
+[22] "Japan1"               "Japan1HeiMin"         "Japan1GothicBBB"
-+                       c("CM_regular_10.afm", "CM_boldx_10.afm",
+[25] "Japan1Ryumin"         "Korea1"               "Korea1deb"
-+                         "cmti10.afm", "cmbxti10.afm",
+[28] "CNS1"                 "GB1"                  "Jp_UCS-2"
-+                          "CM_symbol_10.afm"),
+>
-+                       encoding = "TeXtext.enc")
+>
-> postscriptFonts(CMitalic = CMitalic)
+>
->
+> cleanEx()
-> ## A CID font for Japanese using a different CMap and
+> nameEx("pretty.Date")
-> ## corresponding cmapEncoding.
+> ### * pretty.Date
-> `Jp_UCS-2` <- CIDFont("TestUCS2",
+>
-+                   c("Adobe-Japan1-UniJIS-UCS2-H.afm",
+> flush(stderr()); flush(stdout())
-+                     "Adobe-Japan1-UniJIS-UCS2-H.afm",
+>
-+                     "Adobe-Japan1-UniJIS-UCS2-H.afm",
+> ### Name: pretty.Date
-+                     "Adobe-Japan1-UniJIS-UCS2-H.afm"),
+> ### Title: Pretty Breakpoints for Date-Time Classes
-+                   "UniJIS-UCS2-H", "UCS-2")
+> ### Aliases: pretty.Date pretty.POSIXt
-> pdfFonts(`Jp_UCS-2` = `Jp_UCS-2`)
+> ### Keywords: dplot
-> names(pdfFonts())
+>
- [1] "serif"                "sans"                 "mono"
+> ### ** Examples
- [4] "AvantGarde"           "Bookman"              "Courier"
+>
- [7] "Helvetica"            "Helvetica-Narrow"     "NewCenturySchoolbook"
+>
-[10] "Palatino"             "Times"                "URWGothic"
+> steps <-
-[13] "URWBookman"           "NimbusMon"            "NimbusSan"
++     list("10 secs", "1 min", "5 mins", "30 mins", "6 hours", "12 hours",
-[16] "URWHelvetica"         "NimbusSanCond"        "CenturySch"
++          "1 DSTday", "2 weeks", "1 month", "6 months", "1 year",
-[19] "URWPalladio"          "NimbusRom"            "URWTimes"
++          "10 years", "50 years", "1000 years")
-[22] "Japan1"               "Japan1HeiMin"         "Japan1GothicBBB"
+>
-[25] "Japan1Ryumin"         "Korea1"               "Korea1deb"
+> names(steps) <- paste("span =", unlist(steps))
-[28] "CNS1"                 "GB1"                  "Jp_UCS-2"
+>
->
+> x <- as.POSIXct("2002-02-02 02:02")
->
+> lapply(steps,
->
++        function(s) {
-> cleanEx()
++            at <- pretty(seq(x, by = s, length = 2), n = 5)
-> nameEx("pretty.Date")
++            attr(at, "labels")
-> ### * pretty.Date
++        })
->
+$`span = 10 secs`
-> flush(stderr()); flush(stdout())
+[1] "00" "02" "04" "06" "08" "10"
->
-> ### Name: pretty.Date
+$`span = 1 min`
-> ### Title: Pretty Breakpoints for Date-Time Classes
+[1] "00" "10" "20" "30" "40" "50" "00"
-> ### Aliases: pretty.Date pretty.POSIXt
-> ### Keywords: dplot
+$`span = 5 mins`
->
+[1] "02:02" "02:03" "02:04" "02:05" "02:06" "02:07"
-> ### ** Examples
->
+$`span = 30 mins`
->
+[1] "02:05" "02:10" "02:15" "02:20" "02:25" "02:30"
-> steps <-
-+     list("10 secs", "1 min", "5 mins", "30 mins", "6 hours", "12 hours",
+$`span = 6 hours`
-+          "1 DSTday", "2 weeks", "1 month", "6 months", "1 year",
+[1] "03:00" "04:00" "05:00" "06:00" "07:00" "08:00"
-+          "10 years", "50 years", "1000 years")
->
+$`span = 12 hours`
-> names(steps) <- paste("span =", unlist(steps))
+[1] "03:00" "06:00" "09:00" "12:00"
->
-> x <- as.POSIXct("2002-02-02 02:02")
+$`span = 1 DSTday`
-> lapply(steps,
+[1] "Feb 02 06:00" "Feb 02 12:00" "Feb 02 18:00" "Feb 03 00:00"
-+        function(s) {
-+            at <- pretty(seq(x, by = s, length = 2), n = 5)
+$`span = 2 weeks`
-+            attr(at, "labels")
+[1] "Feb 04" "Feb 06" "Feb 08" "Feb 10" "Feb 12" "Feb 14" "Feb 16"
-+        })
-$`span = 10 secs`
+$`span = 1 month`
-[1] "00" "02" "04" "06" "08" "10"
+[1] "Feb 04" "Feb 11" "Feb 18" "Feb 25"
-$`span = 1 min`
+$`span = 6 months`
-[1] "00" "10" "20" "30" "40" "50" "00"
+[1] "Mar" "Apr" "May" "Jun" "Jul" "Aug"
-$`span = 5 mins`
+$`span = 1 year`
-[1] "02:02" "02:03" "02:04" "02:05" "02:06" "02:07"
+[1] "Apr" "Jul" "Oct" "Jan"
-$`span = 30 mins`
+$`span = 10 years`
-[1] "02:05" "02:10" "02:15" "02:20" "02:25" "02:30"
+[1] "2004" "2006" "2008" "2010" "2012"
-$`span = 6 hours`
+$`span = 50 years`
-[1] "03:00" "04:00" "05:00" "06:00" "07:00" "08:00"
+[1] "2010" "2020" "2030" "2040" "2050"
-$`span = 12 hours`
+$`span = 1000 years`
-[1] "03:00" "06:00" "09:00" "12:00"
+[1] "2200" "2400" "2600" "2800" "3000"
-$`span = 1 DSTday`
+>
-[1] "Feb 02 06:00" "Feb 02 12:00" "Feb 02 18:00" "Feb 03 00:00"
+>
+>
-$`span = 2 weeks`
+>
-[1] "Feb 04" "Feb 06" "Feb 08" "Feb 10" "Feb 12" "Feb 14" "Feb 16"
+> cleanEx()
+> nameEx("ps.options")
-$`span = 1 month`
+> ### * ps.options
-[1] "Feb 04" "Feb 11" "Feb 18" "Feb 25"
+>
+> flush(stderr()); flush(stdout())
-$`span = 6 months`
+>
-[1] "Mar" "Apr" "May" "Jun" "Jul" "Aug"
+> ### Name: ps.options
+> ### Title: Auxiliary Function to Set/View Defaults for Arguments of
-$`span = 1 year`
+> ###   postscript
-[1] "Apr" "Jul" "Oct" "Jan"
+> ### Aliases: ps.options setEPS setPS
+> ### Keywords: device
-$`span = 10 years`
+>
-[1] "2004" "2006" "2008" "2010" "2012"
+> ### ** Examples
+>
-$`span = 50 years`
+> ps.options(bg = "pink")
-[1] "2010" "2020" "2030" "2040" "2050"
+> utils::str(ps.options())
+List of 18
-$`span = 1000 years`
+ $ onefile    : logi TRUE
-[1] "2200" "2400" "2600" "2800" "3000"
+ $ family     : chr "Helvetica"
+ $ title      : chr "R Graphics Output"
->
+ $ fonts      : NULL
->
+ $ encoding   : chr "default"
->
+ $ bg         : chr "pink"
->
+ $ fg         : chr "black"
-> cleanEx()
+ $ width      : num 7
-> nameEx("ps.options")
+ $ height     : num 7
-> ### * ps.options
+ $ horizontal : logi TRUE
->
+ $ pointsize  : num 12
-> flush(stderr()); flush(stdout())
+ $ paper      : chr "a4"
->
+ $ pagecentre : logi TRUE
-> ### Name: ps.options
+ $ print.it   : logi FALSE
-> ### Title: Auxiliary Function to Set/View Defaults for Arguments of
+ $ command    : chr "default"
-> ###   postscript
+ $ colormodel : chr "rgb"
-> ### Aliases: ps.options setEPS setPS
+ $ useKerning : logi TRUE
-> ### Keywords: device
+ $ fillOddEven: logi FALSE
 >
-> ### ** Examples
+> ### ---- error checking of arguments: ----
->
+> ps.options(width=0:12, onefile=0, bg=pi)
-> ps.options(bg = "pink")
+Warning: 'mode(onefile)' and 'mode(bg)' differ between new and previous
-> utils::str(ps.options())
+	 ==> NOT changing 'onefile' & 'bg'
-List of 18
+Warning: 'length(width)' differs between new and previous
- $ onefile    : logi TRUE
+	 ==> NOT changing 'width'
- $ family     : chr "Helvetica"
+> # override the check for 'width', but not 'bg':
- $ title      : chr "R Graphics Output"
+> ps.options(width=0:12, bg=pi, override.check = c(TRUE,FALSE))
- $ fonts      : NULL
+Warning: 'mode(bg)' differs between new and previous
- $ encoding   : chr "default"
+	 ==> NOT changing 'bg'
- $ bg         : chr "pink"
+Warning: 'length(width)' differs between new and previous
- $ fg         : chr "black"
+> utils::str(ps.options())
- $ width      : num 7
+List of 18
- $ height     : num 7
+ $ onefile    : logi TRUE
- $ horizontal : logi TRUE
+ $ family     : chr "Helvetica"
- $ pointsize  : num 12
+ $ title      : chr "R Graphics Output"
- $ paper      : chr "a4"
+ $ fonts      : NULL
- $ pagecentre : logi TRUE
+ $ encoding   : chr "default"
- $ print.it   : logi FALSE
+ $ bg         : chr "pink"
- $ command    : chr "default"
+ $ fg         : chr "black"
- $ colormodel : chr "rgb"
+ $ width      : int [1:13] 0 1 2 3 4 5 6 7 8 9 ...
- $ useKerning : logi TRUE
+ $ height     : num 7
- $ fillOddEven: logi FALSE
+ $ horizontal : logi TRUE
->
+ $ pointsize  : num 12
-> ### ---- error checking of arguments: ----
+ $ paper      : chr "a4"
-> ps.options(width=0:12, onefile=0, bg=pi)
+ $ pagecentre : logi TRUE
-Warning: ‘mode(onefile)’ and ‘mode(bg)’ differ between new and previous
+ $ print.it   : logi FALSE
-	 ==> NOT changing ‘onefile’ & ‘bg’
+ $ command    : chr "default"
-Warning: ‘length(width)’ differs between new and previous
+ $ colormodel : chr "rgb"
-	 ==> NOT changing ‘width’
+ $ useKerning : logi TRUE
-> # override the check for 'width', but not 'bg':
+ $ fillOddEven: logi FALSE
-> ps.options(width=0:12, bg=pi, override.check = c(TRUE,FALSE))
+> ps.options(reset = TRUE) # back to factory-fresh
-Warning: ‘mode(bg)’ differs between new and previous
+>
-	 ==> NOT changing ‘bg’
+>
-Warning: ‘length(width)’ differs between new and previous
+>
-> utils::str(ps.options())
+> cleanEx()
-List of 18
+> nameEx("recordGraphics")
- $ onefile    : logi TRUE
+> ### * recordGraphics
- $ family     : chr "Helvetica"
+>
- $ title      : chr "R Graphics Output"
+> flush(stderr()); flush(stdout())
- $ fonts      : NULL
+>
- $ encoding   : chr "default"
+> ### Name: recordGraphics
- $ bg         : chr "pink"
+> ### Title: Record Graphics Operations
- $ fg         : chr "black"
+> ### Aliases: recordGraphics
- $ width      : int [1:13] 0 1 2 3 4 5 6 7 8 9 ...
+> ### Keywords: device
- $ height     : num 7
+>
- $ horizontal : logi TRUE
+> ### ** Examples
- $ pointsize  : num 12
+>
- $ paper      : chr "a4"
+> require(graphics)
- $ pagecentre : logi TRUE
+>
- $ print.it   : logi FALSE
+> plot(1:10)
- $ command    : chr "default"
+> # This rectangle remains 1inch wide when the device is resized
- $ colormodel : chr "rgb"
+> recordGraphics(
- $ useKerning : logi TRUE
++   {
- $ fillOddEven: logi FALSE
++     rect(4, 2,
-> ps.options(reset = TRUE) # back to factory-fresh
++          4 + diff(par("usr")[1:2])/par("pin")[1], 3)
->
++   },
->
++   list(),
->
++   getNamespace("graphics"))
-> cleanEx()
+>
-> nameEx("recordGraphics")
+>
-> ### * recordGraphics
+>
->
+> graphics::par(get("par.postscript", pos = 'CheckExEnv'))
-> flush(stderr()); flush(stdout())
+> cleanEx()
->
+> nameEx("rgb")
-> ### Name: recordGraphics
+> ### * rgb
-> ### Title: Record Graphics Operations
+>
-> ### Aliases: recordGraphics
+> flush(stderr()); flush(stdout())
-> ### Keywords: device
+>
->
+> ### Name: rgb
-> ### ** Examples
+> ### Title: RGB Color Specification
->
+> ### Aliases: rgb
-> require(graphics)
+> ### Keywords: color
 >
-> plot(1:10)
+> ### ** Examples
-> # This rectangle remains 1inch wide when the device is resized
+>
-> recordGraphics(
+> rgb(0,1,0)
-+   {
+[1] "#00FF00"
-+     rect(4, 2,
+>
-+          4 + diff(par("usr")[1:2])/par("pin")[1], 3)
+> rgb((0:15)/15, green=0, blue=0, names=paste("red",0:15,sep="."))
-+   },
+    red.0     red.1     red.2     red.3     red.4     red.5     red.6     red.7
-+   list(),
+"#000000" "#110000" "#220000" "#330000" "#440000" "#550000" "#660000" "#770000"
-+   getNamespace("graphics"))
+    red.8     red.9    red.10    red.11    red.12    red.13    red.14    red.15
->
+"#880000" "#990000" "#AA0000" "#BB0000" "#CC0000" "#DD0000" "#EE0000" "#FF0000"
 >
->
+> rgb(0, 0:12, 0, max = 255)# integer input
-> graphics::par(get("par.postscript", pos = 'CheckExEnv'))
+ [1] "#000000" "#000100" "#000200" "#000300" "#000400" "#000500" "#000600"
-> cleanEx()
+ [8] "#000700" "#000800" "#000900" "#000A00" "#000B00" "#000C00"
-> nameEx("rgb")
+>
-> ### * rgb
+> ramp <- colorRamp(c("red", "white"))
->
+> rgb( ramp(seq(0, 1, length = 5)), max = 255)
-> flush(stderr()); flush(stdout())
+[1] "#FF0000" "#FF3F3F" "#FF7F7F" "#FFBFBF" "#FFFFFF"
 >
-> ### Name: rgb
+>
-> ### Title: RGB Color Specification
+>
-> ### Aliases: rgb
+> cleanEx()
-> ### Keywords: color
+> nameEx("rgb2hsv")
->
+> ### * rgb2hsv
-> ### ** Examples
+>
->
+> flush(stderr()); flush(stdout())
-> rgb(0,1,0)
+>
-[1] "#00FF00"
+> ### Name: rgb2hsv
->
+> ### Title: RGB to HSV Conversion
-> rgb((0:15)/15, green=0, blue=0, names=paste("red",0:15,sep="."))
+> ### Aliases: rgb2hsv
-    red.0     red.1     red.2     red.3     red.4     red.5     red.6     red.7
+> ### Keywords: color dplot
-"#000000" "#110000" "#220000" "#330000" "#440000" "#550000" "#660000" "#770000"
+>
-    red.8     red.9    red.10    red.11    red.12    red.13    red.14    red.15
+> ### ** Examples
-"#880000" "#990000" "#AA0000" "#BB0000" "#CC0000" "#DD0000" "#EE0000" "#FF0000"
+>
->
+> ## These (saturated, bright ones) only differ by hue
-> rgb(0, 0:12, 0, max = 255)# integer input
+> (rc <- col2rgb(c("red", "yellow","green","cyan", "blue", "magenta")))
- [1] "#000000" "#000100" "#000200" "#000300" "#000400" "#000500" "#000600"
+      [,1] [,2] [,3] [,4] [,5] [,6]
- [8] "#000700" "#000800" "#000900" "#000A00" "#000B00" "#000C00"
+red    255  255    0    0    0  255
->
+green    0  255  255  255    0    0
-> ramp <- colorRamp(c("red", "white"))
+blue     0    0    0  255  255  255
-> rgb( ramp(seq(0, 1, length = 5)), max = 255)
+> (hc <- rgb2hsv(rc))
-[1] "#FF0000" "#FF3F3F" "#FF7F7F" "#FFBFBF" "#FFFFFF"
+  [,1]      [,2]      [,3] [,4]      [,5]      [,6]
->
+h    0 0.1666667 0.3333333  0.5 0.6666667 0.8333333
->
+s    1 1.0000000 1.0000000  1.0 1.0000000 1.0000000
->
+v    1 1.0000000 1.0000000  1.0 1.0000000 1.0000000
-> cleanEx()
+> 6 * hc["h",] # the hues are equispaced
-> nameEx("rgb2hsv")
+[1] 0 1 2 3 4 5
-> ### * rgb2hsv
+>
->
+> ## Don't show:
-> flush(stderr()); flush(stdout())
+> set.seed(151)
->
+> ## End Don't show
-> ### Name: rgb2hsv
+> (rgb3 <- floor(256 * matrix(stats::runif(3*12), 3,12)))
-> ### Title: RGB to HSV Conversion
+     [,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10] [,11] [,12]
-> ### Aliases: rgb2hsv
+[1,]  122  137  116  244   20  153  191  250  134   117    27   202
-> ### Keywords: color dplot
+[2,]  221  113  210  200  218  151   64  182  195   103   218   254
->
+[3,]  199  157   88   76   39   91   80  146   22   105    17   239
-> ### ** Examples
+> (hsv3 <- rgb2hsv(rgb3))
->
+       [,1]      [,2]      [,3]      [,4]      [,5]      [,6]      [,7]
-> ## These (saturated, bright ones) only differ by hue
+h 0.4629630 0.7575758 0.2950820 0.1230159 0.3493266 0.1612903 0.9790026
-> (rc <- col2rgb(c("red", "yellow","green","cyan", "blue", "magenta")))
+s 0.4479638 0.2802548 0.5809524 0.6885246 0.9082569 0.4052288 0.6649215
-      [,1] [,2] [,3] [,4] [,5] [,6]
+v 0.8666667 0.6156863 0.8235294 0.9568627 0.8549020 0.6000000 0.7490196
-red    255  255    0    0    0  255
+        [,8]      [,9]     [,10]     [,11]     [,12]
-green    0  255  255  255    0    0
+h 0.05769231 0.2254335 0.9761905 0.3250415 0.4519231
-blue     0    0    0  255  255  255
+s 0.41600000 0.8871795 0.1196581 0.9220183 0.2047244
-> (hc <- rgb2hsv(rc))
+v 0.98039216 0.7647059 0.4588235 0.8549020 0.9960784
-  [,1]      [,2]      [,3] [,4]      [,5]      [,6]
+> ## Consistency :
-h    0 0.1666667 0.3333333  0.5 0.6666667 0.8333333
+> stopifnot(rgb3 == col2rgb(hsv(h=hsv3[1,], s=hsv3[2,], v=hsv3[3,])),
-s    1 1.0000000 1.0000000  1.0 1.0000000 1.0000000
++           all.equal(hsv3, rgb2hsv(rgb3/255, maxColorValue = 1)))
-v    1 1.0000000 1.0000000  1.0 1.0000000 1.0000000
+>
-> 6 * hc["h",] # the hues are equispaced
+> ## A (simplified) pure R version -- originally by Wolfram Fischer --
-[1] 0 1 2 3 4 5
+> ## showing the exact algorithm:
->
+> rgb2hsvR <- function(rgb, gamma = 1, maxColorValue = 255)
-> ## Don't show:
++ {
-> set.seed(151)
++     if(!is.numeric(rgb)) stop("rgb matrix must be numeric")
-> ## End Don't show
++     d <- dim(rgb)
-> (rgb3 <- floor(256 * matrix(stats::runif(3*12), 3,12)))
++     if(d[1] != 3) stop("rgb matrix must have 3 rows")
-     [,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10] [,11] [,12]
++     n <- d[2]
-[1,]  122  137  116  244   20  153  191  250  134   117    27   202
++     if(n == 0) return(cbind(c(h=1,s=1,v=1))[,0])
-[2,]  221  113  210  200  218  151   64  182  195   103   218   254
++     rgb <- rgb/maxColorValue
-[3,]  199  157   88   76   39   91   80  146   22   105    17   239
++     if(gamma != 1) rgb <- rgb ^ (1/gamma)
-> (hsv3 <- rgb2hsv(rgb3))
++
-       [,1]      [,2]      [,3]      [,4]      [,5]      [,6]      [,7]
++     ## get the max and min
-h 0.4629630 0.7575758 0.2950820 0.1230159 0.3493266 0.1612903 0.9790026
++     v <- apply( rgb, 2, max)
-s 0.4479638 0.2802548 0.5809524 0.6885246 0.9082569 0.4052288 0.6649215
++     s <- apply( rgb, 2, min)
-v 0.8666667 0.6156863 0.8235294 0.9568627 0.8549020 0.6000000 0.7490196
++     D <- v - s # range
-        [,8]      [,9]     [,10]     [,11]     [,12]
++
-h 0.05769231 0.2254335 0.9761905 0.3250415 0.4519231
++     ## set hue to zero for undefined values (gray has no hue)
-s 0.41600000 0.8871795 0.1196581 0.9220183 0.2047244
++     h <- numeric(n)
-v 0.98039216 0.7647059 0.4588235 0.8549020 0.9960784
++     notgray <- ( s != v )
-> ## Consistency :
++
-> stopifnot(rgb3 == col2rgb(hsv(h=hsv3[1,], s=hsv3[2,], v=hsv3[3,])),
++     ## blue hue
-+           all.equal(hsv3, rgb2hsv(rgb3/255, maxColorValue = 1)))
++     idx <- (v == rgb[3,] & notgray )
->
++     if (any (idx))
-> ## A (simplified) pure R version -- originally by Wolfram Fischer --
++         h[idx] <- 2/3 + 1/6 * (rgb[1,idx] - rgb[2,idx]) / D[idx]
-> ## showing the exact algorithm:
++     ## green hue
-> rgb2hsvR <- function(rgb, gamma = 1, maxColorValue = 255)
++     idx <- (v == rgb[2,] & notgray )
-+ {
++     if (any (idx))
-+     if(!is.numeric(rgb)) stop("rgb matrix must be numeric")
++         h[idx] <- 1/3 + 1/6 * (rgb[3,idx] - rgb[1,idx]) / D[idx]
-+     d <- dim(rgb)
++     ## red hue
-+     if(d[1] != 3) stop("rgb matrix must have 3 rows")
++     idx <- (v == rgb[1,] & notgray )
-+     n <- d[2]
++     if (any (idx))
-+     if(n == 0) return(cbind(c(h=1,s=1,v=1))[,0])
++         h[idx] <-       1/6 * (rgb[2,idx] - rgb[3,idx]) / D[idx]
-+     rgb <- rgb/maxColorValue
++
-+     if(gamma != 1) rgb <- rgb ^ (1/gamma)
++     ## correct for negative red
-+
++     idx <- (h < 0)
-+     ## get the max and min
++     h[idx] <- 1+h[idx]
-+     v <- apply( rgb, 2, max)
++
-+     s <- apply( rgb, 2, min)
++     ## set the saturation
-+     D <- v - s # range
++     s[! notgray] <- 0;
-+
++     s[notgray] <- 1 - s[notgray] / v[notgray]
-+     ## set hue to zero for undefined values (gray has no hue)
++
-+     h <- numeric(n)
++     rbind( h=h, s=s, v=v )
-+     notgray <- ( s != v )
++ }
-+
+>
-+     ## blue hue
+> ## confirm the equivalence:
-+     idx <- (v == rgb[3,] & notgray )
+> all.equal(rgb2hsv (rgb3),
-+     if (any (idx))
++           rgb2hsvR(rgb3), tol=1e-14) # TRUE
-+         h[idx] <- 2/3 + 1/6 * (rgb[1,idx] - rgb[2,idx]) / D[idx]
+[1] TRUE
-+     ## green hue
+>
-+     idx <- (v == rgb[2,] & notgray )
+>
-+     if (any (idx))
+>
-+         h[idx] <- 1/3 + 1/6 * (rgb[3,idx] - rgb[1,idx]) / D[idx]
+> cleanEx()
-+     ## red hue
+> nameEx("trans3d")
-+     idx <- (v == rgb[1,] & notgray )
+> ### * trans3d
-+     if (any (idx))
+>
-+         h[idx] <-       1/6 * (rgb[2,idx] - rgb[3,idx]) / D[idx]
+> flush(stderr()); flush(stdout())
-+
+>
-+     ## correct for negative red
+> ### Name: trans3d
-+     idx <- (h < 0)
+> ### Title: 3D to 2D Transformation for Perspective Plots
-+     h[idx] <- 1+h[idx]
+> ### Aliases: trans3d
-+
+> ### Keywords: dplot
-+     ## set the saturation
+>
-+     s[! notgray] <- 0;
+> ### ** Examples
-+     s[notgray] <- 1 - s[notgray] / v[notgray]
+>
-+
+> ## See  help(persp) {after attaching the 'graphics' package}
-+     rbind( h=h, s=s, v=v )
+> ##      -----------
-+ }
+>
 >
-> ## confirm the equivalence:
+>
-> all.equal(rgb2hsv (rgb3),
+> cleanEx()
-+           rgb2hsvR(rgb3), tol=1e-14) # TRUE
+> nameEx("xy.coords")
-[1] TRUE
+> ### * xy.coords
 >
->
+> flush(stderr()); flush(stdout())
 >
-> cleanEx()
+> ### Name: xy.coords
-> nameEx("trans3d")
+> ### Title: Extracting Plotting Structures
-> ### * trans3d
+> ### Aliases: xy.coords
->
+> ### Keywords: dplot
-> flush(stderr()); flush(stdout())
+>
->
+> ### ** Examples
-> ### Name: trans3d
+>
-> ### Title: 3D to 2D Transformation for Perspective Plots
+> xy.coords(stats::fft(c(1:9)), NULL)
-> ### Aliases: trans3d
+$x
-> ### Keywords: dplot
+[1] 45.0 -4.5 -4.5 -4.5 -4.5 -4.5 -4.5 -4.5 -4.5
->
-> ### ** Examples
+$y
->
+[1]   0.0000000  12.3636484   5.3628912   2.5980762   0.7934714  -0.7934714
-> ## See  help(persp) {after attaching the 'graphics' package}
+[7]  -2.5980762  -5.3628912 -12.3636484
-> ##      -----------
->
+$xlab
->
+[1] "Re()"
->
-> cleanEx()
+$ylab
-> nameEx("xy.coords")
+[1] "Im()"
-> ### * xy.coords
 >
-> flush(stderr()); flush(stdout())
+> with(cars, xy.coords(dist ~ speed, NULL)$xlab ) # = "speed"
->
+[1] "speed"
-> ### Name: xy.coords
+>
-> ### Title: Extracting Plotting Structures
+> xy.coords(1:3, 1:2, recycle=TRUE)
-> ### Aliases: xy.coords
+$x
-> ### Keywords: dplot
+[1] 1 2 3
->
-> ### ** Examples
+$y
->
+[1] 1 2 1
-> xy.coords(stats::fft(c(1:9)), NULL)
-$x
+$xlab
-[1] 45.0 -4.5 -4.5 -4.5 -4.5 -4.5 -4.5 -4.5 -4.5
+NULL
-$y
+$ylab
-[1]   0.0000000  12.3636484   5.3628912   2.5980762   0.7934714  -0.7934714
+NULL
-[7]  -2.5980762  -5.3628912 -12.3636484
+> xy.coords(-2:10,NULL, log="y")
-$xlab
+Warning in xy.coords(-2:10, NULL, log = "y") :
-[1] "Re()"
+y values <= 0 omitted from logarithmic plot
+$x
-$ylab
+ [1]  1  2  3  4  5  6  7  8  9 10 11 12 13
-[1] "Im()"
+$y
->
+ [1] NA NA NA  1  2  3  4  5  6  7  8  9 10
-> with(cars, xy.coords(dist ~ speed, NULL)$xlab ) # = "speed"
-[1] "speed"
+$xlab
->
+[1] "Index"
-> xy.coords(1:3, 1:2, recycle=TRUE)
-$x
+$ylab
-[1] 1 2 3
+NULL
-$y
+> ##> warning: 3 y values <=0 omitted ..
-[1] 1 2 1
+>
+>
-$xlab
+>
-NULL
+> cleanEx()
+> nameEx("xyTable")
-$ylab
+> ### * xyTable
-NULL
+>
+> flush(stderr()); flush(stdout())
-> xy.coords(-2:10,NULL, log="y")
+>
-Warning in xy.coords(-2:10, NULL, log = "y") :
+> ### Name: xyTable
-y values <= 0 omitted from logarithmic plot
+> ### Title: Multiplicities of (x,y) Points, e.g., for a Sunflower Plot
-$x
+> ### Aliases: xyTable
- [1]  1  2  3  4  5  6  7  8  9 10 11 12 13
+> ### Keywords: dplot
+>
-$y
+> ### ** Examples
- [1] NA NA NA  1  2  3  4  5  6  7  8  9 10
+>
+> xyTable(iris[,3:4], digits = 6)
-$xlab
+$x
-[1] "Index"
+  [1] 1.0 1.1 1.2 1.3 1.3 1.3 1.4 1.4 1.4 1.5 1.5 1.5 1.5 1.6 1.6 1.6 1.7 1.7
+ [19] 1.7 1.7 1.9 1.9 3.0 3.3 3.5 3.6 3.7 3.8 3.9 3.9 3.9 4.0 4.0 4.0 4.1 4.1
-$ylab
+ [37] 4.2 4.2 4.2 4.3 4.4 4.4 4.4 4.5 4.5 4.5 4.5 4.6 4.6 4.6 4.7 4.7 4.7 4.7
-NULL
+ [55] 4.8 4.8 4.9 4.9 4.9 5.0 5.0 5.0 5.0 5.1 5.1 5.1 5.1 5.1 5.1 5.1 5.2 5.2
+ [73] 5.3 5.3 5.4 5.4 5.5 5.5 5.6 5.6 5.6 5.6 5.6 5.7 5.7 5.7 5.8 5.8 5.8 5.9
-> ##> warning: 3 y values <=0 omitted ..
+ [91] 5.9 6.0 6.0 6.1 6.1 6.1 6.3 6.4 6.6 6.7 6.7 6.9
->
->
+$y
->
+  [1] 0.2 0.1 0.2 0.2 0.3 0.4 0.1 0.2 0.3 0.1 0.2 0.3 0.4 0.2 0.4 0.6 0.2 0.3
-> cleanEx()
+ [19] 0.4 0.5 0.2 0.4 1.1 1.0 1.0 1.3 1.0 1.1 1.1 1.2 1.4 1.0 1.2 1.3 1.0 1.3
-> nameEx("xyTable")
+ [37] 1.2 1.3 1.5 1.3 1.2 1.3 1.4 1.3 1.5 1.6 1.7 1.3 1.4 1.5 1.2 1.4 1.5 1.6
-> ### * xyTable
+ [55] 1.4 1.8 1.5 1.8 2.0 1.5 1.7 1.9 2.0 1.5 1.6 1.8 1.9 2.0 2.3 2.4 2.0 2.3
->
+ [73] 1.9 2.3 2.1 2.3 1.8 2.1 1.4 1.8 2.1 2.2 2.4 2.1 2.3 2.5 1.6 1.8 2.2 2.1
-> flush(stderr()); flush(stdout())
+ [91] 2.3 1.8 2.5 1.9 2.3 2.5 1.8 2.0 2.1 2.0 2.2 2.3
->
-> ### Name: xyTable
+$number
-> ### Title: Multiplicities of (x,y) Points, e.g., for a Sunflower Plot
+  [1] 1 1 2 4 2 1 2 8 3 2 7 1 3 5 1 1 1 1 1 1 1 1 1 2 2 1 1 1 1 1 1 1 1 3 1 2 1
-> ### Aliases: xyTable
+ [38] 2 1 2 1 1 2 1 5 1 1 1 1 1 1 2 1 1 1 3 2 2 1 1 1 1 1 1 1 1 2 1 1 1 1 1 1 1
-> ### Keywords: dplot
+ [75] 1 1 2 1 1 1 1 1 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
->
-> ### ** Examples
+>
->
+> ## Discretized uncorrelated Gaussian:
-> xyTable(iris[,3:4], digits = 6)
+> ## Don't show:
-$x
+> set.seed(1)
-  [1] 1.0 1.1 1.2 1.3 1.3 1.3 1.4 1.4 1.4 1.5 1.5 1.5 1.5 1.6 1.6 1.6 1.7 1.7
+> ## End Don't show
- [19] 1.7 1.7 1.9 1.9 3.0 3.3 3.5 3.6 3.7 3.8 3.9 3.9 3.9 4.0 4.0 4.0 4.1 4.1
+> require(stats)
- [37] 4.2 4.2 4.2 4.3 4.4 4.4 4.4 4.5 4.5 4.5 4.5 4.6 4.6 4.6 4.7 4.7 4.7 4.7
+> xy <- data.frame(x = round(sort(rnorm(100))), y = rnorm(100))
- [55] 4.8 4.8 4.9 4.9 4.9 5.0 5.0 5.0 5.0 5.1 5.1 5.1 5.1 5.1 5.1 5.1 5.2 5.2
+> xyTable(xy, digits = 1)
- [73] 5.3 5.3 5.4 5.4 5.5 5.5 5.6 5.6 5.6 5.6 5.6 5.7 5.7 5.7 5.8 5.8 5.8 5.9
+$x
- [91] 5.9 6.0 6.0 6.1 6.1 6.1 6.3 6.4 6.6 6.7 6.7 6.9
+ [1] -2 -2 -2 -2 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1  0  0  0  0  0  0  0  0
+[26]  0  0  0  0  0  0  0  0  0  0  0  0  0  0  1  1  1  1  1  1  1  1  1  1  1
-$y
+[51]  1  1  1  1  1  1  2  2  2  2
-  [1] 0.2 0.1 0.2 0.2 0.3 0.4 0.1 0.2 0.3 0.1 0.2 0.3 0.4 0.2 0.4 0.6 0.2 0.3
- [19] 0.4 0.5 0.2 0.4 1.1 1.0 1.0 1.3 1.0 1.1 1.1 1.2 1.4 1.0 1.2 1.3 1.0 1.3
+$y
- [37] 1.2 1.3 1.5 1.3 1.2 1.3 1.4 1.3 1.5 1.6 1.7 1.3 1.4 1.5 1.2 1.4 1.5 1.6
+ [1] -0.90 -0.60  0.04  0.20 -0.70 -0.60 -0.50 -0.40 -0.30 -0.20 -0.10  0.40
- [55] 1.4 1.8 1.5 1.8 2.0 1.5 1.7 1.9 2.0 1.5 1.6 1.8 1.9 2.0 2.3 2.4 2.0 2.3
+[13]  0.50  0.70  0.90  1.00  2.00 -2.00 -1.00 -0.90 -0.80 -0.70 -0.60 -0.50
- [73] 1.9 2.3 2.1 2.3 1.8 2.1 1.4 1.8 2.1 2.2 2.4 2.1 2.3 2.5 1.6 1.8 2.2 2.1
+[25] -0.30 -0.20 -0.07 -0.06 -0.04 -0.02  0.02  0.06  0.30  0.40  0.50  0.70
- [91] 2.3 1.8 2.5 1.9 2.3 2.5 1.8 2.0 2.1 2.0 2.2 2.3
+[37]  0.90  1.00  2.00 -1.00 -0.90 -0.80 -0.70 -0.40 -0.30 -0.20 -0.10 -0.08
+[49] -0.03  0.10  0.20  0.40  0.50  0.80  1.00  2.00 -1.00 -0.40  0.40  1.00
-$number
-  [1] 1 1 2 4 2 1 2 8 3 2 7 1 3 5 1 1 1 1 1 1 1 1 1 2 2 1 1 1 1 1 1 1 1 3 1 2 1
+$number
- [38] 2 1 2 1 1 2 1 5 1 1 1 1 1 1 2 1 1 1 3 2 2 1 1 1 1 1 1 1 1 2 1 1 1 1 1 1 1
+ [1] 1 1 1 1 2 1 2 1 2 4 1 1 1 1 1 2 2 5 5 1 1 2 3 2 3 1 1 1 1 1 1 1 1 1 2 1 1 3
- [75] 1 1 2 1 1 1 1 1 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
+[39] 3 3 1 1 1 1 2 2 1 1 1 1 2 1 2 2 4 2 3 1 1 1
 >
-> ## Discretized uncorrelated Gaussian:
+>
-> ## Don't show:
+>
-> set.seed(1)
+> cleanEx()
-> ## End Don't show
+> nameEx("xyz.coords")
-> require(stats)
+> ### * xyz.coords
-> xy <- data.frame(x = round(sort(rnorm(100))), y = rnorm(100))
+>
-> xyTable(xy, digits = 1)
+> flush(stderr()); flush(stdout())
-$x
+>
- [1] -2 -2 -2 -2 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1  0  0  0  0  0  0  0  0
+> ### Name: xyz.coords
-[26]  0  0  0  0  0  0  0  0  0  0  0  0  0  0  1  1  1  1  1  1  1  1  1  1  1
+> ### Title: Extracting Plotting Structures
-[51]  1  1  1  1  1  1  2  2  2  2
+> ### Aliases: xyz.coords
+> ### Keywords: dplot
-$y
+>
- [1] -0.90 -0.60  0.04  0.20 -0.70 -0.60 -0.50 -0.40 -0.30 -0.20 -0.10  0.40
+> ### ** Examples
-[13]  0.50  0.70  0.90  1.00  2.00 -2.00 -1.00 -0.90 -0.80 -0.70 -0.60 -0.50
+>
-[25] -0.30 -0.20 -0.07 -0.06 -0.04 -0.02  0.02  0.06  0.30  0.40  0.50  0.70
+> xyz.coords(data.frame(10*1:9, -4), y = NULL, z = NULL)
-[37]  0.90  1.00  2.00 -1.00 -0.90 -0.80 -0.70 -0.40 -0.30 -0.20 -0.10 -0.08
+$x
-[49] -0.03  0.10  0.20  0.40  0.50  0.80  1.00  2.00 -1.00 -0.40  0.40  1.00
+[1] 1 2 3 4 5 6 7 8 9
-$number
+$y
- [1] 1 1 1 1 2 1 2 1 2 4 1 1 1 1 1 2 2 5 5 1 1 2 3 2 3 1 1 1 1 1 1 1 1 1 2 1 1 3
+[1] 10 20 30 40 50 60 70 80 90
-[39] 3 3 1 1 1 1 2 2 1 1 1 1 2 1 2 2 4 2 3 1 1 1
+$z
->
+[1] -4 -4 -4 -4 -4 -4 -4 -4 -4
->
->
+$xlab
-> cleanEx()
+[1] "Index"
-> nameEx("xyz.coords")
-> ### * xyz.coords
+$ylab
->
+NULL
-> flush(stderr()); flush(stdout())
->
+$zlab
-> ### Name: xyz.coords
+NULL
-> ### Title: Extracting Plotting Structures
-> ### Aliases: xyz.coords
+>
-> ### Keywords: dplot
+> xyz.coords(1:5, stats::fft(1:5), z = NULL, xlab = "X", ylab = "Y")
->
+$x
-> ### ** Examples
+[1] 15.0 -2.5 -2.5 -2.5 -2.5
->
-> xyz.coords(data.frame(10*1:9, -4), y = NULL, z = NULL)
+$y
-$x
+[1]  0.0000000  3.4409548  0.8122992 -0.8122992 -3.4409548
-[1] 1 2 3 4 5 6 7 8 9
+$z
-$y
+[1] 1 2 3 4 5
-[1] 10 20 30 40 50 60 70 80 90
+$xlab
-$z
+[1] "Re(Y)"
-[1] -4 -4 -4 -4 -4 -4 -4 -4 -4
+$ylab
-$xlab
+[1] "Im(Y)"
-[1] "Index"
+$zlab
-$ylab
+[1] "X"
-NULL
+>
-$zlab
+> y <- 2 * (x2 <- 10 + (x1 <- 1:10))
-NULL
+> xyz.coords(y ~ x1 + x2, y = NULL, z = NULL)
+$x
->
+ [1]  1  2  3  4  5  6  7  8  9 10
-> xyz.coords(1:5, stats::fft(1:5), z = NULL, xlab = "X", ylab = "Y")
-$x
+$y
-[1] 15.0 -2.5 -2.5 -2.5 -2.5
+ [1] 11 12 13 14 15 16 17 18 19 20
-$y
+$z
-[1]  0.0000000  3.4409548  0.8122992 -0.8122992 -3.4409548
+ [1] 22 24 26 28 30 32 34 36 38 40
-$z
+$xlab
-[1] 1 2 3 4 5
+[1] "x1"
-$xlab
+$ylab
-[1] "Re(Y)"
+[1] "x2"
-$ylab
+$zlab
-[1] "Im(Y)"
+[1] "y"
-$zlab
+>
-[1] "X"
+> xyz.coords(data.frame(x = -1:9, y = 2:12, z = 3:13), y = NULL, z = NULL,
++            log = "xy")
->
+Warning in xyz.coords(data.frame(x = -1:9, y = 2:12, z = 3:13), y = NULL,  :
-> y <- 2 * (x2 <- 10 + (x1 <- 1:10))
+x values <= 0 omitted from logarithmic plot
-> xyz.coords(y ~ x1 + x2, y = NULL, z = NULL)
+$x
-$x
+ [1] NA NA  1  2  3  4  5  6  7  8  9
- [1]  1  2  3  4  5  6  7  8  9 10
+$y
-$y
+ [1]  2  3  4  5  6  7  8  9 10 11 12
- [1] 11 12 13 14 15 16 17 18 19 20
+$z
-$z
+ [1]  3  4  5  6  7  8  9 10 11 12 13
- [1] 22 24 26 28 30 32 34 36 38 40
+$xlab
-$xlab
+[1] "x"
-[1] "x1"
+$ylab
-$ylab
+[1] "y"
-[1] "x2"
+$zlab
-$zlab
+[1] "z"
-[1] "y"
+> ##> Warning message: 2 x values <= 0 omitted ...
 >
-> xyz.coords(data.frame(x = -1:9, y = 2:12, z = 3:13), y = NULL, z = NULL,
+>
-+            log = "xy")
+>
-Warning in xyz.coords(data.frame(x = -1:9, y = 2:12, z = 3:13), y = NULL,  :
+> ### * <FOOTER>
-x values <= 0 omitted from logarithmic plot
+> ###
-$x
+> cat("Time elapsed: ", proc.time() - get("ptime", pos = 'CheckExEnv'),"\n")
- [1] NA NA  1  2  3  4  5  6  7  8  9
+Time elapsed:  8.22 1.94 10.2 NA NA
+> grDevices::dev.off()
-$y
+null device
- [1]  2  3  4  5  6  7  8  9 10 11 12
+> ###
-$z
+> ### Local variables: ***
- [1]  3  4  5  6  7  8  9 10 11 12 13
+> ### mode: outline-minor ***
+> ### outline-regexp: "\\(> \\)?### [*]+" ***
-$xlab
+> ### End: ***
-[1] "x"
+> quit('no')
-$ylab
-[1] "y"
-$zlab
-[1] "z"
-> ##> Warning message: 2 x values <= 0 omitted ...
->
->
->
-> ### * <FOOTER>
-> ###
-> cat("Time elapsed: ", proc.time() - get("ptime", pos = 'CheckExEnv'),"\n")
-Time elapsed:  3.49 0.114 3.767 0 0
-> grDevices::dev.off()
-null device
-> ###
-> ### Local variables: ***
-> ### mode: outline-minor ***
-> ### outline-regexp: "\\(> \\)?### [*]+" ***
-> ### End: ***
-> quit('no')

The R Project SVN R

(root)/branches/R-exp-R5/tests/Examples/grDevices-Ex.Rout.save @ 77458 – Rev 51900 → 52081