RSEIS (version 4.2-4)

plotJGET: Plot JGET output

Description

Plot JGET output using interactive swig

Usage

plotJGET(J, SHOWONLY = FALSE)

Value

GH list ready for use in other RSEIS programs. See prepSEIS for details

Arguments

J

list, output of JGETseis

SHOWONLY

logical, if SHOWONLY== TRUE, no interaction

Author

Jonathan M. Lees<[e-mail]>

Details

Program combines prepSEIS and swig

See Also

JGET.seis, prepSEIS, swig

Examples

data(GH)
 Iendian = .Platform$endian
apath = tempdir()
##  setwd(apath)
##
 Iendian = .Platform$endian
##    apath = './TEMP'
### dir.create(apath)

J =  rseis2sac(GH, sel = 1:5, path = apath, BIGLONG =FALSE )

Lname  <-  list.files(path=J , pattern='SAC', full.names=TRUE)

J  <- JGET.seis(Lname,kind=2,BIGLONG=FALSE,HEADONLY=FALSE,Iendian=Iendian,PLOT=0)

if(interactive()) { plotJGET(J) }