Last data update: 2014.03.03

R: UW pickfile to pphase pick data.frame
uwpfile2ypxR 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

P

pickfile

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 
>