attime12: Epoch Time Window

Description Usage Arguments Details Value Author(s) Examples

View source: R/attime12.R

Description

Set a time window in Epoch days for extraction from a DB file

Usage

1
attime12(t1, t2 = t1, origyr = 1972, pre = 0, post = 0)

Arguments

t1

list date-time 1

t2

list date-time 2

origyr

origin year

pre

seconds before time 1

post

seconds afer time 2

Details

If t2 is missing, t1=t2.

Value

vector

c(t1, t2)

Author(s)

Jonathan M. Lees<[email protected]>

Examples

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
j1  <-  list(yr = 2005, jd= 214 , hr= 7 , mi= 1 ,sec= 0.5235)
j2  <-  list(yr=2005, jd= 214 , hr= 7 , mi= 1 ,sec= 0.5235+6)

at <-  attime12(j1, t2=j1, origyr=2005, pre=100, post=100)

### given an RSEIS format list
data(GH)
AT =  SEISNtime(GH)
ats = attime12(AT[[1]], t2 = AT[[2]],
   origyr =AT[[1]]$yr , pre = 0, post= 0)

RSEIS documentation built on Aug. 23, 2018, 1:04 a.m.