Like in R we can set the Confidence interval value as we want with a single line:
model = lm(formula = assay~time + batch,data = AssayData) anova(model) summary(model) ne