Last data update: 2014.03.03
|
R: UW pickfile to pphase pick data.frame
uwpfile2ypx | R Documentation |
UW pickfile to pphase pick data.frame
Description
Read in ASCII version of pickfile. This is the
output list used to plot picks on swig, often called WPX or YPX
in other functions.
Usage
uwpfile2ypx(P)
Arguments
Value
list:
STAS |
input structure
|
yr |
year
|
mo |
month
|
dom |
day of month
|
jd |
julian day
|
hr |
hour
|
mi |
minute
|
sec |
second
|
col |
color
|
onoff |
logical, TRUE plot trace
|
Author(s)
Jonathan M. Lees<jonathan.lees.edu>
Examples
data("GH")
WW = RSEIS::uwpfile2ypx(GH$pickfile)
vertord <- getvertsorder(GH$pickfile, GH)
R1 = rangedatetime(WW)
R2 = rangedatetime(GH$info)
S1 = secdifL(R2$min, R1$min)
swig(GH, sel=vertord$sel, APIX=WW, WIN=c(S1-1, 15) , SHOWONLY=0)
Results
R version 3.3.1 (2016-06-21) -- "Bug in Your Hair"
Copyright (C) 2016 The R Foundation for Statistical Computing
Platform: x86_64-pc-linux-gnu (64-bit)
R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type 'license()' or 'licence()' for distribution details.
R is a collaborative project with many contributors.
Type 'contributors()' for more information and
'citation()' on how to cite R or R packages in publications.
Type 'demo()' for some demos, 'help()' for on-line help, or
'help.start()' for an HTML browser interface to help.
Type 'q()' to quit R.
> library(RSEIS)
> png(filename="/home/ddbj/snapshot/RGM3/R_CC/result/RSEIS/uwpfile2ypx.Rd_%03d_medium.png", width=480, height=480)
> ### Name: uwpfile2ypx
> ### Title: UW pickfile to pphase pick data.frame
> ### Aliases: uwpfile2ypx
> ### Keywords: misc
>
> ### ** Examples
>
> data("GH")
> WW = RSEIS::uwpfile2ypx(GH$pickfile)
> vertord <- getvertsorder(GH$pickfile, GH)
> R1 = rangedatetime(WW)
> R2 = rangedatetime(GH$info)
> S1 = secdifL(R2$min, R1$min)
>
>
>
> swig(GH, sel=vertord$sel, APIX=WW, WIN=c(S1-1, 15) , SHOWONLY=0)
$but
NULL
$zloc
[1] 0
$pix
[1] 0
$YN
$YN$n
[1] 14
$YN$dy
[1] 0.07142857
$YN$minS
[1] -4344.25266 -1851.36892 -5319.85182 -752.56383 -1229.04787 -2581.36208
[7] -225.33587 -442.37462 -292.23708 -109.25304 -76.43009 -228.13754
[13] -61.45213 -22.56611
$YN$maxS
[1] 3613.74734 1587.63108 5293.14818 763.43617 1036.95213 3526.63792
[7] 250.66413 552.62538 206.76292 134.74696 82.56991 164.86246
[13] 54.54787 25.43389
$YN$meanS
[1] -0.7473404 -0.6310790 -0.1481763 -0.4361702 -0.9521277 -0.6379179
[7] -0.6641337 -0.6253799 -0.7629179 -0.7469605 -0.5699088 -0.8624620
[13] -0.5478723 -0.4338906
$YN$DX
[1] 4.476 15.000
$YN$STNS
[1] "CE1" "CE4" "CE3A" "SM5" "NV6" "CE2" "NV1" "CE7" "CE8" "NV10"
[11] "NV4" "CE6" "NV5" "NV2"
$YN$COMPS
[1] "V" "V" "V" "V" "V" "V" "V" "V" "V" "V" "V" "N" "V" "V"
$YN$notes
[1] "CE1 EHZ" "CE4 EHZ" "CE3A EHZ" "SM5 EHZ" "NV6 EHZ" "CE2 EHZ"
[7] "NV1 EHZ" "CE7 EHZ" "CE8 EHZ" "NV10 EHZ" "NV4 EHZ" "CE6 EHN"
[13] "NV5 EHZ" "NV2 EHZ"
>
>
>
>
>
>
> dev.off()
null device
1
>
|
|