season <- sim.seasonalNoise(length = 300)
plot(season$seasonalBackground,type = "l")
# use a negative timetrend beta
season <- sim.seasonalNoise(beta = -0.003, length = 300)
plot(season$seasonalBackground,type = "l")
Run the code above in your browser using DataLab