data("epilepsy", package = "HSAUR3")
library(lattice)
dotplot(I(seizure.rate / base) ~ period | subject, data = epilepsy,
subset = treatment == "Progabide")
dotplot(I(seizure.rate / base) ~ period | subject, data = epilepsy,
subset = treatment == "Progabide")
Run the code above in your browser using DataLab