# seismic data
data(MYE1F)
v <- tvvar(MYE1F, trend.order = 2, tau2.ini = 6.6e-06, delta = 1.0e-06,
plot = FALSE )
z <- tvar(v$nordata, trend.order = 2, ar.order = 8, span = 20,
outlier = c(630, 1026), tau2.ini = 6.6e-06, delta = 1.0e-06,
plot = FALSE)
spec <- tvspc(z$arcoef, z$sigma2, span = 20, nf = 400)
plot(spec, tvv = v$tvv, dx = 2, dy = 0.10)
Run the code above in your browser using DataLab