# NOT RUN {
dL <- build_frame(
"subjectID", "surveyCategory" , "assessmentTotal" |
1 , "withdrawal behavior", 5 |
1 , "positive re-framing", 2 |
2 , "withdrawal behavior", 3 |
2 , "positive re-framing", 4 )
test_p <- local_td(dL) %.>%
project(.,
maxscore := max(assessmentTotal),
count := n(),
groupby = 'subjectID')
cat(format(test_p))
dL %.>% test_p
# }
Run the code above in your browser using DataLab