MTM.drive: Interactive MTM driver

In RSEIS: Seismic Time Series Analysis Tools

Interactive MTM driver

Description

MTM analysis of signals

Usage

MTM.drive(a, f1 = f1, f2 = f2, len2 = 1024, COL = 2, PLOT = FALSE,
PADDLAB = NULL, GUI = TRUE)

Arguments

a	list(y=time series amp, dt=delta-ts, stamps=text stamps)
f1	low frequency
f2	high frequency
len2	power of two length
COL	colors
PLOT	logical PLOT=TRUE
PADDLAB	vector of buttons
GUI	Whether to be in GUI (interactive) mode

Value

Graphical Side effect

Author(s)

Jonathan M. Lees<jonathan.lees.edu>

References

Lees, J. M. and Park, J., 1995: Multiple-taper spectral analysis: A stand-alone C-subroutine, Computers and Geology, 21(2), 199-236.

See Also

plt.MTM0

Examples

data("GH")
sel <-  which(GH$COMPS=="V")

amp  <-  list()
dees  <-  list()
stamps  <-  list()

for( i in 1:3)
{
amp[[i]]  <-  GH$JSTR[[sel[i]]]
dees[i]  <-  GH$dt[sel[i]]
stamps[i]  <-  paste(GH$STNS[sel[i]], GH$COMPS[sel[i]])
}

 a  <-  list(y=amp, dt=dees, stamps=stamps)


 f1  <-  0.1

f2  <-  floor(0.33*(1/a$dt[[1]]))

speccol   <-  c('red', 'blue', 'purple')


MTM.drive(a, f1, f2, COL=speccol, PLOT=TRUE)

RSEIS documentation built on Aug. 19, 2023, 5:07 p.m.