demo/COSO.R

In RSEIS: Seismic Time Series Analysis Tools

#######  read in data from the coso geothermal field and plot
######  using swig
options(demo.ask=FALSE)

data("GH")

######### 
####  
STDLAB = c("DONE",  "zoom in", "zoom out", "refresh", "restore",
 "XTR", "SPEC", "SGRAM" ,"3COMP", "FILT",  "Pinfo")

###sel = which(GH$COMPS=="V")

gsel = getvertsorder(GH$pickfile, GH)


###swig(GH, sel=sel,    STDLAB=STDLAB)


upix = uwpfile2ypx(GH$pickfile)


#########     Repeat, this time sort the traces, plot the archive picks with errors
#########      and
#########     select only a few buttons,
######### 

pickgeninfo()

#########  
swig(GH, sel=gsel$sel, APIX =upix,    STDLAB =STDLAB, WIN =c(4,13) )