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")