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