# example using pupil data
if (requireNamespace("mgcv", quietly = TRUE)) {
data(pupil)
# \donttest{
pupil_fpca <- prepare_pupil_fpca(pupil)
fosr_mod <- mgcv::bam(percent_change ~ s(seconds, k=30, bs="cr") +
s(seconds, by = use, k=30, bs = "cr") +
s(id, by = Phi1, bs="re") +
s(id, by = Phi2, bs="re")+
s(id, by = Phi3, bs="re") +
s(id, by = Phi4, bs="re"),
method = "fREML", data = pupil_fpca, discrete = TRUE)
results <- cma(pupil_fpca, fosr_mod, fitted = TRUE, outcome = "percent_change",
domain = "seconds", subset = c("use = 1"), id = "id")
# }
mean_mod <- mgcv::gam(percent_change ~ s(seconds, k = 5, bs = "cr") +
s(seconds, by = use, k = 5, bs = "cr"),
data = pupil, method = "REML")
results <- cma(pupil, mean_mod, fitted = TRUE, outcome = "percent_change",
domain = "seconds", subset = c("use = 1"), id = "id", nboot = 100)
}
Run the code above in your browser using DataLab