\dontrun{#REX
library(psd)
##
## Multitaper PSD estimation
##
set.seed(1234)
X <- rnorm(1e3)
# use the defaults, and appeal to plot.spec
# sampling assumed to be 1
plot(psdcore(X))
# use more tapers, compare to stats::spectrum, and clear
# env data from the previous calculation
psdcore(X, ntaper=10, plot=TRUE, refresh=TRUE)
# change the sampling frequency to 20
psdcore(X, X.frq=20, ntaper=10, plot=TRUE, refresh=TRUE)
}#REX
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.