Epoch Time Window
Set a time window in Epoch days for extraction from a DB file
attime12(t1, t2 = t1, origyr = 1972, pre = 0, post = 0)
t1 |
list date-time 1 |
t2 |
list date-time 2 |
origyr |
origin year |
pre |
seconds before time 1 |
post |
seconds afer time 2 |
If t2 is missing, t1=t2.
vector |
c(t1, t2) |
Jonathan M. Lees<jonathan.lees@unc.edu>
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)
Please choose more modern alternatives, such as Google Chrome or Mozilla Firefox.