## deprecated "disProg" object
data("ha")
ha
plot(aggregate(ha))
## new-style "sts" object
data("ha.sts")
ha.sts
plot(ha.sts, ~time) # = plot(aggregate(ha.sts, by = "unit"))
plot(ha.sts, ~unit, labels = TRUE)
Run the code above in your browser using DataLab