
get_difference(model, cond1, cond2, cond = NULL, se = TRUE, f = 1.96,
print.summary = TRUE)
get_modelterm
;
get_predictions
; get_random
data(simdat)
# first fit a simple model:
m1 <- bam(Y ~ Group+te(Time, Trial, by=Group), data=simdat)
# get difference estimates:
diff <- get_difference(m1, cond1=list(Group='Adults'),
cond2=list(Group='Children'), cond=list(Time=seq(0,500,length=100)))
head(diff)
Run the code above in your browser using DataLab