# Without title
ex1 <- rcolorconst()
# With title
ex2 <- rcolorconst("My new color constant")
# More detailed example
set.seed(200)
x = data.frame(
meas = rnorm(100),
grp = sample(1:8, size = 100,
replace = TRUE))
plot(x, pch = 16, col = x$grp)
colnums = rcolorconst()
Run the code above in your browser using DataLab