Learn R Programming

RSEIS (version 3.5-2)

PMOT.drive: Interactive Particle Motion Plot

Description

Plot Hodogram and show seismic particle motion

Usage

PMOT.drive(temp, dt, pmolabs = c("Vertical", "North", "East"), STAMP = "", baz = 0)

Arguments

temp
matrix of 3-component seismic signal
dt
sample interval (delta-T, seconds)
pmolabs
labels for traces
STAMP
Character string Identification stamp
baz
Back Azimuth, degrees

Value

Graphical Side Effect.

Details

Input matrix should V, N, E. Baz is not implemented yet.

Examples

Run this code

data("GH")
sel <-  which(GH$STNS == "CE1")


YMAT  <-  cbind(GH$JSTR[[sel[1]]][1168:1500],
GH$JSTR[[sel[2]]][1168:1500],
GH$JSTR[[sel[3]]][1168:1500])

dt  <-   GH$dt[ sel[1] ]
ftime  <-  Zdate(GH$info, sel[1], 1)

## Not run: 
# PMOT.drive(YMAT, dt, pmolabs = c("Vertical", "North", "East"),
# STAMP =ftime )
# 
# ## End(Not run)


Run the code above in your browser using DataLab