distseisnXY | R Documentation |
Calculate euclidian distances from an RSEIS seismic data list, stations and event location.
distseisnXY(GH, sta=list(nam="", x=0 , y=0 , z=0) , LOC=list(x=0, y=0 , z=0))
GH |
Rseis list structure |
sta |
station list(x,y,z) |
LOC |
location list(x,y,z) |
d |
vector of distances in km, matching the stations in the RSEIS list. |
Locations of stations and source should be projected.
Jonathan M. Lees<jonathan.lees@unc.edu>
data(GH)
### assume the lat lon in GH are x, y (projected)
staxy <- list(nam=GH$stafile$name, x=GH$stafile$lon,
y=GH$stafile$lat, z=GH$stafile$z)
LOC <- list(x=GH$pickfile$LOC$lon, y=GH$pickfile$LOC$lat,
z=GH$pickfile$LOC$z)
distseisnXY(GH, sta =staxy, LOC = LOC)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.