This is a wrapper around the R spectrum() function, which returns spectral values that are adjusted so that the integral of those values equals the variance of the input x.

oceSpectrum(x, ...)

Arguments

x a univariate or multivariate time series, as for spectrum(). extra arguments passed on to spectrum().

Value

A spectrum that has values that integrate to the variance.

spectrum().
  x <- rnorm(1e3)
cat("variance of x=", var(x), "\n")#> variance of x= 0.9605793   cat("integral of     spectrum=", sum(s$spec)*diff(s$freq[1:2]), "\n")#> integral of     spectrum= 0.4799936   cat("integral of oce.spectrum=", sum(ss$spec)*diff(ss$freq[1:2]), "\n")#> integral of oce.spectrum= 0.9605793