getPDEcsv {RSEIS}

Unpack PDE file

Description

Unpack PDE file as CSV file or ascii screen dump

Usage

getPDEcsv(pde = "/home/lees/Site/Santiaguito/pdq.eqs")
getPDEscreen(pde = "/home/lees/Site/Santiaguito/pdq.eqs")

Arguments

pde

character, file name

Details

Download pde from: http://neic.usgs.gov/neis/epic/epic.html. csv version uses comma separated values. screen versions uses the screen dump and a parser

Value

list of locations, times and magnitude

Note

if using screen dump, may need to clean up file a bit first.

Author(s)

Jonathan M. Lees<[e-mail]>

References

http://neic.usgs.gov/neis/epic/epic.html

Examples

## Not run: 


eq1 <- getPDEcsv(pde = "/home/lees/Site/Santiaguito/pdq.eqs")

############################ 
######  copy/paste  from the screen dump at the NEIC web site
#####  then:
eq1 <- getPDEscreen(pde = "EQS.txt")

nk <- names(eq1[[1]])
k <- length(nk)

##########   get a matrix of values instead
jim <-  matrix( unlist(eq1), ncol=k, byrow=TRUE)
colnames(jim) <- nk




## End(Not run)