# NOT RUN {
data_ccq <- qsort_score(ex_qsort$ccq,
qset_ccq,
qsort_length = 100,
item1 = "ccq1",
subj_id = "participant",
group_id = "classroom")
data_ccq
data_aqs <- qsort_score(ex_qsort$aqs,
qset_aqs,
qsort_length = 90,
item1 = "aqs1")
# }
Run the code above in your browser using DataLab