# Example 1: High Activity
# Pain 8, Global 9, HAQ-II mixed difficulty
haq_high <- c(2, 2, 3, 1, 3, 2, 3, 1, 3, 2)
patient_activity_scale_ii(8, 9, haq_high)
# Example 2: Low Activity
# Pain 2, Global 1, HAQ-II no difficulty
haq_low <- rep(0, 10)
patient_activity_scale_ii(2, 1, haq_low)
Run the code above in your browser using DataLab