RSEIS (version 4.2-4)

attime12: Epoch Time Window

Description

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

Usage

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

Value

vector

c(t1, t2)

Arguments

t1

list date-time 1

t2

list date-time 2

origyr

origin year

pre

seconds before time 1

post

seconds afer time 2

Author

Jonathan M. Lees<[e-mail]>

Details

If t2 is missing, t1=t2.

Examples

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)