WINRPACK-package {WINRPACK}R Documentation

Read and convert WIN format to R

Description

Package reads in WIN format data from Japan and converts to R

Details

Package: WINRPACK
Type: Package
Version: 1.0-8
Date: 2008-04-25
License: GPL

Note

get1WINPICK
Read one WIN pickfile
readwinch
Read WIN channel file
XWINdataASK
Extract win format to ASCII
XWINdata
Extract WIN format
getjul
Get Julian day
myscan1
Scan a character string
tojul
Convert to Julian Day. Used for calculations.

Author(s)

Jonathan M. Lees<jonathan.lees@unc.edu> Maintainer:Jonathan M. Lees<jonathan.lees@unc.edu>

See Also

RSEIS, Rsac

Examples


## Not run: 

###  this example will run in the inst/doc folder of this distribution

###  set the pick file
winpick = "970723.235151.840"

###  read in the pick file
zip = get1WINPICK(winpick)
 fn = zip$winID1
chans = readwinch(fn)

 m1 = match(zip$STA$name, chans$sta)

    zip$STA$lat = chans$lat[m1]
    zip$STA$lon = chans$lon[m1]
    zip$STA$z   = chans$z[m1]

##   read in the waveform data
JH = XWINdata(fn, stasel=NULL, PLOT=FALSE)

require(RSEIS)

###  prepare the structure for RSEIS
KH = prepSEIS(JH)
w1 = which(KH$COMPS=="V")

###  plot in RSEIS
PICK.GEN(KH,  sel = w1, SHOWONLY =TRUE )

## End(Not run)


[Package WINRPACK version 1.0-8 Index]