data(simdat)
# Add start event column:
simdat <- start_event(simdat, event=c("Subject", "Trial"))
head(simdat)
# bam model with AR1 model (toy example, not serious model):
m1 <- bam(Y ~ Group + te(Time, Trial, by=Group),
data=simdat, rho=.5, AR.start=simdat$start.event)
# No time series specified:
check_resid(m1)
# Time series specified:
check_resid(m1, split_by=list(Subject=simdat$Subject, Trial=simdat$Trial))
# Note: residuals do not look very good.
# This does not work (see acf_resid for similar examples):
check_resid(m1, split_by=c("Subject", "Trial"))
# However, it does work for included predictors:
check_resid(m1, split_by=c("Group"))
Run the code above in your browser using DataLab