library(epicalc)

data(Orthodont,package="nlme") # 少年・少女の下顎枝データ

attach(Orthodont)

followup.plot(Subject,age,distance)

followup.plot(Subject,age,distance,by=Sex) # 群別

detach(Orthodont)