plot.lme(object, option=c("c","r","s"), which = 1:3, ...)
# Ovary.fit inherits 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")plot.lme(Ovary.fit) plot.lme(Ovary.fit,"s")