{
# Use the SCWB data example
# Metric 1 - item scores
rec.average(SCWB[, 1:20])
# Metric 4 - domain total scores
my_rec <- rec.average(SCWB[, 21:25])
my_rec
# Metric 4 - averages
mean(abs(my_rec[lower.tri(my_rec)]))
}
Run the code above in your browser using DataLab