# NOT RUN {
local(envir=.PBSmodEnv,expr={
oldpar = par(no.readonly=TRUE)
pbsfun = function(clrs=c("moccasin",rainbow(3))){
clrs = c(clrs,lucent(clrs,a=0.25))
testCol(clrs); invisible() }
pbsfun()
par(oldpar)
})
# }
Run the code above in your browser using DataLab