@@ -1621,11 +1621,11 @@ tsEvaDetrendTimeSeries <- function(timeStamps, series, timeWindow, percent = NA,
16211621# 'cat("computing trend seasonality ...\n")
16221622# 'seasonalitySeries <- rs@detrendSeries
16231623# 'result <- tsEstimateAverageSeasonality(timeStamps, seasonalitySeries, timeWindow=rs@nRunMn)
1624- # 'plot(result$regime, type = "l", xlab = "Day", ylab = "Regime", main = "Estimated Regime")
1625- # 'plot(result$Seasonality$averageSeasonalitySeries, type = "l", xlab = "Day",
1626- # 'ylab = "Seasonality", main = "Average Seasonality")
1627- # 'plot(result$Seasonality$varyingSeasonalitySeries, type = "l", xlab = "Day",
1628- # 'ylab = "Seasonality", main = "Varying Seasonality")
1624+ # '# plot(result$regime, type = "l", xlab = "Day", ylab = "Regime", main = "Estimated Regime")
1625+ # '# plot(result$Seasonality$averageSeasonalitySeries, type = "l", xlab = "Day",
1626+ # '# ylab = "Seasonality", main = "Average Seasonality")
1627+ # '# plot(result$Seasonality$varyingSeasonalitySeries, type = "l", xlab = "Day",
1628+ # '# ylab = "Seasonality", main = "Varying Seasonality")
16291629# '@importFrom pracma interp1
16301630# ' @export
16311631tsEstimateAverageSeasonality <- function (timeStamps , seasonalitySeries , timeWindow ) {
0 commit comments