## Not run:
# 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)
#
# ## End(Not run)
Run the code above in your browser using DataLab