data(MYE1F) # an earthquake wave data
z <- tvar(MYE1F, 4, 2, 20, c(630,1026), 6.6e-06, 1.0e-06)
spec <- tvspc(4, z$sigma2, z$arcoef,, 20)
persp(spec$x, spec$y, spec$z, expand=0.5, theta=20, col = "lightblue", ticktype="detailed",
xlab="f", ylab="n", zlab="log p(f)")
Run the code above in your browser using DataLab