Forecasting, Time Series Analysis, Fourier Transform, R, Ml So Good.
taper = 0) spec.df <- data.frame(freq = smooth.spec$freq, `c(24,24,24)` = smooth.spec$spec) names(spec.df) <- c("freq", "c(24,24,24)") # Add other smooths k <- kernel("daniell", c(24, 24)) spec.df[, "c(24,24)"] <- spec.pgram(TC_df$n, kernel = k, taper = 0, plot = FALSE)$spec k <- kernel("daniell",