# 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)
})
MS4A1fit <- glmmGene(~ Timepoint * EULAR_6m + (1 | PATID),
gene = 'MS4A1',
id = 'PATID',
countdata = tpm,
metadata = metadata,
dispersion = disp['MS4A1'],
verbose=FALSE)
MS4A1fit
# }
Run the code above in your browser using DataLab