############# set directory
path = '/home/lees/Site/Santiaguito/SG09'
pattern = "R0*"
### get DB information
XDB = makeDB(path, pattern, kind =1)
##### select a station
usta = "CAL"
acomp = "V"
##### extract 24 hours worht of data
JJ = getseis24(DB, 2009, 2, usta, acomp, kind = 1)
##### plot 24 hours worth of data
pjj = plotseis24(JJ, dy=1/18, FIX=24, SCALE=0, FILT=list(ON=FALSE, fl=0.05 , fh=20.0, type="BP", proto="BU"), RCOLS=c(rgb(0.2, .2, 1), rgb(.2, .2, .2)) )
########## window a small portion on 24 hour display
w = winseis24(pjj)
### open a new window
X11()
VNE = c("V", "N", "E")
### IJK = c("I", "J", "K")
gsta=c("CAL", "KAM", "DOM", "LAV")
ucomp=VNE
### or: ucomp=IJK
### set epoch day and get the times
eday = EPOCHday(w$yr, jd = w$jd, origyr = DB$origyr)
######## using epoch day, set times for beginning and end of window
at1 = eday$jday + (w$hr[1])/24
at2 = eday$jday + (w$hr[2])/24
######## extract data from the data base:
GH = Mine.seis(at1, at2, DB, gsta, ucomp)
### show data:
PICK.GEN(GH)
Run the code above in your browser using DataLab