| WINRPACK-package {WINRPACK} | R Documentation |
Package reads in WIN format data from Japan and converts to R
| Package: | WINRPACK |
| Type: | Package |
| Version: | 1.0-7 |
| Date: | 2008-04-25 |
| License: | GPL |
Jonathan M. Lees<jonathan.lees@unc.edu> Maintainer:Jonathan M. Lees<jonathan.lees@unc.edu>
RSEIS, Rsac
## 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)