# Long way
level.1 <- polynomial_block(alpha1 = 1, order = 1)
level.2 <- polynomial_block(alpha2 = 1, order = 2)
season.2 <- harmonic_block(alpha2 = 1, period = 20)
final.block <- block_superpos(level.1, level.2, season.2)
# Short way
final.block <- polynomial_block(alpha1 = 1, order = 1) +
polynomial_block(alpha2 = 1, order = 2) +
harmonic_block(alpha2 = 1, period = 20)
Run the code above in your browser using DataLab