# Example 1: High Activity
# Pain 8, Global 9, HAQ-II mostly 2s and 3s
haq_high <- c(2, 2, 3, 1, 3, 2, 3, 1, 3, 2)
patient_activity_scale_ra(8, 9, haq_high)
# Example 2: Remission
# Pain 0, Global 0, HAQ-II all 0
haq_low <- rep(0, 10)
patient_activity_scale_ra(0, 0, haq_low)
Run the code above in your browser using DataLab