Unpack PDE file
Unpack PDE file as CSV file or ascii screen dump
getPDEcsv(pde = "/home/lees/Site/Santiaguito/pdq.eqs") getPDEscreen(pde = "/home/lees/Site/Santiaguito/pdq.eqs")
pde |
character, file name |
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
list of locations, times and magnitude
if using screen dump, may need to clean up file a bit first.
Jonathan M. Lees<jonathan.lees@unc.edu>
http://neic.usgs.gov/neis/epic/epic.html
## 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)
Please choose more modern alternatives, such as Google Chrome or Mozilla Firefox.