if (FALSE) {
data(knee)
knee[,c(2,4:6)]<-scale(knee[,c(2,4:6)],center=TRUE,scale=TRUE)
knee<-data.frame(knee)
## fit adjacent category model
glm.obj <- glmmLasso(pain ~ time + th + age + sex, rnd = NULL,
family = cumulative(), data = knee, lambda=10,
switch.NR=TRUE, control=list(print.iter=TRUE))
summary(glm.obj)
}
Run the code above in your browser using DataLab