if(interactive()){
STDLAB <- c("DONE", "QUIT", "zoom.out", "zoom.in", "SELBUT",
"FILT","UNFILT", "PSEL", "SGRAM", "WLET", "SPEC", "XTR" )
onoff = rep(0, length(STDLAB))
onoff[1:5] <- 1
SELBUT(STDLAB, onoff=onoff)
}
Run the code above in your browser using DataLab