cosinor(1:24, period = 24)
cosinor(1:24, period = c(24, 12, 6))
## In model formulas (expand_cosinor handles the expansion):
form <- ~ x + temp * cosinor(hour, c(24, 12))
data <- data.frame(x = runif(24), temp = rnorm(24, 20), hour = 1:24)
modmat <- make_matrices(form, data = data)
Run the code above in your browser using DataLab