viewCHAC: View Continuous Data

Description

Scroll through continuous data recorded in the field. Uses a database describing the locations and content of each file stored on disk.

Usage

viewCHAC(DBnov , gstas, gcomps,sched, stas, buts='GPIX', preFILT=list()
, replot=TRUE , kind=2, Iendian=1, BIGLONG=FALSE)

Arguments

DBnov

RSEIS Data Base (output of makeDB)

gstas

stations to extract

gcomps

components to extract

sched

schedule of start times for extraction

stas

station list

buts

buttons for swig

preFILT

Pre-Filter traces before plotting.

replot

logical, TRUE=rerun swig after done click

kind

kind of data, 0=nativeR, 1=segy, 2=sac

Iendian

endian

BIGLONG

big long or short long

Value

Graphics, and Side effects

Details

These are set up for the CHAC dataset.

Examples

Run this code

# NOT RUN {
##########  set up data base:
fpath = "/home/lees/Site/CHAC/DATA"
fpat = "201111"
DBnov = makeDB(fpath, fpat, kind=2, Iendian=1, BIGLONG=FALSE)
###   get information:
IDB = infoDB(DBnov)

#####  select stations and components:
gstas = IDB$usta[-which(IDB$usta=="CHAC5")]
gcomps = IDB$ucomp[1:3]

####  extra buttons
buts = c("YPIX", "SPEC", "SGRAM", "WLET")
 fsta = "/home/lees/Site/CHAC/staLLZ.txt"
stas = scan(file=fsta,what=list(name="", lat=0, lon=0, z=0))
stas$z = stas$z/1000

###  set schedule
sched  =seq(from=325, to=335, by=1/24)

##########  open 2 windows
X11()
X11()

###  set main window to dev 2
dev.set(2)

###  set pre-filter (needs to be ON=TRUE to work

preFILT = list(ON=TRUE, fl=1/2 , fh=8, type="BP", proto="BU")

viewCHAC( DBnov , gstas, gcomps , sched, stas, buts =buts,
       preFILT = preFILT,kind = 2, Iendian = 1, BIGLONG = FALSE )


# }
# NOT RUN {
# }