MTM.drive {RSEIS} | R Documentation |
MTM analysis of signals
MTM.drive(a, f1 = f1, f2 = f2, len2 = 1024, COL = 2, PLOT = FALSE, PADDLAB = NULL, GUI = TRUE)
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 |
Graphical Side effect
Jonathan M. Lees<jonathan.lees.edu>
Lees, J. M. and Park, J., 1995: Multiple-taper spectral analysis: A stand-alone C-subroutine, Computers & Geology, 21(2), 199-236.
plt.MTM0
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)