R: Unpack PDE file

getPDEcsv {RSEIS} | R Documentation

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

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

[Package RSEIS version 3.7-4 Index]