# \donttest{
levels=c("batch","pen","id")
UpDown.out<- UpDown(PigFarming,levels=levels, vtime="time", obs="weight",
kappa=0.75, thr_va=0.5, correction="age")
# }
if(interactive()){UpDownApp(UpDown.out)}
Run the code above in your browser using DataLab