# NOT RUN {
# by hand logistic regression example
d <- mk_td("survey_table",
c("subjectID", "surveyCategory", "assessmentTotal"))
optree <- d %.>%
row_counts(., groupby = "subjectID")
cat(format(optree))
# }
Run the code above in your browser using DataLab