R: Epoch Time Window

attime12 {RSEIS} | R Documentation

## 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)

### 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<jonathan.lees@unc.edu>

### 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)

[Package RSEIS version 3.7-4 Index]