x <- rnorm(1e3)
s <- spectrum(x, plot=FALSE)
ss <- oceSpectrum(x, plot=FALSE)
cat("variance of x=", var(x), "")
cat("integral of spectrum=", sum(s$spec)*diff(s$freq[1:2]), "")
cat("integral of oceSpectrum=", sum(ss$spec)*diff(ss$freq[1:2]), "")
Run the code above in your browser using DataLab