anova.lme(object, ...)
# Ovary.fit and Ovary.fit1 inherit from class lme Ovary.fit <- lme(fixed = follicles ~ sin(2*pi*Time) + cos(2*pi*Time), random = ~sin(2*pi*Time) + cos(2*pi*Time), cluster = ~ Mare, data = Ovary, re.block = list(1, 2:3), re.structure = c("i","d"), serial.structure = "ar1", var.function = "power")Ovary.fit.ano <- anova(Ovary.fit, Ovary.fit1)
# prints using print.anova.lme method Ovary.fit.ano Response: follicles Ovary.fit fixed: (Intercept),sin(2 * pi * Time),cos(2 * pi * Time) random: (Intercept),sin(2 * pi * Time),cos(2 * pi * Time) block: list(1, 2:3) covariance structure: identity,diagonal serial correlation structure: ar1 variance function: power Ovary.fit1 fixed: (Intercept),sin(2 * pi * Time),cos(2 * pi * Time) random: (Intercept),sin(2 * pi * Time),cos(2 * pi * Time) block: list(1, 2:3) covariance structure: identity,diagonal serial correlation structure: ar2 variance function: power Model Df AIC BIC Loglik Test Lik.Ratio P value Ovary.fit 1 9 1567.4 1601.0 -774.72 Ovary.fit1 2 10 1564.8 1602.1 -772.40 1 vs. 2 4.6531 0.030999