data(sunspots)
ES <- prep1wig(wig=sunspots, dt=1/12, sta="STA",
comp="CMP", units="UNITS" )
EH <- prepSEIS(ES)
STDLAB <- c("DONE", "zoom out", "refresh", "restore",
"XTR", "SPEC", "SGRAM" ,"WLET")
xx <- swig( EH, STDLAB = STDLAB)
###################################
###################################
Run the code above in your browser using DataLab