# NOT RUN {
data(vbetaFA)
z <- zlm(~Stim.Condition, vbetaFA[,1:5])
zs <- summary(z)
names(zs)
print(zs)
##remove summaryZlmFit class to get normal print method (or call data.table:::print.data.table)
data.table::setattr(zs, 'class', class(zs)[-1])
# }
Run the code above in your browser using DataLab