## Not run: ------------------------------------
# fm1 <- lm(follicles ~ sin(2 * pi * Time) + cos(2 * pi * Time), Ovary,
# subset = Mare == 1)
# Variogram(resid(fm1), dist(1:29))[1:10,]
## ---------------------------------------------
Run the code above in your browser using DataCamp Workspace