# NOT RUN {
data(PEAC_minimal_load)
disp <- apply(tpm, 1, function(x){
(var(x, na.rm=TRUE)-mean(x, na.rm=TRUE))/(mean(x, na.rm=TRUE)**2)
})
MS4A1glmm <- glmmSeq(~ Timepoint * EULAR_6m + (1 | PATID),
id = 'PATID',
countdata = tpm['MS4A1', ],
metadata = metadata,
dispersion = disp['MS4A1'],
verbose=FALSE)
names(attributes(MS4A1glmm))
# }
Run the code above in your browser using DataLab