PMOT.drive {RSEIS}

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

Details

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

Value

Graphical Side Effect.

Author(s)

Jonathan M. Lees<jonathan.lees.edu>

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)

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


## End(Not run)