RSEIS (version 4.2-4)

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)

Value

Graphical Side Effect.

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

Author

Jonathan M. Lees<jonathan.lees.edu>

Details

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

Examples

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)

if(interactive()){
PMOT.drive(YMAT, dt, pmolabs = c("Vertical", "North", "East"),
STAMP =ftime )

}