if (FALSE) {
STDLAB=c("DONE", "QUIT", "zoom.out", "zoom.in", "SELOPT",
"FILT","UNFILT",
"PSEL", "SGRAM", "WLET", "SPEC", "XTR" )
onoff = rep(0, length(STDLAB))
onoff[1:5] = 1
SELOPT(STDLAB, onoff=onoff)
### second option for selecting colors
###dev.new(width=12, height=12)
scol = SELOPT(colors(), onoff=-1, ncol=15, ocols =colors(), cex=.6 )
### old program
SHOWPAL(scol, NAME=TRUE)
### show the options chosen from top to bottom
OPTREPLOT(scol, cols=scol, scol="green", bcol="blue", slwd=15 )
}
Run the code above in your browser using DataLab