Introduction to the capl R package

?validate_age
?validate_character
?validate_domain_score
?validate_gender
?validate_integer
?validate_number
?validate_scale
?validate_steps

validated_age <- validate_age(c(7, 8, 9, 10, 11, 12, 13, "", NA, "12", 8.5))

validated_age
#>  [1] NA  8  9 10 11 12 NA NA NA 12  8

validated_gender <- validate_gender(c("Girl", "GIRL", "g", "G", "Female", "f", "F", "", NA, 1))

validated_gender
#>  [1] "girl" "girl" "girl" "girl" "girl" "girl" "girl" NA     NA     "girl"

validated_gender <- validate_gender(c("Boy", "BOY", "b", "B", "Male", "m", "M", "", NA, 0))

validated_gender
#>  [1] "boy" "boy" "boy" "boy" "boy" "boy" "boy" NA    NA    "boy"

capl_demo_data$pacer_laps_20m <- get_pacer_20m_laps(
  lap_distance = capl_demo_data$pacer_lap_distance, 
  laps_run = capl_demo_data$pacer_laps
)

capl_demo_data$pacer_laps_20m
#>   [1]  18  31 169  38  63  12  25 110  33  NA 127  62  39  19  NA  84 145 166
#>  [19] 108 125  98 147  85  49   4 118 144  85 122  85 197   5 184  19  63 112
#>  [37]  89  46 178  35  69 122  54  79 120  85   1 187  59 178  47  55  89  98
#>  [55]  79 119  11  70  89  88  68  82 116  38 152 195   4  69 100  99  NA  88
#>  [73]  57  43  98 125 127   5  16 173  20  33  89  99  39  35  43 100 177  15
#>  [91] 141 141  39  NA   8  41  43   2 101  NA  54  78  90 176  40   2 122  58
#> [109]  98   5  51 112 101 122  12 177  38  92  31  53 102 200 138 166  62  31
#> [127]  86  75  87  56 147 140  45  51 136  74 148 194  67 142 172 121  NA  78
#> [145]  40  18  59 190  78  69  33  78  78  58  84 122  27 199 147  75 180  84
#> [163]  36 129  14 133  70  65   8  43 110  64  69 120 125  28 142 115 108  14
#> [181] 113 108  41  52  53  92 111 180 108 101 167  78  26  23  44 200 131  19
#> [199] 122 144  16  28 105 135  92 173  79  17  NA  74  63  32  37 161 116  NA
#> [217]  28  48  60  52  35  49  NA 117  48  60 110  45  72 109  NA  32  98  37
#> [235]  84  29  57 108 138 117 123  92  NA 112 140 171   9 191  NA 106 142  85
#> [253]  82  99   2 193 132 106  NA 152 188  61  36  NA 124  19  29 137 137  24
#> [271]  18 118 196  95  48 195  22 144 138  76  57 154  60 128 154  85  61   7
#> [289] 102 200  98 118 139  64 148  88 131  64 104  90 109 125  92 107 127 137
#> [307] 139  68  61  43 133 102 127 146  30  89  42 122  77  50  80 105  NA  46
#> [325] 154 122 173  10  78  41 150 140 129  30  84   3   6  74 186  NA   1  63
#> [343] 108  98  73 102 131 126 144  95  62 115 165  49  49 187 101 151  53  52
#> [361]  78 137   4  45 120 139   1  21  NA  76 134  16  12 125  63 140 144 102
#> [379] 141  62 134 142  90 193  NA  95  58  NA  28  21 150 100 185 140 142  NA
#> [397] 138  76  15  47  38 116 153  83  61  83  89  89 196  88 105  99 110  20
#> [415] 122 110 163  61 160  71 135   6 105 189   7  70  90  40 104 107  NA 165
#> [433]  27  78  42 167  51  57 128  44  25  NA  13  79  98  34 107 167  75  NA
#> [451] 119  13  82 136  21 140  58 126 144  35  25  29  97 195 131   3  18  66
#> [469]  NA  58  65  75 129  NA 196 175 112 134 145 141  65  10  NA  32  68  NA
#> [487] 144 135 112 130 112  52  51 142  24  NA  96 125  65  45

capl_demo_data$pacer_score <- get_pacer_score(capl_demo_data$pacer_laps_20m)

capl_demo_data$pacer_score
#>   [1]  3  6 10  7 10  2  5 10  6 NA 10 10  7  3 NA 10 10 10 10 10 10 10 10  9  0
#>  [26] 10 10 10 10 10 10  1 10  3 10 10 10  9 10  7 10 10 10 10 10 10  0 10 10 10
#>  [51]  9 10 10 10 10 10  2 10 10 10 10 10 10  7 10 10  0 10 10 10 NA 10 10  8 10
#>  [76] 10 10  1  3 10  4  6 10 10  7  7  8 10 10  3 10 10  7 NA  1  8  8  0 10 NA
#> [101] 10 10 10 10  8  0 10 10 10  1 10 10 10 10  2 10  7 10  6 10 10 10 10 10 10
#> [126]  6 10 10 10 10 10 10  9 10 10 10 10 10 10 10 10 10 NA 10  8  3 10 10 10 10
#> [151]  6 10 10 10 10 10  5 10 10 10 10 10  7 10  2 10 10 10  1  8 10 10 10 10 10
#> [176]  5 10 10 10  2 10 10  8 10 10 10 10 10 10 10 10 10  5  4  8 10 10  3 10 10
#> [201]  3  5 10 10 10 10 10  3 NA 10 10  6  7 10 10 NA  5  9 10 10  7  9 NA 10  9
#> [226] 10 10  9 10 10 NA  6 10  7 10  5 10 10 10 10 10 10 NA 10 10 10  1 10 NA 10
#> [251] 10 10 10 10  0 10 10 10 NA 10 10 10  7 NA 10  3  5 10 10  4  3 10 10 10  9
#> [276] 10  4 10 10 10 10 10 10 10 10 10 10  1 10 10 10 10 10 10 10 10 10 10 10 10
#> [301] 10 10 10 10 10 10 10 10 10  8 10 10 10 10  6 10  8 10 10 10 10 10 NA  9 10
#> [326] 10 10  2 10  8 10 10 10  6 10  0  1 10 10 NA  0 10 10 10 10 10 10 10 10 10
#> [351] 10 10 10  9  9 10 10 10 10 10 10 10  0  9 10 10  0  4 NA 10 10  3  2 10 10
#> [376] 10 10 10 10 10 10 10 10 10 NA 10 10 NA  5  4 10 10 10 10 10 NA 10 10  3  9
#> [401]  7 10 10 10 10 10 10 10 10 10 10 10 10  4 10 10 10 10 10 10 10  1 10 10  1
#> [426] 10 10  8 10 10 NA 10  5 10  8 10 10 10 10  8  5 NA  2 10 10  6 10 10 10 NA
#> [451] 10  2 10 10  4 10 10 10 10  7  5  5 10 10 10  0  3 10 NA 10 10 10 10 NA 10
#> [476] 10 10 10 10 10 10  2 NA  6 10 NA 10 10 10 10 10 10 10 10  4 NA 10 10 10  9

capl_demo_data$pacer_interpretation <- get_capl_interpretation(
  age = capl_demo_data$age,
  gender = capl_demo_data$gender,
  score = capl_demo_data$pacer_score,
  protocol = "pacer"
)

capl_demo_data$pacer_interpretation
#>   [1] "beginning"   "beginning"   "progressing" "beginning"   "beginning"  
#>   [6] "beginning"   "beginning"   "progressing" "beginning"   NA           
#>  [11] NA            "beginning"   NA            NA            NA           
#>  [16] "progressing" "beginning"   "progressing" "beginning"   "progressing"
#>  [21] "beginning"   "beginning"   "progressing" NA            NA           
#>  [26] NA            "beginning"   NA            "beginning"   "progressing"
#>  [31] "progressing" "beginning"   "beginning"   NA            "beginning"  
#>  [36] NA            NA            "beginning"   "progressing" "beginning"  
#>  [41] "beginning"   "progressing" "progressing" "beginning"   "beginning"  
#>  [46] "progressing" NA            "progressing" NA            NA           
#>  [51] "progressing" "progressing" "beginning"   "beginning"   "progressing"
#>  [56] "progressing" "beginning"   "progressing" "progressing" "beginning"  
#>  [61] "beginning"   NA            "progressing" "beginning"   "progressing"
#>  [66] NA            NA            "progressing" NA            "progressing"
#>  [71] NA            "progressing" "beginning"   "beginning"   NA           
#>  [76] "progressing" NA            "beginning"   "beginning"   "beginning"  
#>  [81] NA            "beginning"   "progressing" "beginning"   "beginning"  
#>  [86] NA            "beginning"   "progressing" "progressing" "beginning"  
#>  [91] "progressing" "beginning"   NA            NA            NA           
#>  [96] "beginning"   NA            NA            "progressing" NA           
#> [101] "beginning"   "beginning"   "beginning"   NA            "beginning"  
#> [106] NA            "beginning"   "progressing" "progressing" "beginning"  
#> [111] "beginning"   "progressing" "beginning"   NA            "beginning"  
#> [116] "progressing" "beginning"   "beginning"   "beginning"   "progressing"
#> [121] NA            "beginning"   "progressing" "progressing" "beginning"  
#> [126] NA            "progressing" NA            NA            "beginning"  
#> [131] "beginning"   NA            "beginning"   "beginning"   "beginning"  
#> [136] "progressing" "progressing" "progressing" "beginning"   "beginning"  
#> [141] "beginning"   "beginning"   NA            "beginning"   "beginning"  
#> [146] "beginning"   NA            NA            "beginning"   "beginning"  
#> [151] "beginning"   "progressing" "beginning"   "beginning"   "beginning"  
#> [156] "progressing" "beginning"   "beginning"   "progressing" "progressing"
#> [161] NA            "beginning"   "beginning"   "progressing" NA           
#> [166] "progressing" "beginning"   NA            "beginning"   "beginning"  
#> [171] "beginning"   "progressing" "progressing" "beginning"   "progressing"
#> [176] "beginning"   "beginning"   NA            NA            "beginning"  
#> [181] "progressing" NA            "beginning"   NA            "beginning"  
#> [186] "progressing" "progressing" "beginning"   "progressing" NA           
#> [191] "progressing" "beginning"   "beginning"   "beginning"   NA           
#> [196] "progressing" "beginning"   "beginning"   "progressing" NA           
#> [201] "beginning"   "beginning"   "progressing" "progressing" "progressing"
#> [206] "progressing" "progressing" "beginning"   NA            NA           
#> [211] NA            "beginning"   "beginning"   "beginning"   "progressing"
#> [216] NA            NA            "progressing" "progressing" "progressing"
#> [221] "beginning"   "beginning"   NA            NA            "beginning"  
#> [226] "progressing" "progressing" NA            "progressing" NA           
#> [231] NA            "beginning"   "progressing" "beginning"   "progressing"
#> [236] "beginning"   "beginning"   "beginning"   "beginning"   "progressing"
#> [241] "progressing" "beginning"   NA            NA            NA           
#> [246] "progressing" "beginning"   NA            NA            "beginning"  
#> [251] NA            "progressing" NA            "progressing" NA           
#> [256] "beginning"   "beginning"   "beginning"   NA            NA           
#> [261] "progressing" "progressing" "beginning"   NA            "progressing"
#> [266] "beginning"   "beginning"   "beginning"   "progressing" "beginning"  
#> [271] "beginning"   "beginning"   NA            "beginning"   "beginning"  
#> [276] "progressing" "beginning"   "progressing" "beginning"   "beginning"  
#> [281] "beginning"   NA            "beginning"   "progressing" "progressing"
#> [286] "progressing" "progressing" "beginning"   "beginning"   "beginning"  
#> [291] "beginning"   "beginning"   "beginning"   "beginning"   NA           
#> [296] "progressing" "progressing" "progressing" "progressing" "beginning"  
#> [301] "progressing" "beginning"   "beginning"   "beginning"   "beginning"  
#> [306] "progressing" "progressing" NA            NA            "beginning"  
#> [311] "progressing" "beginning"   "beginning"   "beginning"   "beginning"  
#> [316] "beginning"   "beginning"   "progressing" "beginning"   NA           
#> [321] "progressing" "progressing" NA            "beginning"   "beginning"  
#> [326] NA            "progressing" "beginning"   "beginning"   "beginning"  
#> [331] "beginning"   "progressing" "beginning"   "beginning"   "progressing"
#> [336] NA            "beginning"   "progressing" "beginning"   NA           
#> [341] NA            NA            "progressing" "progressing" "beginning"  
#> [346] "progressing" "progressing" "beginning"   "progressing" "progressing"
#> [351] NA            NA            "beginning"   "beginning"   "beginning"  
#> [356] "beginning"   NA            "progressing" "progressing" "progressing"
#> [361] NA            "progressing" NA            "beginning"   "progressing"
#> [366] "beginning"   NA            "beginning"   NA            "progressing"
#> [371] "progressing" "beginning"   "beginning"   NA            "progressing"
#> [376] "beginning"   "beginning"   NA            NA            "beginning"  
#> [381] "beginning"   "beginning"   "progressing" "progressing" NA           
#> [386] "beginning"   "progressing" NA            "beginning"   "beginning"  
#> [391] "progressing" "beginning"   NA            "progressing" "beginning"  
#> [396] NA            "progressing" NA            "beginning"   "beginning"  
#> [401] NA            "progressing" "progressing" "progressing" "progressing"
#> [406] "progressing" NA            "progressing" "progressing" "beginning"  
#> [411] NA            "progressing" "beginning"   "beginning"   "beginning"  
#> [416] "progressing" "progressing" "progressing" "progressing" NA           
#> [421] "progressing" "beginning"   "progressing" "progressing" "beginning"  
#> [426] "progressing" "beginning"   "beginning"   "progressing" "beginning"  
#> [431] NA            "progressing" "beginning"   NA            "beginning"  
#> [436] "progressing" "progressing" "progressing" "progressing" "beginning"  
#> [441] "beginning"   NA            "beginning"   "beginning"   "beginning"  
#> [446] "beginning"   "beginning"   "progressing" "beginning"   NA           
#> [451] "beginning"   "beginning"   NA            "progressing" "beginning"  
#> [456] "beginning"   "progressing" "beginning"   "beginning"   "beginning"  
#> [461] NA            "beginning"   "beginning"   "progressing" NA           
#> [466] NA            "beginning"   NA            NA            NA           
#> [471] "progressing" "progressing" NA            NA            "progressing"
#> [476] "beginning"   NA            "beginning"   "progressing" "beginning"  
#> [481] NA            "beginning"   NA            NA            "beginning"  
#> [486] NA            "beginning"   NA            "beginning"   "beginning"  
#> [491] "beginning"   "progressing" "progressing" "beginning"   "beginning"  
#> [496] NA            NA            NA            "beginning"   "beginning"

capl_demo_data$plank_score <- get_plank_score(capl_demo_data$plank_time)

capl_demo_data$plank_score
#>   [1] 10 10  0 10 10  9  1 10  0  3 10 10 10 10 10 10 10 10  0 10 10  5  3 10  9
#>  [26] 10 10  0 10  5  0  0  5 10  5 10  4  7 10  3  6 10  0 10  8  6 10 10  0 10
#>  [51]  5  9 10 10 10 10 10 10 10 10 10  8  0 10  4 10  2  9  0  6 10 10  7 10  4
#>  [76] 10 10 10  6  0 10 10 10 10  9 10 10 10 10  5  0 10 10 10  1  8 10 10  8  2
#> [101]  4 10  0 10  2 10  9 10  3 10 10  5 10  8  4 10 10 10 10  0 10 10  0 10 10
#> [126] 10 10 10 10 10  5 10  3 10  0 10  7  0 10  7  0 10 10 10  6 10 10 10  0  1
#> [151]  5 10 10  5  2 10  4 10 10 10 10  1 10  0  8 10 10  0  7  7 10 10  1 10 10
#> [176] 10 10 10 10 10  1  0  9 10 10 10 10 10 10 10  6  3  3 10 10  1 10 10 10  8
#> [201]  0  0 10  4 10  3 10 10  3  0 10  3 10 10 10  7 10  0 10 10 10  1 10 10  0
#> [226] 10 10 10  2  4 10  0  4  0 10 10  0  6 10 10 10  0 10 10  8 10 10 10  0 10
#> [251] 10 10  2 10 10 10 10  8 10 10 10  8 10 10 10 10  1 10 10 10 10 10 10  9  4
#> [276]  4 10 10 10 10 10  5  8 10 10 10 10 10  6 10  8 10  0 10  7  2 10  0 10 10
#> [301]  0  5 10  6 10 10 10 10 10 10  6 10 10  5  2  7 10 10 10 10 10 10 10 10 10
#> [326] 10  5  0  0 10 10 10  0  7 10 10 10 10  7 10 10 10 10 10 10 10 10  0  0 10
#> [351] 10 10 10 10 10  2 10 10 10  7  9 10 10 10  9  6 10  0 10 10 10 10  9 10 10
#> [376]  3 10 10 10 10  7  6 10 10  8 10 10 10  4  5 10 10 10 10  9 10  2 10 10  5
#> [401] 10  5  9 10 10  0 10 10 10 10 10 10  6 10 10  0 10  4 10  8  2  4  3 10  7
#> [426] 10 10 10 10  6 10 10  8 10 10 10 10 10 10  3  3 10 10 10  4 10 10  0 10 10
#> [451] 10 10  9  8 10 10  3 10  6  2  0 10 10  4  2  2 10  9 10  0  7 10  6  7  3
#> [476]  0  2 10 10  8 10 10 10 10  8 10  2  3 10  3  6  4 10 10 10 10 10  2 10  0

capl_demo_data$plank_interpretation <- get_capl_interpretation(
  age = capl_demo_data$age,
  gender = capl_demo_data$gender,
  score = capl_demo_data$plank_time,
  protocol = "plank"
)

capl_demo_data$plank_interpretation
#>   [1] "excelling"   "excelling"   "beginning"   "excelling"   "excelling"  
#>   [6] "excelling"   "beginning"   "excelling"   "beginning"   "progressing"
#>  [11] NA            "excelling"   NA            NA            "excelling"  
#>  [16] "excelling"   "excelling"   "excelling"   "beginning"   "excelling"  
#>  [21] "excelling"   "achieving"   "progressing" NA            NA           
#>  [26] NA            "excelling"   NA            "excelling"   "progressing"
#>  [31] "beginning"   "beginning"   "progressing" NA            "progressing"
#>  [36] NA            NA            "achieving"   "excelling"   "progressing"
#>  [41] "progressing" "excelling"   "beginning"   "excelling"   "achieving"  
#>  [46] "progressing" "excelling"   "excelling"   NA            NA           
#>  [51] "achieving"   "excelling"   "excelling"   "excelling"   "excelling"  
#>  [56] "excelling"   "excelling"   "excelling"   "excelling"   "excelling"  
#>  [61] "excelling"   NA            "beginning"   "excelling"   "progressing"
#>  [66] NA            "progressing" "excelling"   NA            "achieving"  
#>  [71] "excelling"   "excelling"   "achieving"   "excelling"   NA           
#>  [76] "excelling"   NA            "excelling"   "progressing" "beginning"  
#>  [81] NA            "excelling"   "excelling"   "excelling"   "achieving"  
#>  [86] NA            "excelling"   "excelling"   "excelling"   "progressing"
#>  [91] "beginning"   "excelling"   NA            NA            NA           
#>  [96] "achieving"   NA            "excelling"   "achieving"   "progressing"
#> [101] "progressing" "excelling"   "beginning"   NA            "progressing"
#> [106] "excelling"   "achieving"   "excelling"   "progressing" "excelling"  
#> [111] "excelling"   "achieving"   "excelling"   NA            "progressing"
#> [116] "excelling"   "excelling"   "excelling"   "excelling"   "beginning"  
#> [121] NA            "excelling"   "beginning"   "excelling"   "excelling"  
#> [126] NA            "excelling"   NA            NA            "excelling"  
#> [131] "progressing" NA            "progressing" "excelling"   "beginning"  
#> [136] "excelling"   "achieving"   "beginning"   "excelling"   "achieving"  
#> [141] "beginning"   "excelling"   "excelling"   "excelling"   "progressing"
#> [146] "excelling"   NA            NA            "beginning"   "progressing"
#> [151] "achieving"   "excelling"   "excelling"   "progressing" "progressing"
#> [156] "excelling"   "progressing" "excelling"   "excelling"   "excelling"  
#> [161] NA            "progressing" "excelling"   "beginning"   NA           
#> [166] "excelling"   "excelling"   NA            "achieving"   "achieving"  
#> [171] "excelling"   "excelling"   "progressing" "excelling"   "excelling"  
#> [176] "excelling"   "excelling"   NA            NA            "excelling"  
#> [181] "beginning"   NA            "achieving"   NA            "excelling"  
#> [186] "excelling"   "excelling"   "excelling"   "excelling"   NA           
#> [191] "achieving"   "progressing" "progressing" "excelling"   NA           
#> [196] "beginning"   "excelling"   "excelling"   "excelling"   NA           
#> [201] "beginning"   "beginning"   "excelling"   "progressing" "excelling"  
#> [206] "progressing" "excelling"   "excelling"   "progressing" NA           
#> [211] NA            "progressing" "excelling"   "excelling"   "excelling"  
#> [216] "achieving"   NA            "beginning"   "excelling"   "excelling"  
#> [221] "excelling"   "progressing" NA            NA            "beginning"  
#> [226] "excelling"   "excelling"   NA            "progressing" NA           
#> [231] "excelling"   "beginning"   "progressing" "beginning"   "excelling"  
#> [236] "excelling"   "beginning"   "achieving"   "excelling"   "excelling"  
#> [241] "excelling"   "beginning"   NA            NA            NA           
#> [246] "excelling"   "excelling"   NA            NA            "excelling"  
#> [251] NA            "excelling"   NA            "excelling"   "excelling"  
#> [256] "excelling"   "excelling"   "achieving"   "excelling"   NA           
#> [261] "excelling"   "achieving"   "excelling"   "excelling"   "excelling"  
#> [266] "excelling"   "progressing" "excelling"   "excelling"   "excelling"  
#> [271] "excelling"   "excelling"   NA            "excelling"   "progressing"
#> [276] "progressing" "excelling"   "excelling"   "excelling"   "excelling"  
#> [281] "excelling"   NA            "achieving"   "excelling"   "excelling"  
#> [286] "excelling"   "excelling"   "excelling"   "achieving"   "excelling"  
#> [291] "achieving"   "excelling"   "beginning"   "excelling"   NA           
#> [296] "progressing" "excelling"   "beginning"   "excelling"   "excelling"  
#> [301] "beginning"   "progressing" "excelling"   "progressing" "excelling"  
#> [306] "excelling"   "excelling"   NA            NA            "excelling"  
#> [311] "achieving"   "excelling"   "excelling"   "progressing" "progressing"
#> [316] "achieving"   "excelling"   "excelling"   "excelling"   NA           
#> [321] "excelling"   "excelling"   "excelling"   "excelling"   "excelling"  
#> [326] NA            "progressing" "beginning"   "beginning"   "excelling"  
#> [331] "excelling"   "excelling"   "beginning"   "achieving"   "excelling"  
#> [336] "excelling"   "excelling"   "excelling"   "achieving"   "excelling"  
#> [341] NA            NA            "excelling"   "excelling"   "excelling"  
#> [346] "excelling"   "excelling"   "beginning"   "progressing" "excelling"  
#> [351] NA            NA            "excelling"   "excelling"   "excelling"  
#> [356] "progressing" NA            "excelling"   "excelling"   "achieving"  
#> [361] NA            "excelling"   NA            "excelling"   "excelling"  
#> [366] "achieving"   "excelling"   "progressing" "excelling"   "excelling"  
#> [371] "excelling"   "excelling"   "excelling"   NA            "excelling"  
#> [376] "progressing" "excelling"   NA            NA            "excelling"  
#> [381] "achieving"   "progressing" "excelling"   "excelling"   "excelling"  
#> [386] "excelling"   "excelling"   NA            "progressing" "achieving"  
#> [391] "excelling"   "excelling"   NA            "excelling"   "achieving"  
#> [396] "excelling"   "progressing" NA            "excelling"   "progressing"
#> [401] NA            "progressing" "excelling"   "excelling"   "excelling"  
#> [406] "beginning"   NA            "excelling"   "excelling"   "excelling"  
#> [411] NA            "excelling"   "progressing" "excelling"   "excelling"  
#> [416] "beginning"   "excelling"   "progressing" "excelling"   NA           
#> [421] "progressing" "progressing" "progressing" "excelling"   "achieving"  
#> [426] "excelling"   "excelling"   "excelling"   "excelling"   "achieving"  
#> [431] "excelling"   "excelling"   "achieving"   NA            "excelling"  
#> [436] "excelling"   "excelling"   "excelling"   "excelling"   "progressing"
#> [441] "progressing" "excelling"   "excelling"   "excelling"   "progressing"
#> [446] "excelling"   "excelling"   "beginning"   "excelling"   NA           
#> [451] "excelling"   "excelling"   NA            "excelling"   "excelling"  
#> [456] "excelling"   "progressing" "excelling"   "achieving"   "progressing"
#> [461] NA            "excelling"   "excelling"   "progressing" NA           
#> [466] "progressing" "excelling"   NA            NA            NA           
#> [471] "achieving"   "excelling"   NA            "achieving"   "progressing"
#> [476] "beginning"   NA            "excelling"   "excelling"   "achieving"  
#> [481] NA            "excelling"   "excelling"   NA            "achieving"  
#> [486] NA            "progressing" NA            "excelling"   "progressing"
#> [491] "progressing" "progressing" "excelling"   "excelling"   "excelling"  
#> [496] "excelling"   NA            NA            "excelling"   "beginning"

# Trial 1
capl_demo_data$camsa_time_score1 <- get_camsa_time_score(capl_demo_data$camsa_time1)

# Trial 2
capl_demo_data$camsa_time_score2 <- get_camsa_time_score(capl_demo_data$camsa_time2)

# Time scores for trial 1
capl_demo_data$camsa_time_score1
#>   [1]  1  3 14  1  6 NA NA 11  7 13  1 14 13 14  9 14  5 14  1  4  6  2 10 14 NA
#>  [26] 12  6 13 14  1  8  3  1  1  1  4  1 12  2 14 14  1  5  5  1  3  9  3  1 10
#>  [51]  7  1  8  1  2  4 11  2  6 13  6  3 14  6  4  1  1 NA  5 14  2 14  7 12 12
#>  [76]  8  7  1 NA 14 10 NA  6  1  5  7  1  1  4  1  1  1 NA  8  4 14  1 10  4 13
#> [101] NA  5 13 11  5  9  3  7 10  2  1 14 13 13  1 NA 14  2 13  1 11  4  1  8  1
#> [126] NA 14 14 NA 10  5 NA  4 12  1 NA 11 11 NA NA  8  8  1  3  1 14 14  1 10  5
#> [151]  1  1 11  6  3  5 14  2  4  1  5  6  7  1  1  8 12  2 12  1 14  6 14 12 14
#> [176] 13  1 14  8  5 10  5  7  2 11  2 14  4 11  5 11 14 14 14  1 14  3 NA  9  8
#> [201]  5  3  3  7  1 11  3 10 12  3 14 13  6 12  1 14  6  8  7  6 14  5  3 10  8
#> [226]  3 13  5  4  1 14  5  3 13  1 14 14  1 14  7  6 NA  6  2  5  1  1  4  1 14
#> [251] 14 NA  1  5  9 NA 14 14 14  1 10 14 10  9  3  3  1 10 NA 14  3 11  1  5  9
#> [276]  5  5  5  2  4  4 14 12 14 14 11  4  2  5  1 13 14  1  7 11  4  1  9 12 NA
#> [301] 14  2  1  1  6  1  1  2  1  1  3  7 11  8  6  4  1  1 14  1  3  2  7 14 14
#> [326] 10  8 11  8  1  5  9 10 14  8  2  3  1 14 13 13  7  1 14  9  1 NA  1 11 13
#> [351]  3  1  1  4 10 13  4  9  8 14  1  4 10 14 12  1  1 14 10 14  2  1  1 11  7
#> [376]  1 14  1 10 10 13  2  3  2 14  8  2 10 13  1  7  2  1  3 14 14 14 14 10 14
#> [401]  7  1 13 13  9 14  1 10  2  6 14  3  1  1  3  8  1 14  1  3  4 NA  8  1 14
#> [426]  2  4  8  1 13  1  1 11  3  5  7 10  4  2  8  5  1  5  4  1 14 14  1 12  2
#> [451]  5 10  8  1  3 14  7 14 14 12  6 NA  1 10 NA 13  6  1  1 13 12  5 14  1  1
#> [476]  4 14  2  9  3  1  3  1  7  2  2  1  4  7 10  1  4 11 NA 13 14 14 13  6  1

# Time scores for trial 2
capl_demo_data$camsa_time_score2
#>   [1]  1  5 13  1  5  5  1  1  2  9  3  8  3 14  9 14 NA  1  4  1 10  5 14  1  1
#>  [26]  3  2 10  2  1  3 11 14 12 14 12 12  3 14 10  1 NA  1  1 14  1  6 11 13  5
#>  [51]  1 14 14 14  3  1  8 14 14  5  1  1 14  1 NA 14 11  1 10  3  7 14  8  4  1
#>  [76]  1  3  5  1  1 NA  8  1  5 NA  2  1 NA 10  2  1  6 14  7  3 12  8 14 14  6
#> [101] 14  3  4 13  1  9  5  5  9  1 14 14 11  1 10  6  1 14  2 11  5  1  4  5 11
#> [126]  1 14 11  1  1  4 14 14  2 NA  5  4 12  5  1 14  2  5 13 12 11 NA  2  4 12
#> [151]  4  5  2  1  8  5 14  1 12  2 10  1  8 14 14  6  5  5 13 14 14  9  3  5 12
#> [176]  4 10 10 14 14  5  1  8 14  4  2  6  4 14  6 14  9 14  1  1 NA 11  1  1 14
#> [201]  4  9  1 12  4 11  1  6  1  1  1 13  4 NA  6 14  1  1 14  7  6  1  1  1  4
#> [226] 12 14 NA  1 14  3 14 14  3  5  1  6 14  8 13 NA  7  6 14  3 14  6  2 14  5
#> [251]  2 14  2  4  1  2  7  3  1  1 13  4 NA 12 12 NA  2  1  1  7 12 10  2  1 11
#> [276] NA  9  4  5  1  2  3 14 14  1  6 NA  1 NA 13 14  2  1  9 12  6 14  2 NA 14
#> [301]  1 11  1 14  1  1  1  2  7  3 14  7 14  1 NA 14  5 10  4  1  1 14  9  2  4
#> [326]  5  5  7  8 13 11  3 12 14  1  2  2  1 10  1  1 NA 13 NA  4  1  2  7  5  1
#> [351]  9  1  1  5 11  1  1 14 11  5  5  8  1  4 13  8 14  5  1 12 13  3  5 14  9
#> [376]  2 12 14  1 13  9  1 14  3  1  2  6  2  3  8 14  2  5  9  2  4  1 10  3  8
#> [401]  1  1 10  3  1  1  1  1  2 14  2  7  3  3 14  1 14 13 14  2  6  3  1 14 14
#> [426] 12  8 14  5  2  1  1 14  3 14  1  2  2 11  4  8  1 NA 13 NA  5  2  3  4 14
#> [451]  5  1  1  1 NA  1  5  1 14 14  9  1 14  1  9 13  1 10 11  1  1 10  5  1  1
#> [476]  3  1  3  5  7  3 14 14  2  2  3  4  1 12 NA  1 10  8 14 13 12  4 NA  1 NA

# Trial 1
capl_demo_data$camsa_skill_time_score1 <- get_camsa_skill_time_score(
  camsa_skill_score = capl_demo_data$camsa_skill_score1,
  camsa_time_score = capl_demo_data$camsa_time_score1
)

# Trial 2
capl_demo_data$camsa_skill_time_score2 <- get_camsa_skill_time_score(
  camsa_skill_score = capl_demo_data$camsa_skill_score2,
  camsa_time_score = capl_demo_data$camsa_time_score2
)

# Time scores for trial 1
capl_demo_data$camsa_skill_time_score1
#>   [1] 15  8 20 14  8 NA NA 22 12 24 15 24 24 18 13 24 11 18  9  5 10 16 19 21 NA
#>  [26] 24 17 23 28  8 NA  6 NA  8  5  7  6 18 15 18 16 11 17 16  5  6 21 10  1 22
#>  [51] 21  5 17 13 16 12 19 16 11 18 11 12 21 16 10 14 10 NA  9 NA 13 NA 17 21 17
#>  [76] 18 18 15 NA 25 21 NA 10 14  5 20 15  7  9  6 14  7 NA  9  9 27  6 16 10 NA
#> [101] NA 17 24 14  8 20 13 13 17 10  9 21 19 20 14 NA 21  6 25 15 19 15 14 19  8
#> [126] NA 21 26 NA 23 17 NA 17 17  5 NA NA 18 NA NA 18 NA 14  8 15 27 NA 12 21 17
#> [151]  8 NA 24 10 15  9 20 14 14 NA NA NA 18 15  9 17 21  9 23 13 23 10 27 NA 28
#> [176] NA  8 25 21 19 12 13 12 13 25 14 25  8 16 15 15 26 18 23 11 19 NA NA 20 12
#> [201] 12 16 12 19 15 16 16 17 25 10 18 23  8 17  3 25 19 15 21 14 28 16  6 20 19
#> [226] 12 19 NA 16  9 NA 11 13 17  9 18 19 14 21 11 10 NA 11 11 13 14 11 14 12 26
#> [251] 22 NA  5  6 13 NA 18 23 23  7 22 14 17 22  7  9  5 23 NA 28 15 22 15 15 16
#> [276]  8 10 18 12 16 11 19 20 19 22 16  9  7 15 10 22 21  6 21 21 13  5 23 18 NA
#> [301] 26 13  8  6 13 11 12 11 13  8 16 19 21 20 19 14  8  5 15 14 11  8 17 20 28
#> [326] 15 13 16 21  6 12 22 24 22 20 12  9 13 21 17 18 15 15 20 15 10 NA 11 13 22
#> [351] 10  9  7 15 16 25  9 18 NA 28  5  7 NA 21 24 12  7 28 NA 21  9 12 15 22 14
#> [376] 12 19 11 16 13 18 12 12  9 20 17 NA 21 21 15 15 11  7 15 25 26 19 28 NA 28
#> [401] 13  3 23 26 14 19  8 22  9 NA 26 17 11 11 10 20  5 27 14 NA  9 NA 11  6 20
#> [426]  6 18 14 15 17  7  8 16 13 17 20 21  8  6 18 NA 10  6 18 13 16 20  7 25  6
#> [451] NA NA 18  6 11 20 12 17 22 26 15 NA  9 17 NA 13 13  8  6 26 19  7 23 15  9
#> [476] 12 16 10 15 12  7 11 12 12  9  8  9 15 NA 17  6 18 15 NA 19 14 22 22 14 15

# Time scores for trial 2
capl_demo_data$camsa_skill_time_score2
#>   [1] 15 10 26 12 19 19  1  5  2 13 12 18 14 26 18 26 NA 14  8 10 18  9 25 13 11
#>  [26] 13 NA 19 10  7  8 16 28 24 28 21 22 16 20 16 13 NA  3  8 27  6 14 23 24 16
#>  [51] 12 28 20 20 NA 11 13 18 22  6  5  8 28  7 NA 21 17  5 21 16 NA 26 NA 12 12
#>  [76] 13 17 10 12  5 NA  8 NA  8 NA  7  8 NA 18  9  5 15 19 14 13 16  9 22 19 17
#> [101] 18 12  6 23 13 16 17  9 13 14 26 20 21 NA 14 15  5 15 14 23 13 14  7 13 22
#> [126]  7 17 17 13 10 12 18 25 10 NA 16 10 18 14 12 25  7 17 26 21 23 NA 11 13 23
#> [151] 11 19  8 11 22 11 21  9 22 12 24  6 18 24 26 NA 16  7 22 24 22 18 17 18 16
#> [176] 12 19 17 25 27  9  5 11 27 13 11 15 11 26 10 18 11 22  7 12 NA 25 11  7 21
#> [201] 16 16 12 23 15 22  7 14 15  9 12 19 16 NA 10 NA 10  3 NA 14 10  5  7  8 13
#> [226] 18 22 NA 11 26 15 22 21 11 18 10 10 28 14 15 NA 15 14 21  9 27 15 11 24 18
#> [251]  6 19 11 10 12  8 18  5 12  2 17 14 NA 14 18 NA 11  8  7 18 24 11 15 15 22
#> [276] NA 20 18 16 15 11  8 23 19  5 14 NA 12 NA 19 22 12  5 18 22 19 23 11 NA NA
#> [301]  6 20  8 19 13  7  7  8 21  5 NA 20 25  8 NA 18 11 15 18 11 10 27 14  8  8
#> [326] 11 19 12 14 23 24 14 NA 28 13 NA  9  9 NA  6 12 NA 23 NA 18 10 11 11 12  9
#> [351] 14  9 13 17 20 15 13 20 20 11 19 17 11 18 NA 12 23 10 12 25 21  8  9 27 17
#> [376] 13 20 16  4 23 23  8 27 10 10 14 20 10 15 17 23 16 12 22 12  4  8 19  8 14
#> [401] 14 14 19 12 11 11  1 13  6 26  2 12 11 16 21 NA 26 14 18 10 19 13  7 28 26
#> [426] 16 14 14 13 12 14  7 24 16 16 15 15  8 11 10 15  9 NA 19 NA 10  9 10 15 25
#> [451] 10  6 13 13 NA 12 14  6 18 19 19 13 20  2 23 24 15 20 23  8  6 20 15  7  8
#> [476] 16 10 16 19 16 13 24 18 15  8 NA 16  7 12 NA  8 12 15 18 22 21 11 NA 15 NA

capl_demo_data$camsa_score <- get_camsa_score(
  camsa_skill_time_score1 = capl_demo_data$camsa_skill_time_score1,
  camsa_skill_time_score2 = capl_demo_data$camsa_skill_time_score2
)

capl_demo_data$camsa_score
#>   [1]  5.357143  3.571429  9.285714  5.000000  6.785714        NA        NA
#>   [8]  7.857143  4.285714  8.571429  5.357143  8.571429  8.571429  9.285714
#>  [15]  6.428571  9.285714        NA  6.428571  3.214286  3.571429  6.428571
#>  [22]  5.714286  8.928571  7.500000        NA  8.571429        NA  8.214286
#>  [29] 10.000000  2.857143        NA  5.714286        NA  8.571429 10.000000
#>  [36]  7.500000  7.857143  6.428571  7.142857  6.428571  5.714286        NA
#>  [43]  6.071429  5.714286  9.642857  2.142857  7.500000  8.214286  8.571429
#>  [50]  7.857143  7.500000 10.000000  7.142857  7.142857        NA  4.285714
#>  [57]  6.785714  6.428571  7.857143  6.428571  3.928571  4.285714 10.000000
#>  [64]  5.714286        NA  7.500000  6.071429        NA  7.500000        NA
#>  [71]        NA        NA        NA  7.500000  6.071429  6.428571  6.428571
#>  [78]  5.357143        NA  8.928571        NA        NA        NA  5.000000
#>  [85]        NA  7.142857  5.357143        NA  6.428571  3.214286  5.000000
#>  [92]  5.357143        NA  5.000000  4.642857  9.642857  3.214286  7.857143
#>  [99]  6.785714        NA        NA  6.071429  8.571429  8.214286  4.642857
#> [106]  7.142857  6.071429  4.642857  6.071429  5.000000  9.285714  7.500000
#> [113]  7.500000        NA  5.000000        NA  7.500000  5.357143  8.928571
#> [120]  8.214286  6.785714  5.357143  5.000000  6.785714  7.857143        NA
#> [127]  7.500000  9.285714        NA  8.214286  6.071429        NA  8.928571
#> [134]  6.071429        NA        NA        NA  6.428571        NA        NA
#> [141]  8.928571        NA  6.071429  9.285714  7.500000  9.642857        NA
#> [148]  4.285714  7.500000  8.214286  3.928571        NA  8.571429  3.928571
#> [155]  7.857143  3.928571  7.500000  5.000000  7.857143        NA        NA
#> [162]        NA  6.428571  8.571429  9.285714        NA  7.500000  3.214286
#> [169]  8.214286  8.571429  8.214286  6.428571  9.642857        NA 10.000000
#> [176]        NA  6.785714  8.928571  8.928571  9.642857  4.285714  4.642857
#> [183]  4.285714  9.642857  8.928571  5.000000  8.928571  3.928571  9.285714
#> [190]  5.357143  6.428571  9.285714  7.857143  8.214286  4.285714        NA
#> [197]        NA        NA  7.142857  7.500000  5.714286  5.714286  4.285714
#> [204]  8.214286  5.357143  7.857143  5.714286  6.071429  8.928571  3.571429
#> [211]  6.428571  8.214286  5.714286        NA  3.571429        NA  6.785714
#> [218]  5.357143        NA  5.000000 10.000000  5.714286  2.500000  7.142857
#> [225]  6.785714  6.428571  7.857143        NA  5.714286  9.285714        NA
#> [232]  7.857143  7.500000  6.071429  6.428571  6.428571  6.785714 10.000000
#> [239]  7.500000  5.357143        NA        NA  5.000000  7.500000  4.642857
#> [246]  9.642857  5.357143  5.000000  8.571429  9.285714  7.857143        NA
#> [253]  3.928571  3.571429  4.642857        NA  6.428571  8.214286  8.214286
#> [260]  2.500000  7.857143  5.000000        NA  7.857143  6.428571        NA
#> [267]  3.928571  8.214286        NA 10.000000  8.571429  7.857143  5.357143
#> [274]  5.357143  7.857143        NA  7.142857  6.428571  5.714286  5.714286
#> [281]  3.928571  6.785714  8.214286  6.785714  7.857143  5.714286        NA
#> [288]  4.285714        NA  6.785714  7.857143  7.500000  2.142857  7.500000
#> [295]  7.857143  6.785714  8.214286  8.214286        NA        NA  9.285714
#> [302]  7.142857  2.857143  6.785714  4.642857  3.928571  4.285714  3.928571
#> [309]  7.500000  2.857143        NA  7.142857  8.928571  7.142857        NA
#> [316]  6.428571  3.928571  5.357143  6.428571  5.000000  3.928571  9.642857
#> [323]  6.071429  7.142857 10.000000  5.357143  6.785714  5.714286  7.500000
#> [330]  8.214286  8.571429  7.857143        NA 10.000000  7.142857        NA
#> [337]  3.214286  4.642857        NA  6.071429  6.428571        NA  8.214286
#> [344]        NA  6.428571  3.571429        NA  3.928571  4.642857  7.857143
#> [351]  5.000000  3.214286  4.642857  6.071429  7.142857  8.928571  4.642857
#> [358]  7.142857        NA 10.000000  6.785714  6.071429        NA  7.500000
#> [365]        NA  4.285714  8.214286 10.000000        NA  8.928571  7.500000
#> [372]  4.285714  5.357143  9.642857  6.071429  4.642857  7.142857  5.714286
#> [379]  5.714286  8.214286  8.214286  4.285714  9.642857  3.571429  7.142857
#> [386]  6.071429        NA  7.500000  7.500000  6.071429  8.214286  5.714286
#> [393]  4.285714  7.857143  8.928571  9.285714  6.785714 10.000000        NA
#> [400] 10.000000  5.000000  5.000000  8.214286  9.285714  5.000000  6.785714
#> [407]  2.857143  7.857143  3.214286        NA  9.285714  6.071429  3.928571
#> [414]  5.714286  7.500000        NA  9.285714  9.642857  6.428571        NA
#> [421]  6.785714        NA  3.928571 10.000000  9.285714  5.714286  6.428571
#> [428]  5.000000  5.357143  6.071429  5.000000  2.857143  8.571429  5.714286
#> [435]  6.071429  7.142857  7.500000  2.857143  3.928571  6.428571        NA
#> [442]  3.571429        NA  6.785714        NA  5.714286  7.142857  3.571429
#> [449]  8.928571  8.928571        NA        NA  6.428571  4.642857        NA
#> [456]  7.142857  5.000000  6.071429  7.857143  9.285714  6.785714        NA
#> [463]  7.142857  6.071429        NA  8.571429  5.357143  7.142857  8.214286
#> [470]  9.285714  6.785714  7.142857  8.214286  5.357143  3.214286  5.714286
#> [477]  5.714286  5.714286  6.785714  5.714286  4.642857  8.571429  6.428571
#> [484]  5.357143  3.214286        NA  5.714286  5.357143        NA        NA
#> [491]  2.857143  6.428571  5.357143        NA  7.857143  7.500000  7.857143
#> [498]        NA  5.357143        NA

capl_demo_data$camsa_interpretation <- get_capl_interpretation(
  age = capl_demo_data$age,
  gender = capl_demo_data$gender,
  score = capl_demo_data$camsa_score,
  protocol = "camsa"
)

capl_demo_data$camsa_interpretation
#>   [1] "beginning"   "beginning"   "excelling"   "beginning"   "progressing"
#>   [6] NA            NA            "progressing" "beginning"   "excelling"  
#>  [11] NA            "achieving"   NA            NA            "progressing"
#>  [16] "excelling"   NA            "progressing" "beginning"   "beginning"  
#>  [21] "progressing" "beginning"   "excelling"   NA            NA           
#>  [26] NA            NA            NA            "excelling"   "beginning"  
#>  [31] NA            "beginning"   NA            NA            "excelling"  
#>  [36] NA            NA            "progressing" "progressing" "progressing"
#>  [41] "beginning"   NA            "progressing" "beginning"   "excelling"  
#>  [46] "beginning"   "progressing" "achieving"   NA            NA           
#>  [51] "achieving"   "excelling"   "progressing" "progressing" NA           
#>  [56] "beginning"   "progressing" "progressing" "progressing" "progressing"
#>  [61] "beginning"   NA            "excelling"   "progressing" NA           
#>  [66] NA            "progressing" NA            NA            NA           
#>  [71] NA            NA            NA            "progressing" NA           
#>  [76] "progressing" NA            "progressing" NA            "achieving"  
#>  [81] NA            NA            NA            "beginning"   NA           
#>  [86] NA            "beginning"   NA            "progressing" "beginning"  
#>  [91] "beginning"   "beginning"   NA            NA            NA           
#>  [96] "excelling"   NA            "achieving"   "progressing" NA           
#> [101] NA            "beginning"   "achieving"   NA            "beginning"  
#> [106] "progressing" "progressing" "beginning"   "progressing" "beginning"  
#> [111] "excelling"   "achieving"   "progressing" NA            "beginning"  
#> [116] NA            "progressing" "beginning"   "achieving"   "achieving"  
#> [121] NA            "beginning"   "beginning"   "progressing" "progressing"
#> [126] NA            "progressing" NA            NA            "progressing"
#> [131] "progressing" NA            "excelling"   "beginning"   NA           
#> [136] NA            NA            "progressing" NA            NA           
#> [141] "excelling"   NA            "progressing" "excelling"   "progressing"
#> [146] "excelling"   NA            NA            "progressing" "progressing"
#> [151] "beginning"   NA            "progressing" "beginning"   "progressing"
#> [156] "beginning"   "progressing" "beginning"   "excelling"   NA           
#> [161] NA            NA            "progressing" "excelling"   NA           
#> [166] NA            "progressing" NA            "achieving"   "achieving"  
#> [171] "progressing" "progressing" "excelling"   NA            "excelling"  
#> [176] NA            "progressing" NA            NA            "excelling"  
#> [181] "beginning"   NA            "beginning"   NA            "achieving"  
#> [186] "beginning"   "excelling"   "beginning"   "excelling"   NA           
#> [191] "progressing" "achieving"   "progressing" "progressing" NA           
#> [196] NA            NA            NA            "progressing" NA           
#> [201] "beginning"   "progressing" "beginning"   "achieving"   "beginning"  
#> [206] "progressing" "progressing" "beginning"   "achieving"   NA           
#> [211] NA            "excelling"   "beginning"   NA            "beginning"  
#> [216] NA            NA            "progressing" NA            "beginning"  
#> [221] "excelling"   "beginning"   NA            NA            "progressing"
#> [226] "progressing" "achieving"   NA            "beginning"   NA           
#> [231] NA            "progressing" "progressing" "beginning"   "progressing"
#> [236] "progressing" "progressing" "excelling"   "progressing" "beginning"  
#> [241] NA            NA            NA            NA            NA           
#> [246] "excelling"   "beginning"   NA            NA            "excelling"  
#> [251] NA            NA            NA            "beginning"   "beginning"  
#> [256] NA            "progressing" "progressing" "progressing" NA           
#> [261] "progressing" "beginning"   NA            "achieving"   "progressing"
#> [266] NA            "beginning"   "progressing" NA            "excelling"  
#> [271] "excelling"   "progressing" NA            "beginning"   "progressing"
#> [276] NA            "progressing" "progressing" "beginning"   "beginning"  
#> [281] "beginning"   NA            "progressing" "progressing" "progressing"
#> [286] "beginning"   NA            "beginning"   NA            "progressing"
#> [291] "progressing" "progressing" "beginning"   "progressing" NA           
#> [296] "progressing" "excelling"   "achieving"   NA            NA           
#> [301] "excelling"   "progressing" "beginning"   "progressing" "beginning"  
#> [306] "beginning"   "beginning"   NA            NA            "beginning"  
#> [311] NA            "progressing" "achieving"   "progressing" NA           
#> [316] "progressing" "beginning"   "beginning"   "progressing" NA           
#> [321] "beginning"   "excelling"   "beginning"   "progressing" "excelling"  
#> [326] NA            "progressing" "progressing" "progressing" "excelling"  
#> [331] "achieving"   "excelling"   NA            "excelling"   "progressing"
#> [336] NA            "beginning"   "beginning"   NA            "beginning"  
#> [341] NA            NA            "achieving"   NA            "progressing"
#> [346] "beginning"   NA            "beginning"   "beginning"   "progressing"
#> [351] NA            NA            "beginning"   "progressing" "progressing"
#> [356] "excelling"   NA            "progressing" NA            "excelling"  
#> [361] NA            "progressing" NA            "progressing" NA           
#> [366] "beginning"   "achieving"   "excelling"   NA            "excelling"  
#> [371] "progressing" "beginning"   "beginning"   NA            "progressing"
#> [376] "beginning"   "progressing" NA            NA            "progressing"
#> [381] "progressing" "beginning"   "excelling"   "beginning"   "progressing"
#> [386] "progressing" NA            NA            "achieving"   "progressing"
#> [391] "excelling"   "beginning"   NA            "achieving"   "achieving"  
#> [396] "excelling"   "progressing" NA            NA            "excelling"  
#> [401] NA            "beginning"   "excelling"   "excelling"   "beginning"  
#> [406] "progressing" NA            "achieving"   "beginning"   NA           
#> [411] NA            "progressing" "beginning"   "beginning"   "progressing"
#> [416] NA            "excelling"   "excelling"   "progressing" NA           
#> [421] "progressing" NA            "beginning"   "excelling"   "excelling"  
#> [426] "progressing" "progressing" "beginning"   "beginning"   "beginning"  
#> [431] "beginning"   "beginning"   "achieving"   NA            "beginning"  
#> [436] "progressing" "progressing" "beginning"   "beginning"   "progressing"
#> [441] NA            "beginning"   NA            "progressing" NA           
#> [446] "beginning"   "progressing" "beginning"   "achieving"   NA           
#> [451] NA            NA            NA            "beginning"   NA           
#> [456] "progressing" "beginning"   "beginning"   "progressing" "excelling"  
#> [461] NA            NA            "progressing" "progressing" NA           
#> [466] "achieving"   "beginning"   NA            NA            NA           
#> [471] "progressing" "progressing" NA            "beginning"   "beginning"  
#> [476] "beginning"   NA            "beginning"   "progressing" "beginning"  
#> [481] NA            "excelling"   "progressing" NA            "beginning"  
#> [486] NA            "beginning"   NA            NA            NA           
#> [491] "beginning"   "progressing" "beginning"   NA            "achieving"  
#> [496] "progressing" NA            NA            "beginning"   NA

capl_demo_data$pc_score <- get_pc_score(
  pacer_score = capl_demo_data$pacer_score,
  plank_score = capl_demo_data$plank_score,
  camsa_score = capl_demo_data$camsa_score
)

capl_demo_data$pc_score
#>   [1] 19.5 24.0 15.0 22.0 30.0 16.5  9.0 30.0  9.0   NA 30.0 30.0 25.5 19.5   NA
#>  [16] 30.0 30.0 30.0 15.0 30.0 30.0 22.5 19.5 28.5 13.5 30.0 30.0 15.0 30.0 22.5
#>  [31] 15.0  1.5 22.5 19.5 25.0 30.0 21.0 24.0 30.0 15.0 24.0 30.0 15.0 30.0 27.0
#>  [46] 24.0 15.0 30.0 15.0 30.0 21.0 29.0 30.0 30.0 30.0 30.0 18.0 30.0 30.0 30.0
#>  [61] 30.0 27.0 20.0 25.5 21.0 30.0  3.0 28.5 15.0 24.0   NA 30.0 25.5 27.0 21.0
#>  [76] 30.0 30.0 16.5 13.5 15.0 21.0 24.0 30.0 25.0 24.0 25.5 27.0 30.0 30.0 12.0
#>  [91] 15.0 30.0 25.5 22.5  3.0 24.0 27.0 15.0 27.0   NA 21.0 30.0 15.0 30.0 15.0
#> [106] 15.0 28.5 30.0 19.5 16.0 30.0 22.5 30.0 27.0 11.0 30.0 25.5 30.0 24.0 15.0
#> [121] 30.0 30.0 15.0 30.0 30.0 24.0 30.0 30.0 30.0 30.0 22.5 30.0 18.0 30.0 15.0
#> [136] 30.0 25.5 15.0 30.0 25.5 15.0 30.0   NA 30.0 21.0 19.5 30.0 30.0 15.0 16.5
#> [151] 16.5 30.0 30.0 22.5 18.0 30.0 13.5 25.0 30.0 30.0 30.0 16.5 25.5 15.0 15.0
#> [166] 30.0 30.0 15.0 12.0 22.5 30.0 30.0 16.5 30.0 30.0 22.5 30.0 30.0 30.0 18.0
#> [181] 16.5 15.0 25.5 30.0 30.0 25.0 30.0 30.0 30.0 30.0 24.0 19.5 12.0 21.0 27.0
#> [196] 16.5 30.0 19.5 30.0 27.0  4.5  7.5 30.0 21.0 30.0 19.5 30.0 19.5   NA 15.0
#> [211] 30.0 13.5 25.5 30.0 30.0   NA 22.5 13.5 30.0 25.0 27.0 15.0   NA 30.0 13.5
#> [226] 30.0 30.0 28.5 18.0 21.0   NA  9.0 21.0 10.5 30.0 22.5 15.0 26.0 30.0 30.0
#> [241] 30.0 15.0 22.5 30.0 27.0 30.0 16.5 25.0   NA 30.0 30.0 30.0 18.0 30.0 15.0
#> [256] 30.0 30.0 27.0   NA 30.0 30.0 23.0 25.5   NA 30.0 19.5  9.0 30.0 30.0 24.0
#> [271] 19.5 30.0 30.0 28.5 19.5 21.0 21.0 30.0 30.0 30.0 30.0 22.5 27.0 30.0 30.0
#> [286] 30.0 30.0 16.5 24.0 30.0 27.0 30.0 15.0 30.0 25.5 18.0 30.0 15.0 30.0 30.0
#> [301] 15.0 22.5 30.0 24.0 30.0 30.0 30.0 30.0 30.0 27.0 24.0 30.0 30.0 22.5 12.0
#> [316] 25.5 27.0 30.0 30.0 25.0 30.0 30.0   NA 28.5 30.0 30.0 22.5  3.0 15.0 27.0
#> [331] 30.0 30.0 15.0 23.0 30.0 15.0 16.5 30.0 25.5   NA 15.0 30.0 30.0 30.0 30.0
#> [346] 30.0 30.0 15.0 15.0 30.0 25.0 30.0 30.0 28.5 28.5 18.0 30.0 30.0 30.0 27.0
#> [361] 28.5 30.0 15.0 28.5 28.5 24.0 15.0 14.0   NA 30.0 30.0 19.5 16.5 30.0 30.0
#> [376] 19.5 30.0 30.0 30.0 30.0 25.5 24.0 30.0 30.0   NA 30.0 30.0   NA 13.5 13.5
#> [391] 30.0 30.0 30.0 30.0 28.5   NA 18.0 30.0 19.5 24.0 22.0 20.0 28.5 30.0 25.0
#> [406] 15.0 30.0 30.0 30.0 30.0 30.0 30.0 24.0 21.0 30.0 15.0 30.0 21.0 30.0 27.0
#> [421] 18.0  7.5 19.5 30.0 12.0 30.0 30.0 23.0 30.0 24.0 22.5 30.0 19.5 30.0 27.0
#> [436] 30.0 30.0 30.0 30.0 16.5 12.0   NA 18.0 30.0 21.0 24.0 30.0 15.0 30.0   NA
#> [451] 30.0 18.0 28.5 27.0 21.0 30.0 18.0 30.0 24.0 13.5  7.5 22.5 30.0 21.0 18.0
#> [466]  3.0 19.5 28.5   NA 15.0 25.5 30.0 24.0   NA 19.5 15.0 18.0 30.0 30.0 27.0
#> [481] 30.0 18.0   NA 24.0 27.0   NA 18.0 19.5 30.0 19.5 24.0 21.0 30.0 30.0 21.0
#> [496]   NA 30.0 18.0 30.0 13.5

capl_demo_data$pc_interpretation <- get_capl_interpretation(
  age = capl_demo_data$age,
  gender = capl_demo_data$gender,
  score = capl_demo_data$pc_score,
  protocol = "pc"
)

capl_demo_data$pc_interpretation
#>   [1] "achieving"   "excelling"   "progressing" "excelling"   "excelling"  
#>   [6] "progressing" "beginning"   "excelling"   "beginning"   NA           
#>  [11] NA            "excelling"   NA            NA            NA           
#>  [16] "excelling"   "excelling"   "excelling"   "progressing" "excelling"  
#>  [21] "excelling"   "excelling"   "achieving"   NA            NA           
#>  [26] NA            "excelling"   NA            "excelling"   "achieving"  
#>  [31] "progressing" "beginning"   "excelling"   NA            "excelling"  
#>  [36] NA            NA            "excelling"   "excelling"   "progressing"
#>  [41] "excelling"   "excelling"   "progressing" "excelling"   "excelling"  
#>  [46] "excelling"   "progressing" "excelling"   NA            NA           
#>  [51] "excelling"   "excelling"   "excelling"   "excelling"   "excelling"  
#>  [56] "excelling"   "progressing" "excelling"   "excelling"   "excelling"  
#>  [61] "excelling"   NA            "achieving"   "excelling"   "achieving"  
#>  [66] NA            "beginning"   "excelling"   NA            "excelling"  
#>  [71] NA            "excelling"   "excelling"   "excelling"   NA           
#>  [76] "excelling"   NA            "progressing" "beginning"   "progressing"
#>  [81] NA            "excelling"   "excelling"   "excelling"   "achieving"  
#>  [86] NA            "excelling"   "excelling"   "excelling"   "beginning"  
#>  [91] "progressing" "excelling"   NA            NA            NA           
#>  [96] "excelling"   NA            "progressing" "excelling"   NA           
#> [101] "achieving"   "excelling"   "progressing" NA            "progressing"
#> [106] "progressing" "excelling"   "excelling"   "progressing" "progressing"
#> [111] "excelling"   "excelling"   "excelling"   NA            "beginning"  
#> [116] "excelling"   "excelling"   "excelling"   "excelling"   "progressing"
#> [121] NA            "excelling"   "progressing" "excelling"   "excelling"  
#> [126] NA            "excelling"   NA            NA            "excelling"  
#> [131] "achieving"   NA            "progressing" "excelling"   "progressing"
#> [136] "excelling"   "excelling"   "progressing" "excelling"   "excelling"  
#> [141] "progressing" "excelling"   NA            "excelling"   "progressing"
#> [146] "achieving"   NA            NA            "progressing" "progressing"
#> [151] "progressing" "excelling"   "excelling"   "achieving"   "progressing"
#> [156] "excelling"   "beginning"   "excelling"   "excelling"   "excelling"  
#> [161] NA            "progressing" "excelling"   "progressing" NA           
#> [166] "excelling"   "excelling"   NA            "beginning"   "achieving"  
#> [171] "excelling"   "excelling"   "progressing" "excelling"   "excelling"  
#> [176] "excelling"   "excelling"   NA            NA            "progressing"
#> [181] "progressing" NA            "excelling"   NA            "excelling"  
#> [186] "excelling"   "excelling"   "excelling"   "excelling"   NA           
#> [191] "excelling"   "progressing" "beginning"   "progressing" NA           
#> [196] "progressing" "excelling"   "progressing" "excelling"   NA           
#> [201] "beginning"   "beginning"   "excelling"   "achieving"   "excelling"  
#> [206] "achieving"   "excelling"   "progressing" NA            NA           
#> [211] NA            "progressing" "excelling"   "excelling"   "excelling"  
#> [216] NA            NA            "progressing" "excelling"   "excelling"  
#> [221] "excelling"   "progressing" NA            NA            "beginning"  
#> [226] "excelling"   "excelling"   NA            "progressing" NA           
#> [231] NA            "beginning"   "achieving"   "beginning"   "excelling"  
#> [236] "excelling"   "progressing" "excelling"   "excelling"   "excelling"  
#> [241] "excelling"   "progressing" NA            NA            NA           
#> [246] "excelling"   "progressing" NA            NA            "excelling"  
#> [251] NA            "excelling"   NA            "excelling"   "progressing"
#> [256] "excelling"   "excelling"   "excelling"   NA            NA           
#> [261] "excelling"   "excelling"   "excelling"   NA            "excelling"  
#> [266] "achieving"   "beginning"   "excelling"   "excelling"   "excelling"  
#> [271] "achieving"   "excelling"   NA            "excelling"   "progressing"
#> [276] "achieving"   "progressing" "excelling"   "excelling"   "excelling"  
#> [281] "excelling"   NA            "excelling"   "excelling"   "excelling"  
#> [286] "excelling"   "excelling"   "progressing" "excelling"   "excelling"  
#> [291] "excelling"   "excelling"   "progressing" "excelling"   NA           
#> [296] "progressing" "excelling"   "progressing" "excelling"   "excelling"  
#> [301] "progressing" "achieving"   "excelling"   "excelling"   "excelling"  
#> [306] "excelling"   "excelling"   NA            NA            "excelling"  
#> [311] "excelling"   "excelling"   "excelling"   "achieving"   "beginning"  
#> [316] "excelling"   "excelling"   "excelling"   "excelling"   NA           
#> [321] "excelling"   "excelling"   NA            "excelling"   "excelling"  
#> [326] NA            "achieving"   "beginning"   "progressing" "excelling"  
#> [331] "excelling"   "excelling"   "progressing" "achieving"   "excelling"  
#> [336] "beginning"   "progressing" "excelling"   "excelling"   NA           
#> [341] NA            NA            "excelling"   "excelling"   "excelling"  
#> [346] "excelling"   "excelling"   "progressing" "progressing" "excelling"  
#> [351] NA            NA            "excelling"   "excelling"   "excelling"  
#> [356] "progressing" NA            "excelling"   "excelling"   "excelling"  
#> [361] NA            "excelling"   NA            "excelling"   "excelling"  
#> [366] "excelling"   "progressing" "progressing" NA            "excelling"  
#> [371] "excelling"   "achieving"   "progressing" NA            "excelling"  
#> [376] "progressing" "excelling"   NA            NA            "excelling"  
#> [381] "excelling"   "excelling"   "excelling"   "excelling"   NA           
#> [386] "excelling"   "excelling"   NA            "progressing" "beginning"  
#> [391] "excelling"   "excelling"   NA            "excelling"   "excelling"  
#> [396] NA            "progressing" NA            "progressing" "excelling"  
#> [401] NA            "achieving"   "excelling"   "excelling"   "excelling"  
#> [406] "progressing" NA            "excelling"   "excelling"   "excelling"  
#> [411] NA            "excelling"   "excelling"   "achieving"   "excelling"  
#> [416] "progressing" "excelling"   "excelling"   "excelling"   NA           
#> [421] "progressing" "beginning"   "achieving"   "excelling"   "beginning"  
#> [426] "excelling"   "excelling"   "excelling"   "excelling"   "excelling"  
#> [431] "excelling"   "excelling"   "progressing" NA            "excelling"  
#> [436] "excelling"   "excelling"   "excelling"   "excelling"   "progressing"
#> [441] "beginning"   NA            "progressing" "excelling"   "achieving"  
#> [446] "excelling"   "excelling"   "progressing" "excelling"   NA           
#> [451] "excelling"   "progressing" NA            "excelling"   "excelling"  
#> [456] "excelling"   "progressing" "excelling"   "excelling"   "beginning"  
#> [461] NA            "excelling"   "excelling"   "achieving"   NA           
#> [466] "beginning"   "progressing" NA            NA            NA           
#> [471] "excelling"   "excelling"   NA            NA            "progressing"
#> [476] "progressing" NA            "excelling"   "excelling"   "excelling"  
#> [481] NA            "progressing" NA            NA            "excelling"  
#> [486] NA            "progressing" NA            "excelling"   "progressing"
#> [491] "excelling"   "achieving"   "excelling"   "excelling"   "excelling"  
#> [496] NA            NA            NA            "excelling"   "beginning"

capl_demo_data$pc_status <- get_capl_domain_status(
  x = capl_demo_data,
  domain = "pc"
)

capl_demo_data$pc_status
#>   [1] "complete"               "complete"               "complete"              
#>   [4] "complete"               "complete"               "missing protocol"      
#>   [7] "missing protocol"       "complete"               "complete"              
#>  [10] "incomplete"             "missing interpretation" "complete"              
#>  [13] "missing interpretation" "missing interpretation" "incomplete"            
#>  [16] "complete"               "missing protocol"       "complete"              
#>  [19] "complete"               "complete"               "complete"              
#>  [22] "complete"               "complete"               "missing interpretation"
#>  [25] "missing interpretation" "missing interpretation" "missing protocol"      
#>  [28] "missing interpretation" "complete"               "complete"              
#>  [31] "missing protocol"       "complete"               "missing protocol"      
#>  [34] "missing interpretation" "complete"               "missing interpretation"
#>  [37] "missing interpretation" "complete"               "complete"              
#>  [40] "complete"               "complete"               "missing protocol"      
#>  [43] "complete"               "complete"               "complete"              
#>  [46] "complete"               "complete"               "complete"              
#>  [49] "missing interpretation" "missing interpretation" "complete"              
#>  [52] "complete"               "complete"               "complete"              
#>  [55] "missing protocol"       "complete"               "complete"              
#>  [58] "complete"               "complete"               "complete"              
#>  [61] "complete"               "missing interpretation" "complete"              
#>  [64] "complete"               "missing protocol"       "missing interpretation"
#>  [67] "complete"               "missing protocol"       "missing interpretation"
#>  [70] "missing protocol"       "incomplete"             "missing protocol"      
#>  [73] "missing protocol"       "complete"               "missing interpretation"
#>  [76] "complete"               "missing interpretation" "complete"              
#>  [79] "missing protocol"       "complete"               "missing interpretation"
#>  [82] "missing protocol"       "missing protocol"       "complete"              
#>  [85] "missing protocol"       "missing interpretation" "complete"              
#>  [88] "missing protocol"       "complete"               "complete"              
#>  [91] "complete"               "complete"               "missing interpretation"
#>  [94] "missing interpretation" "missing interpretation" "complete"              
#>  [97] "missing interpretation" "complete"               "complete"              
#> [100] "incomplete"             "missing protocol"       "complete"              
#> [103] "complete"               "missing interpretation" "complete"              
#> [106] "complete"               "complete"               "complete"              
#> [109] "complete"               "complete"               "complete"              
#> [112] "complete"               "complete"               "missing interpretation"
#> [115] "complete"               "missing protocol"       "complete"              
#> [118] "complete"               "complete"               "complete"              
#> [121] "missing interpretation" "complete"               "complete"              
#> [124] "complete"               "complete"               "missing interpretation"
#> [127] "complete"               "missing interpretation" "missing interpretation"
#> [130] "complete"               "complete"               "missing interpretation"
#> [133] "complete"               "complete"               "missing protocol"      
#> [136] "missing protocol"       "missing protocol"       "complete"              
#> [139] "missing protocol"       "missing protocol"       "complete"              
#> [142] "missing protocol"       "incomplete"             "complete"              
#> [145] "complete"               "complete"               "missing interpretation"
#> [148] "missing interpretation" "complete"               "complete"              
#> [151] "complete"               "missing protocol"       "complete"              
#> [154] "complete"               "complete"               "complete"              
#> [157] "complete"               "complete"               "complete"              
#> [160] "missing protocol"       "missing interpretation" "missing protocol"      
#> [163] "complete"               "complete"               "missing interpretation"
#> [166] "missing protocol"       "complete"               "missing interpretation"
#> [169] "complete"               "complete"               "complete"              
#> [172] "complete"               "complete"               "missing protocol"      
#> [175] "complete"               "missing protocol"       "complete"              
#> [178] "missing interpretation" "missing interpretation" "complete"              
#> [181] "complete"               "missing interpretation" "complete"              
#> [184] "missing interpretation" "complete"               "complete"              
#> [187] "complete"               "complete"               "complete"              
#> [190] "missing interpretation" "complete"               "complete"              
#> [193] "complete"               "complete"               "missing interpretation"
#> [196] "missing protocol"       "missing protocol"       "missing protocol"      
#> [199] "complete"               "missing interpretation" "complete"              
#> [202] "complete"               "complete"               "complete"              
#> [205] "complete"               "complete"               "complete"              
#> [208] "complete"               "incomplete"             "missing interpretation"
#> [211] "missing interpretation" "complete"               "complete"              
#> [214] "missing protocol"       "complete"               "incomplete"            
#> [217] "missing interpretation" "complete"               "missing protocol"      
#> [220] "complete"               "complete"               "complete"              
#> [223] "incomplete"             "missing interpretation" "complete"              
#> [226] "complete"               "complete"               "missing interpretation"
#> [229] "complete"               "missing interpretation" "incomplete"            
#> [232] "complete"               "complete"               "complete"              
#> [235] "complete"               "complete"               "complete"              
#> [238] "complete"               "complete"               "complete"              
#> [241] "missing protocol"       "missing protocol"       "missing interpretation"
#> [244] "missing interpretation" "missing interpretation" "complete"              
#> [247] "complete"               "missing interpretation" "incomplete"            
#> [250] "complete"               "missing interpretation" "missing protocol"      
#> [253] "missing interpretation" "complete"               "complete"              
#> [256] "missing protocol"       "complete"               "complete"              
#> [259] "incomplete"             "missing interpretation" "complete"              
#> [262] "complete"               "missing protocol"       "incomplete"            
#> [265] "complete"               "missing protocol"       "complete"              
#> [268] "complete"               "missing protocol"       "complete"              
#> [271] "complete"               "complete"               "missing interpretation"
#> [274] "complete"               "complete"               "missing protocol"      
#> [277] "complete"               "complete"               "complete"              
#> [280] "complete"               "complete"               "missing interpretation"
#> [283] "complete"               "complete"               "complete"              
#> [286] "complete"               "missing protocol"       "complete"              
#> [289] "missing protocol"       "complete"               "complete"              
#> [292] "complete"               "complete"               "complete"              
#> [295] "missing interpretation" "complete"               "complete"              
#> [298] "complete"               "missing protocol"       "missing protocol"      
#> [301] "complete"               "complete"               "complete"              
#> [304] "complete"               "complete"               "complete"              
#> [307] "complete"               "missing interpretation" "missing interpretation"
#> [310] "complete"               "missing protocol"       "complete"              
#> [313] "complete"               "complete"               "missing protocol"      
#> [316] "complete"               "complete"               "complete"              
#> [319] "complete"               "missing interpretation" "complete"              
#> [322] "complete"               "incomplete"             "complete"              
#> [325] "complete"               "missing interpretation" "complete"              
#> [328] "complete"               "complete"               "complete"              
#> [331] "complete"               "complete"               "missing protocol"      
#> [334] "complete"               "complete"               "missing protocol"      
#> [337] "complete"               "complete"               "missing protocol"      
#> [340] "incomplete"             "missing interpretation" "missing interpretation"
#> [343] "complete"               "missing protocol"       "complete"              
#> [346] "complete"               "missing protocol"       "complete"              
#> [349] "complete"               "complete"               "missing interpretation"
#> [352] "missing interpretation" "complete"               "complete"              
#> [355] "complete"               "complete"               "missing interpretation"
#> [358] "complete"               "missing protocol"       "complete"              
#> [361] "missing interpretation" "complete"               "missing interpretation"
#> [364] "complete"               "missing protocol"       "complete"              
#> [367] "complete"               "complete"               "incomplete"            
#> [370] "complete"               "complete"               "complete"              
#> [373] "complete"               "missing interpretation" "complete"              
#> [376] "complete"               "complete"               "missing interpretation"
#> [379] "missing interpretation" "complete"               "complete"              
#> [382] "complete"               "complete"               "complete"              
#> [385] "incomplete"             "complete"               "missing protocol"      
#> [388] "incomplete"             "complete"               "complete"              
#> [391] "complete"               "complete"               "missing interpretation"
#> [394] "complete"               "complete"               "incomplete"            
#> [397] "complete"               "missing interpretation" "missing protocol"      
#> [400] "complete"               "missing interpretation" "complete"              
#> [403] "complete"               "complete"               "complete"              
#> [406] "complete"               "missing interpretation" "complete"              
#> [409] "complete"               "missing protocol"       "missing interpretation"
#> [412] "complete"               "complete"               "complete"              
#> [415] "complete"               "missing protocol"       "complete"              
#> [418] "complete"               "complete"               "missing interpretation"
#> [421] "complete"               "missing protocol"       "complete"              
#> [424] "complete"               "complete"               "complete"              
#> [427] "complete"               "complete"               "complete"              
#> [430] "complete"               "missing protocol"       "complete"              
#> [433] "complete"               "missing interpretation" "complete"              
#> [436] "complete"               "complete"               "complete"              
#> [439] "complete"               "complete"               "missing protocol"      
#> [442] "incomplete"             "missing protocol"       "complete"              
#> [445] "missing protocol"       "complete"               "complete"              
#> [448] "complete"               "complete"               "incomplete"            
#> [451] "missing protocol"       "missing protocol"       "missing interpretation"
#> [454] "complete"               "missing protocol"       "complete"              
#> [457] "complete"               "complete"               "complete"              
#> [460] "complete"               "missing interpretation" "missing protocol"      
#> [463] "complete"               "complete"               "missing interpretation"
#> [466] "complete"               "complete"               "missing interpretation"
#> [469] "incomplete"             "missing interpretation" "complete"              
#> [472] "complete"               "missing interpretation" "incomplete"            
#> [475] "complete"               "complete"               "missing interpretation"
#> [478] "complete"               "complete"               "complete"              
#> [481] "missing interpretation" "complete"               "incomplete"            
#> [484] "missing interpretation" "complete"               "incomplete"            
#> [487] "complete"               "missing interpretation" "missing protocol"      
#> [490] "missing protocol"       "complete"               "complete"              
#> [493] "complete"               "missing protocol"       "complete"              
#> [496] "incomplete"             "missing interpretation" "missing interpretation"
#> [499] "complete"               "missing protocol"

step_df <- get_step_average(capl_demo_data)

str(step_df)
#> 'data.frame':    500 obs. of  9 variables:
#>  $ day1        : num  NA NA 8457 8769 14169 ...
#>  $ day2        : num  14905 24750 NA 21077 15786 ...
#>  $ day3        : num  21972 NA 14130 NA 18022 ...
#>  $ day4        : num  28084 27369 14315 NA 6993 ...
#>  $ day5        : num  14858 21112 16880 11707 20917 ...
#>  $ day6        : num  17705 NA NA 12235 27766 ...
#>  $ day7        : num  11067 13540 12106 18795 15039 ...
#>  $ valid_days  : int  6 4 5 5 7 6 7 7 6 6 ...
#>  $ step_average: num  18098 21693 13178 14517 16956 ...

# Add the step average to the dataset
capl_demo_data$step_average <- step_df$step_average

capl_demo_data$step_average
#>   [1] 18098 21693 13178 14517 16956 15255 16964 11217 15484 16110 20592  9690
#>  [13] 13268 14984  8191 17137 17574 15004 17104 14797 14610 24677 16391 15780
#>  [25] 16702 18576 14723 16389 16886 15383 16193 16330 12529 15559 13823 16122
#>  [37] 19027 20663 21974 16912 13020 20361 16285 21868 15697 11545 10465 17299
#>  [49] 14989  9863 19244 22727 17715 13539 16811 19710 10736 16569 19995 13647
#>  [61] 18848 13814 10218 21350 14978 15590  6361 14599 22695 12641 17406 10669
#>  [73] 15582 13489 13568 15639 13953  7900 19802 14654 19570 18182 13025 14514
#>  [85] 10707 25060 20010 21873 11736 18536 14424 13681 14932 23005 20833 19984
#>  [97] 18067 16457 21822 19952 17070 15288 16932 19190 16497 10412  9214 21416
#> [109]    NA 16792 21003  8517 24588 20734 13038 10231 17390 14517 11564 12506
#> [121] 18186 20292 17081 13962 13002 15281  9442 16720 10978 11025 12416 17754
#> [133] 17656 10830 16926 20410 14165 13581 15660 10031 12806 20440 13859 12895
#> [145] 13131  9794 14935 18777 16560 21703 15542 11607 15735 12854 15492 16158
#> [157] 20797 16280 10846 13008 12519 21301 19390 12013 19271 11710 20024 15647
#> [169] 13470 15133 15455  6679 15250 11733 21197 17131 15377 16228 15514 17054
#> [181] 11054 14622 18215 22245 15154 19286 17874 19452 15051 15455 16223 10900
#> [193] 15504 10904 15651 15672 17107 13278 16124 11700 10986 12394  5526 17145
#> [205] 15458 21334 16975 13980 22788 13218 17619 15488 18055 17709 11221 20540
#> [217] 15558 14409 22929 15188 11765 16214 11653 20103 19882 24944 13224 10434
#> [229] 13530 19901 13603 21702 14626 19212 18186 15367 14699 12987 12979 17466
#> [241] 14087 11483 16421 12656 14614 21342 17563 21506 20663 19230  6054  2280
#> [253] 15275 21944 15956 18803 16381 11282 12670 22902 16621 21538 14090 15144
#> [265] 14745 13032 19488 13956 16619 14545 15343 11870 19157 14566 12099 14641
#> [277] 21261 12676 19716 15153 11536 12206 11616 17668 14000 20283 14048 14983
#> [289] 15818 26126 12244 13075 10264 21508 13663 15535 12026 12761 12248 18646
#> [301] 15459 13882 14996 17236 16931 15535 14902 16595 15692 14539 17792 10528
#> [313] 21894 13114 17564 11152 22355 17309 11579 19259 18003 14895 17952 20605
#> [325] 18228 10123 11284 13554 13303 18500 13068 13104 16568 17231 14496 18329
#> [337]  9947 20183 14487 11510 11294 16538 12374  9054 11935 17584 22263 21393
#> [349] 13270 20137 11032 19895  8748 14279 12489 19476 19589 18572 13854 16693
#> [361] 11491 18314  9778 19404 21197 23778 18640 14086 14594 20747  9159 15035
#> [373] 10229 17469 12440 20226 13583 12374 10885 15218 17900 16694 16970 14550
#> [385] 12258 17515 14217 11534 16298 19232 15553 21769 12932 18151 20086  9918
#> [397] 21949 15640 14784 19257 13335 18618 17632 18024 18093 13893 18123 16063
#> [409] 23877 11390 17165 22555 13149 14000 14632 15251 13901 13374 13730 16041
#> [421] 16543 17495  9958 14706  5880 22753  8383 13447 20485 24139 12936 18992
#> [433] 16957 14689 21986 17339 12221 16741 21873 13492 18786 19947  6965 18782
#> [445] 15646 16662 17381 18823 21679 11727 14030 14564 22617 17374  9160 17795
#> [457] 18040 17581 21522 18729 12886 23789 18247 13884 14097 10900 10825  8290
#> [469] 19582 15074 11479 17604 20390 18418 16515 10071 10902 14446 14509 13289
#> [481] 18030 18891 16851 10817 13964 22037 20584 13780 12073 15555 13787  8145
#> [493] 12491 19809 13038 10937 17173 16145 14578 21167

wear_time1 <- get_pedometer_wear_time(
  time_on = capl_demo_data$time_on1,
  time_off = capl_demo_data$time_off1,
  non_wear_time = capl_demo_data$non_wear_time1
)

wear_time1
#>   [1] 16.37    NA 14.33 15.37 14.12 14.67 17.50 17.83 15.13    NA 13.15 17.42
#>  [13] 14.88    NA 14.75 14.13 17.68 13.30 15.38 13.07 16.67 13.88 15.32 17.53
#>  [25] 15.00 14.67    NA 16.35    NA 13.68 15.45 15.65 14.85    NA 16.67    NA
#>  [37] 17.80 16.90 16.85 13.78 15.03 12.85 14.25 11.37 14.52 16.33 16.67 16.33
#>  [49] 15.08 15.83 13.90 17.23 11.72    NA 15.80 16.48 12.97 13.22 13.37 13.92
#>  [61] 14.32 17.62 16.62 11.60 13.12 18.40 14.20    NA 12.12 15.93 14.75 14.23
#>  [73] 17.40 12.92 14.63 17.65 14.48 14.25    NA 16.42 17.03 14.58 15.33 16.82
#>  [85] 12.95 14.45 16.77    NA 12.15 17.43    NA 16.97 18.52    NA 17.42 15.60
#>  [97] 17.65 13.80    NA 13.63 13.83 11.72 16.85 12.80 14.77 16.88 14.93 16.60
#> [109]    NA 14.38 16.12 15.15 12.60 16.98 13.72 12.50 14.80 13.23 16.27    NA
#> [121] 14.88 12.07    NA 15.67 14.38 18.03 14.98    NA    NA    NA    NA 14.70
#> [133] 13.38 13.57 17.57    NA 14.62 15.75 15.50 12.35 14.82 13.53 15.78 12.68
#> [145] 14.95 15.60 15.73 13.82    NA    NA 18.05 16.48 13.37 11.93    NA 13.67
#> [157] 13.98 14.73    NA 13.88 13.10 14.03 17.20 13.97 15.43 17.90    NA 13.25
#> [169] 15.82 11.52 14.62 14.43 15.33 12.88 14.02 16.43 15.85 14.37 13.20 15.48
#> [181] 17.72 13.87 14.57 15.15 16.58 11.85    NA 15.72    NA 11.60 16.22 17.57
#> [193] 15.50 17.75 15.32 16.37 11.05 16.40 15.63 14.50    NA    NA    NA 15.25
#> [205]    NA 17.03 15.15 14.87 15.03 15.58 17.18 15.73 12.63 11.20 17.53 16.60
#> [217] 18.72 15.95 14.08    NA 17.73 14.37    NA 12.77 14.80 13.78 16.18 16.10
#> [229] 11.00    NA 16.48    NA 15.83 14.18 13.43 14.17 15.78    NA 14.28 18.58
#> [241] 17.18    NA    NA 15.50 15.15 17.73 13.43 15.07    NA 14.60 13.42    NA
#> [253] 13.33    NA 13.50 13.13 14.95 14.52    NA    NA 11.98    NA 12.87 12.87
#> [265] 14.88 15.83    NA 13.90    NA 16.32 13.33 11.70 15.10 16.12 12.23    NA
#> [277] 16.30 14.52 16.98 12.57 14.53 14.35 16.87    NA    NA    NA 13.85    NA
#> [289]    NA 14.98 14.12 16.23 13.80 16.85 16.70 14.40 14.28 15.73 13.00    NA
#> [301] 17.08 16.78 11.98 16.72    NA 12.08 16.02 14.35 16.63 15.83 16.40 15.57
#> [313]    NA 11.22 14.68 14.55 13.68    NA 16.78 15.90 15.50 14.38 16.48 15.33
#> [325] 14.80    NA 14.60 14.50    NA 17.48 12.62 16.80 14.27 13.48 14.77 16.48
#> [337] 11.30 17.17    NA 16.92 15.98 15.75 12.73 15.97 14.23 13.87 14.08 14.63
#> [349] 12.32    NA 17.48 16.18 15.20    NA 15.38 17.57 13.52 15.20 16.35 17.00
#> [361] 14.33 16.78    NA    NA    NA 15.77 12.68 16.65 14.23    NA 18.70 17.55
#> [373]    NA 17.08    NA 16.82 13.53 12.95 16.58 15.92    NA 14.65 12.93 16.67
#> [385]    NA 12.92    NA 13.28 12.17 17.73 14.87 17.62 16.97 15.18 14.02 16.58
#> [397] 12.98 14.98 12.38    NA 12.53 15.05 12.85 12.68 18.63    NA    NA 14.55
#> [409]    NA 13.07 12.93 11.20    NA 17.72 16.55 13.75 17.17 16.50    NA 14.92
#> [421] 14.77 15.90 11.30 12.18 17.85    NA    NA    NA 15.92 14.42 16.80 15.10
#> [433] 12.40 15.55 14.67 14.52 12.18 14.17    NA 16.95 15.73    NA 17.12 11.12
#> [445]    NA    NA 12.38 13.60 17.98 16.13 12.97    NA    NA    NA 11.87 17.23
#> [457]    NA    NA 13.72    NA 15.18 11.52 15.80 15.43 18.13    NA 15.57 15.47
#> [469] 16.27    NA    NA 16.00    NA 12.88 15.53 14.67 12.35 17.17 12.88    NA
#> [481] 15.72 17.53 17.30 12.12    NA 13.93 16.88 16.00 16.78    NA 17.48    NA
#> [493]    NA 14.40 17.60    NA 15.53 14.42 16.65 15.70

valid_steps1 <- validate_steps(
  steps = capl_demo_data$steps1,
  wear_time = wear_time1
)

valid_steps1
#>   [1]    NA    NA  8457  8769 14169  9610 29459 17112    NA    NA 17248  3355
#>  [13] 24598    NA  4461  6802 22886 11359  4443 16024 29259 27647 16084 12621
#>  [25] 12268  7801    NA 27912    NA  5187 28325  5421  2613    NA  3454    NA
#>  [37] 18392 18727    NA 14350 19843 28909  4376 25920 29033 12001 17053 28658
#>  [49]  2654  3741  9344 14136 24615    NA 23746 18382 16108  9054 10055 27796
#>  [61] 17747  1763 12925 22616 15816 27087  7309    NA 17448 24552 20614 22613
#>  [73]  9529 16273 23094 18946  4248 14276    NA  8050 27450 26960 23030  9955
#>  [85] 10805 23610 11304    NA 23266 23257    NA 11618 25138    NA 20026  6435
#>  [97] 12730 21297    NA 21832 11803 29608  9771 29072 24700 10064 20255  2574
#> [109]    NA  8968 25059 16861 17717  2933  8631 10052 25598 22404  5771    NA
#> [121] 19275 12241    NA  9876 12956 14995 15330    NA    NA    NA    NA 29222
#> [133] 25634  2212 22617    NA 11412 15123 15144  5547    NA 19113 13972  7991
#> [145]    NA 10375  1487  4610    NA    NA 24894 28248 10492 27681    NA 26918
#> [157] 22202 19509    NA  4831 21458 22153  1277  9399 12211  1709    NA 15369
#> [169]  4175 16306 27112  4078 20565 24711 16097    NA  2416 24568  3387 22382
#> [181]  2571  8689 27157 23069  9768 24245    NA 14105    NA 18393 27233  2433
#> [193] 25977 13148 23821 17737  9255  4616    NA 12644    NA    NA    NA 11922
#> [205]    NA 24112 22514 17337 28116 11817 24501 11422 27920 29562 15346 18906
#> [217] 24028  6226 19006    NA  8578  2110    NA 26168 20885 29012 12072  4059
#> [229] 10583    NA 14613    NA  2518  8609 18923 29152  1335    NA  6236 21048
#> [241] 14819    NA    NA 20525  1524 26867 29430 29949    NA 24522  1407    NA
#> [253]  3091    NA 15889 20661 20235 11786    NA    NA 17704    NA  5859 16473
#> [265] 19092 16722    NA  1025    NA 11434  1645  8725 10888 19349  2579    NA
#> [277] 29827 23035  2570  4377 12958 13633  7419    NA    NA    NA  6789    NA
#> [289]    NA 25115  9296  9582  3111  5645 12385    NA 18477 15522 19293    NA
#> [301] 24930    NA 23988 10699    NA 17989  4296  9965 24623  9071 13743 11185
#> [313]    NA 13911 27755 13981 21713    NA  1790 23566 11741 12946  1162 11789
#> [325]  7385    NA 25919 11325    NA 23274  6820 16954 26854 13293 11647 25737
#> [337]  1360  2619    NA 19230  5023  6494 26222  8219 24639    NA 22748    NA
#> [349]  8809    NA  8962 18175  3237    NA 14791 23667  7614 29533  3897 22083
#> [361]  5798 12271    NA    NA    NA 25454 26928  7478 17362    NA 15231 12015
#> [373]    NA 23843    NA 21514 14268 14929 12130 18649    NA 20391 17395    NA
#> [385]    NA 19777    NA 22014  7361 16064 11599 10858 13855 24319 27075  3224
#> [397] 18233 17462  2574    NA 13808 18686 27388 29431  4089    NA    NA 15614
#> [409]    NA  4991 12633 22834    NA  8554 22825 18769 18711 12104    NA 20605
#> [421] 24985  6319  7926 12298  1281    NA    NA    NA 19007 24157 19259 11413
#> [433] 22736 29065 17238 25556 18052 27474    NA 16903 10419    NA  1678 20988
#> [445]    NA    NA 10910 29527 24740 26121 14034    NA    NA    NA  6455 14804
#> [457]    NA    NA 29519    NA 24277 22596 11441 23665  7938    NA    NA  4701
#> [469] 23842    NA    NA  3756    NA  9932  2995  3342  1541 25320 28031    NA
#> [481]  3022 26496 18121 16197    NA 27060 28411 26595 26752    NA 10457    NA
#> [493]    NA 27567 27648    NA 17103  5439 22349 28614

capl_demo_data$step_score <- get_step_score(capl_demo_data$step_average)

capl_demo_data$step_score
#>   [1] 25 25 19 21 23 22 23 15 22 23 25 12 19 21  9 24 24 22 24 21 21 25 23 22 23
#>  [26] 25 21 23 23 22 23 23 18 22 20 23 25 25 25 23 19 25 23 25 22 16 13 24 21 12
#>  [51] 25 25 24 20 23 25 14 23 25 20 25 20 13 25 21 22  5 21 25 18 24 14 22 19 20
#>  [76] 22 20  8 25 21 25 25 19 21 14 25 25 25 16 25 21 20 21 25 25 25 25 23 25 25
#> [101] 24 22 23 25 23 13 11 25 NA 23 25 10 25 25 19 13 24 21 16 18 25 25 24 20 19
#> [126] 22 11 23 14 15 17 24 24 14 23 25 21 20 22 13 18 25 20 18 19 12 21 25 23 25
#> [151] 22 16 22 18 22 23 25 23 14 19 18 25 25 17 25 16 25 22 19 22 22  6 22 16 25
#> [176] 24 22 23 22 24 15 21 25 25 22 25 24 25 22 22 23 14 22 14 22 22 24 19 23 16
#> [201] 14 17  4 24 22 25 23 20 25 19 24 22 25 24 15 25 22 21 25 22 16 23 16 25 25
#> [226] 25 19 13 20 25 20 25 21 25 25 22 21 18 18 24 21 15 23 18 21 25 24 25 25 25
#> [251]  5  1 22 25 22 25 23 15 18 25 23 25 21 22 21 19 25 20 23 21 22 16 25 21 17
#> [276] 21 25 18 25 22 16 17 16 24 21 25 21 21 22 25 17 19 13 25 20 22 17 18 17 25
#> [301] 22 20 21 24 23 22 21 23 22 21 24 14 25 19 24 15 25 24 16 25 25 21 24 25 25
#> [326] 13 15 20 19 25 19 19 23 24 21 25 12 25 21 16 15 23 17 11 16 24 25 25 19 25
#> [351] 15 25 10 21 17 25 25 25 20 23 15 25 12 25 25 25 25 21 21 25 11 22 13 24 17
#> [376] 25 20 17 14 22 24 23 23 21 17 24 21 16 23 25 22 25 18 25 25 12 25 22 21 25
#> [401] 19 25 24 25 25 20 25 23 25 15 24 25 19 21 21 22 20 19 20 23 23 24 12 21  4
#> [426] 25  9 19 25 25 18 25 23 21 25 24 17 23 25 19 25 25  6 25 22 23 24 25 25 16
#> [451] 21 21 25 24 11 24 25 24 25 25 18 25 25 20 21 14 14  9 25 22 15 24 25 25 23
#> [476] 13 14 21 21 19 25 25 23 14 20 25 25 20 17 22 20  9 17 25 19 14 24 23 21 25

capl_demo_data$self_report_pa_score <- get_self_report_pa_score(capl_demo_data$self_report_pa)

capl_demo_data$self_report_pa_score
#>   [1] NA  1  1  3  2  4 NA  5  5  5 NA  3  1  4  5  5  0  5  5  5  5  5  5 NA  5
#>  [26]  3  4  5  4  1  2  0  5  5  5  5  4  3  4  2  4  5  5  5  2  5  5 NA  5  5
#>  [51]  1  5  3  1  0  5  3  2  5  1  2  0  5 NA  3  5  4  0  3 NA  5  4  1 NA  0
#>  [76]  5  0  2  0 NA  5  5  1  1  3  3  5  2  5  4  5  5  4  3  1  4  2  1  5  5
#> [101]  5  2  1  4  3  2  5  5  3  2  2  5  5  5  2 NA  5  1  5  5 NA  5  5  1  0
#> [126]  4  5  4  0  0  5  4  5  0  5  5  5  5  2  5  5  5  2  5  1  3  5  5 NA  5
#> [151]  5  0  2  1  0  5  3  3  2  0  5  1  5  4  0  3  5  5  3  5  5  5  0  5  4
#> [176] NA  5  5  4  5  3  4  3  0  2  1  5  3  0  5  1  5  5  5  5  0  2  3  0  1
#> [201]  0  1  5  5  5  2  5  3  4  2  5  5  5  5  2  5  5  1  0  1  5  4  1  5  3
#> [226]  4  3  5  0  5  2  5  0 NA  5  3  3 NA  2  0  4  5  5  5  5  4  0  3  3  2
#> [251]  4  5  5  5  5  3  0  4  5  1  5  0  0  5  1  1  1  3  4  0  3  2  4  0  4
#> [276]  5  0  5  3  2  3  3  5  5  3  5  4  3  3  0  4 NA  5  2  5  3  5  5  1  2
#> [301]  5  5  2  5  5 NA  5  5 NA  5  5  4  1  5  3  5  0  5  0  3  2  0  3  0  0
#> [326]  3  1  4  5  5  1  5  5  5  5  1  3  0  1  5  4  5  3  0  3  0  4  1 NA  2
#> [351]  1  0  5  5  5  1  1  3  2  2  5  4  0  3  5  5  3  5  5  5  5  5  1  5  5
#> [376]  5  2 NA  4  0  5  1  2  5  5  5  5  2  1  5  0  5  2  5  5  5  0 NA  5  5
#> [401]  0  4  5  5  3  0  4  1  5 NA  2 NA  1  1  3  5  5  2  3  5  5  5  4  0  0
#> [426]  5  4  4  5  3  5 NA  0  1  5  2  4  1  5  4  5  0  3  5 NA  4  3  4  4  4
#> [451]  0  3 NA  5  5  3  1  5  5  5  5  1  3  2  5  0  5  1  0  2  0  2  5  5  3
#> [476]  1  5  5  1  2  4  5  4  5  3  1  2  5  5  2  1  5  5  3  5  5 NA  0  2 NA

capl_demo_data$db_score <- get_db_score(
  step_score = capl_demo_data$step_score,
  self_report_pa_score = capl_demo_data$self_report_pa_score
)

capl_demo_data$db_score
#>   [1] NA 26 20 24 25 26 NA 20 27 28 NA 15 20 25 14 29 24 27 29 26 26 30 28 NA 28
#>  [26] 28 25 28 27 23 25 23 23 27 25 28 29 28 29 25 23 30 28 30 24 21 18 NA 26 17
#>  [51] 26 30 27 21 23 30 17 25 30 21 27 20 18 NA 24 27  9 21 28 NA 29 18 23 NA 20
#>  [76] 27 20 10 25 NA 30 30 20 22 17 28 30 27 21 29 26 25 25 28 26 29 27 24 30 30
#> [101] 29 24 24 29 26 15 16 30 NA 25 27 15 30 30 21 NA 29 22 21 23 NA 30 29 21 19
#> [126] 26 16 27 14 15 22 28 29 14 28 30 26 25 24 18 23 30 22 23 20 15 26 30 NA 30
#> [151] 27 16 24 19 22 28 28 26 16 19 23 26 30 21 25 19 30 27 22 27 27 11 22 21 29
#> [176] NA 27 28 26 29 18 25 28 25 24 26 29 28 22 27 24 19 27 19 27 22 26 22 23 17
#> [201] 14 18  9 29 27 27 28 23 29 21 29 27 30 29 17 30 27 22 25 23 21 27 17 30 28
#> [226] 29 22 18 20 30 22 30 21 NA 30 25 24 NA 20 24 25 20 28 23 26 29 24 28 28 27
#> [251]  9  6 27 30 27 28 23 19 23 26 28 25 21 27 22 20 26 23 27 21 25 18 29 21 21
#> [276] 26 25 23 28 24 19 20 21 29 24 30 25 24 25 25 21 NA 18 27 25 25 22 23 18 27
#> [301] 27 25 23 29 28 NA 26 28 NA 26 29 18 26 24 27 20 25 29 16 28 27 21 27 25 25
#> [326] 16 16 24 24 30 20 24 28 29 26 26 15 25 22 21 19 28 20 11 19 24 29 26 NA 27
#> [351] 16 25 15 26 22 26 26 28 22 25 20 29 12 28 30 30 28 26 26 30 16 27 14 29 22
#> [376] 30 22 NA 18 22 29 24 25 26 22 29 26 18 24 30 22 30 20 30 30 17 25 NA 26 30
#> [401] 19 29 29 30 28 20 29 24 30 NA 26 NA 20 22 24 27 25 21 23 28 28 29 16 21  4
#> [426] 30 13 23 30 28 23 NA 23 22 30 26 21 24 30 23 30 25  9 30 NA 27 27 29 29 20
#> [451] 21 24 NA 29 16 27 26 29 30 30 23 26 28 22 26 14 19 10 25 24 15 26 30 30 26
#> [476] 14 19 26 22 21 29 30 27 19 23 26 27 25 22 24 21 14 22 28 24 19 NA 23 23 NA

capl_demo_data$db_interpretation <- get_capl_interpretation(
  age = capl_demo_data$age,
  gender = capl_demo_data$gender,
  score = capl_demo_data$db_score,
  protocol = "db"
)

capl_demo_data$db_interpretation
#>   [1] NA            "achieving"   "progressing" "achieving"   "achieving"  
#>   [6] "achieving"   NA            "progressing" "excelling"   "excelling"  
#>  [11] NA            "progressing" NA            NA            "progressing"
#>  [16] "excelling"   "achieving"   "excelling"   "excelling"   "excelling"  
#>  [21] "achieving"   "excelling"   "excelling"   NA            NA           
#>  [26] NA            "excelling"   NA            "excelling"   "achieving"  
#>  [31] "achieving"   "achieving"   "achieving"   NA            "excelling"  
#>  [36] NA            NA            "excelling"   "excelling"   "achieving"  
#>  [41] "achieving"   "excelling"   "excelling"   "excelling"   "achieving"  
#>  [46] "progressing" "progressing" NA            NA            NA           
#>  [51] "achieving"   "excelling"   "excelling"   "progressing" "achieving"  
#>  [56] "excelling"   "progressing" "achieving"   "excelling"   "achieving"  
#>  [61] "excelling"   NA            "progressing" NA            "achieving"  
#>  [66] NA            "progressing" "progressing" NA            NA           
#>  [71] "excelling"   "progressing" "achieving"   NA            NA           
#>  [76] "excelling"   NA            "beginning"   "achieving"   NA           
#>  [81] NA            "excelling"   "progressing" "progressing" "progressing"
#>  [86] NA            "excelling"   "excelling"   "progressing" "excelling"  
#>  [91] "achieving"   "achieving"   NA            NA            NA           
#>  [96] "excelling"   NA            "achieving"   "excelling"   "excelling"  
#> [101] "excelling"   "achieving"   "achieving"   NA            "achieving"  
#> [106] "progressing" "progressing" "excelling"   NA            "achieving"  
#> [111] "excelling"   "progressing" "excelling"   NA            "progressing"
#> [116] NA            "excelling"   "progressing" "progressing" "achieving"  
#> [121] NA            "excelling"   "excelling"   "progressing" "progressing"
#> [126] NA            "progressing" NA            NA            "progressing"
#> [131] "progressing" NA            "excelling"   "progressing" "excelling"  
#> [136] "excelling"   "achieving"   "achieving"   "achieving"   "progressing"
#> [141] "achieving"   "excelling"   "progressing" "achieving"   "progressing"
#> [146] "progressing" NA            NA            NA            "excelling"  
#> [151] "excelling"   "progressing" "achieving"   "progressing" "achieving"  
#> [156] "excelling"   "excelling"   "excelling"   "progressing" "progressing"
#> [161] NA            "achieving"   "excelling"   "progressing" NA           
#> [166] "progressing" "excelling"   NA            "progressing" "excelling"  
#> [171] "excelling"   "progressing" "progressing" "achieving"   "excelling"  
#> [176] NA            "excelling"   NA            NA            "excelling"  
#> [181] "progressing" NA            "excelling"   NA            "achieving"  
#> [186] "achieving"   "excelling"   "excelling"   "achieving"   NA           
#> [191] "achieving"   "progressing" "excelling"   "progressing" NA           
#> [196] "achieving"   "achieving"   "progressing" "achieving"   NA           
#> [201] "progressing" "progressing" "progressing" "excelling"   "excelling"  
#> [206] "excelling"   "excelling"   "achieving"   "excelling"   NA           
#> [211] NA            "excelling"   "excelling"   "excelling"   "progressing"
#> [216] "excelling"   NA            "achieving"   "achieving"   "achieving"  
#> [221] "achieving"   "excelling"   NA            NA            "excelling"  
#> [226] "excelling"   "achieving"   NA            "progressing" NA           
#> [231] "progressing" "excelling"   "progressing" NA            "excelling"  
#> [236] "achieving"   "achieving"   NA            "progressing" "achieving"  
#> [241] "achieving"   "progressing" NA            NA            NA           
#> [246] "excelling"   "achieving"   NA            NA            "excelling"  
#> [251] NA            "beginning"   NA            "excelling"   "excelling"  
#> [256] "excelling"   "achieving"   "progressing" "achieving"   NA           
#> [261] "excelling"   "achieving"   "achieving"   "excelling"   "achieving"  
#> [266] "progressing" "achieving"   "achieving"   "excelling"   "progressing"
#> [271] "achieving"   "progressing" NA            "achieving"   "achieving"  
#> [276] "achieving"   "achieving"   "achieving"   "excelling"   "achieving"  
#> [281] "progressing" NA            "achieving"   "excelling"   "achieving"  
#> [286] "excelling"   "achieving"   "achieving"   "excelling"   "excelling"  
#> [291] "achieving"   NA            "progressing" "excelling"   NA           
#> [296] "achieving"   "achieving"   "achieving"   "progressing" "excelling"  
#> [301] "excelling"   "achieving"   "achieving"   "excelling"   "excelling"  
#> [306] NA            "achieving"   NA            NA            "achieving"  
#> [311] "excelling"   "progressing" "excelling"   "achieving"   "excelling"  
#> [316] "progressing" "excelling"   "excelling"   "progressing" NA           
#> [321] "excelling"   "progressing" "excelling"   "achieving"   "achieving"  
#> [326] NA            "progressing" "achieving"   "achieving"   "excelling"  
#> [331] "progressing" "achieving"   "excelling"   "excelling"   "achieving"  
#> [336] "excelling"   "progressing" "achieving"   "achieving"   "progressing"
#> [341] NA            NA            "progressing" "progressing" "progressing"
#> [346] "achieving"   "excelling"   "excelling"   NA            "excelling"  
#> [351] NA            NA            "progressing" "achieving"   "progressing"
#> [356] "excelling"   NA            "excelling"   "achieving"   "achieving"  
#> [361] NA            "excelling"   NA            "excelling"   "excelling"  
#> [366] "excelling"   "excelling"   "achieving"   "achieving"   "excelling"  
#> [371] "progressing" "excelling"   "progressing" NA            "achieving"  
#> [376] "excelling"   "achieving"   NA            NA            "progressing"
#> [381] "excelling"   "achieving"   "achieving"   "achieving"   "achieving"  
#> [386] "excelling"   "achieving"   NA            "achieving"   "excelling"  
#> [391] "achieving"   "excelling"   NA            "excelling"   "excelling"  
#> [396] "progressing" "achieving"   NA            "achieving"   "excelling"  
#> [401] NA            "excelling"   "excelling"   "excelling"   "excelling"  
#> [406] "progressing" NA            "achieving"   "excelling"   NA           
#> [411] NA            NA            "progressing" "progressing" "achieving"  
#> [416] "excelling"   "achieving"   "progressing" "achieving"   NA           
#> [421] "excelling"   "excelling"   "progressing" "progressing" "beginning"  
#> [426] "excelling"   "progressing" "achieving"   "excelling"   "excelling"  
#> [431] "achieving"   NA            "achieving"   NA            "excelling"  
#> [436] "achieving"   "progressing" "achieving"   "excelling"   "achieving"  
#> [441] "excelling"   "achieving"   "beginning"   "excelling"   NA           
#> [446] "excelling"   "excelling"   "excelling"   "excelling"   NA           
#> [451] "progressing" "achieving"   NA            "excelling"   "progressing"
#> [456] "excelling"   "excelling"   "excelling"   "excelling"   "excelling"  
#> [461] NA            "achieving"   "excelling"   "progressing" NA           
#> [466] "progressing" "progressing" NA            NA            NA           
#> [471] "progressing" "excelling"   NA            "excelling"   "achieving"  
#> [476] "progressing" NA            "achieving"   "progressing" "progressing"
#> [481] NA            "excelling"   "excelling"   NA            "achieving"  
#> [486] NA            "excelling"   NA            "progressing" "achieving"  
#> [491] "progressing" "progressing" "progressing" "excelling"   "achieving"  
#> [496] "progressing" NA            NA            "achieving"   NA

capl_demo_data$db_status <- get_capl_domain_status(
  x = capl_demo_data,
  domain = "db"
)

capl_demo_data$db_status
#>   [1] "incomplete"             "complete"               "complete"              
#>   [4] "complete"               "complete"               "complete"              
#>   [7] "incomplete"             "complete"               "complete"              
#>  [10] "complete"               "incomplete"             "complete"              
#>  [13] "missing interpretation" "missing interpretation" "complete"              
#>  [16] "complete"               "complete"               "complete"              
#>  [19] "complete"               "complete"               "complete"              
#>  [22] "complete"               "complete"               "incomplete"            
#>  [25] "missing interpretation" "missing interpretation" "complete"              
#>  [28] "missing interpretation" "complete"               "complete"              
#>  [31] "complete"               "complete"               "complete"              
#>  [34] "missing interpretation" "complete"               "missing interpretation"
#>  [37] "missing interpretation" "complete"               "complete"              
#>  [40] "complete"               "complete"               "complete"              
#>  [43] "complete"               "complete"               "complete"              
#>  [46] "complete"               "complete"               "incomplete"            
#>  [49] "missing interpretation" "missing interpretation" "complete"              
#>  [52] "complete"               "complete"               "complete"              
#>  [55] "complete"               "complete"               "complete"              
#>  [58] "complete"               "complete"               "complete"              
#>  [61] "complete"               "missing interpretation" "complete"              
#>  [64] "incomplete"             "complete"               "missing interpretation"
#>  [67] "complete"               "complete"               "missing interpretation"
#>  [70] "incomplete"             "complete"               "complete"              
#>  [73] "complete"               "incomplete"             "missing interpretation"
#>  [76] "complete"               "missing interpretation" "complete"              
#>  [79] "complete"               "incomplete"             "missing interpretation"
#>  [82] "complete"               "complete"               "complete"              
#>  [85] "complete"               "missing interpretation" "complete"              
#>  [88] "complete"               "complete"               "complete"              
#>  [91] "complete"               "complete"               "missing interpretation"
#>  [94] "missing interpretation" "missing interpretation" "complete"              
#>  [97] "missing interpretation" "complete"               "complete"              
#> [100] "complete"               "complete"               "complete"              
#> [103] "complete"               "missing interpretation" "complete"              
#> [106] "complete"               "complete"               "complete"              
#> [109] "incomplete"             "complete"               "complete"              
#> [112] "complete"               "complete"               "missing interpretation"
#> [115] "complete"               "incomplete"             "complete"              
#> [118] "complete"               "complete"               "complete"              
#> [121] "incomplete"             "complete"               "complete"              
#> [124] "complete"               "complete"               "missing interpretation"
#> [127] "complete"               "missing interpretation" "missing interpretation"
#> [130] "complete"               "complete"               "missing interpretation"
#> [133] "complete"               "complete"               "complete"              
#> [136] "complete"               "complete"               "complete"              
#> [139] "complete"               "complete"               "complete"              
#> [142] "complete"               "complete"               "complete"              
#> [145] "complete"               "complete"               "missing interpretation"
#> [148] "missing interpretation" "incomplete"             "complete"              
#> [151] "complete"               "complete"               "complete"              
#> [154] "complete"               "complete"               "complete"              
#> [157] "complete"               "complete"               "complete"              
#> [160] "complete"               "missing interpretation" "complete"              
#> [163] "complete"               "complete"               "missing interpretation"
#> [166] "complete"               "complete"               "missing interpretation"
#> [169] "complete"               "complete"               "complete"              
#> [172] "complete"               "complete"               "complete"              
#> [175] "complete"               "incomplete"             "complete"              
#> [178] "missing interpretation" "missing interpretation" "complete"              
#> [181] "complete"               "missing interpretation" "complete"              
#> [184] "missing interpretation" "complete"               "complete"              
#> [187] "complete"               "complete"               "complete"              
#> [190] "missing interpretation" "complete"               "complete"              
#> [193] "complete"               "complete"               "missing interpretation"
#> [196] "complete"               "complete"               "complete"              
#> [199] "complete"               "missing interpretation" "complete"              
#> [202] "complete"               "complete"               "complete"              
#> [205] "complete"               "complete"               "complete"              
#> [208] "complete"               "complete"               "missing interpretation"
#> [211] "missing interpretation" "complete"               "complete"              
#> [214] "complete"               "complete"               "complete"              
#> [217] "missing interpretation" "complete"               "complete"              
#> [220] "complete"               "complete"               "complete"              
#> [223] "missing interpretation" "missing interpretation" "complete"              
#> [226] "complete"               "complete"               "missing interpretation"
#> [229] "complete"               "missing interpretation" "complete"              
#> [232] "complete"               "complete"               "incomplete"            
#> [235] "complete"               "complete"               "complete"              
#> [238] "incomplete"             "complete"               "complete"              
#> [241] "complete"               "complete"               "missing interpretation"
#> [244] "missing interpretation" "missing interpretation" "complete"              
#> [247] "complete"               "missing interpretation" "missing interpretation"
#> [250] "complete"               "missing interpretation" "complete"              
#> [253] "missing interpretation" "complete"               "complete"              
#> [256] "complete"               "complete"               "complete"              
#> [259] "complete"               "missing interpretation" "complete"              
#> [262] "complete"               "complete"               "complete"              
#> [265] "complete"               "complete"               "complete"              
#> [268] "complete"               "complete"               "complete"              
#> [271] "complete"               "complete"               "missing interpretation"
#> [274] "complete"               "complete"               "complete"              
#> [277] "complete"               "complete"               "complete"              
#> [280] "complete"               "complete"               "missing interpretation"
#> [283] "complete"               "complete"               "complete"              
#> [286] "complete"               "complete"               "complete"              
#> [289] "complete"               "complete"               "complete"              
#> [292] "incomplete"             "complete"               "complete"              
#> [295] "missing interpretation" "complete"               "complete"              
#> [298] "complete"               "complete"               "complete"              
#> [301] "complete"               "complete"               "complete"              
#> [304] "complete"               "complete"               "incomplete"            
#> [307] "complete"               "missing interpretation" "incomplete"            
#> [310] "complete"               "complete"               "complete"              
#> [313] "complete"               "complete"               "complete"              
#> [316] "complete"               "complete"               "complete"              
#> [319] "complete"               "missing interpretation" "complete"              
#> [322] "complete"               "complete"               "complete"              
#> [325] "complete"               "missing interpretation" "complete"              
#> [328] "complete"               "complete"               "complete"              
#> [331] "complete"               "complete"               "complete"              
#> [334] "complete"               "complete"               "complete"              
#> [337] "complete"               "complete"               "complete"              
#> [340] "complete"               "missing interpretation" "missing interpretation"
#> [343] "complete"               "complete"               "complete"              
#> [346] "complete"               "complete"               "complete"              
#> [349] "incomplete"             "complete"               "missing interpretation"
#> [352] "missing interpretation" "complete"               "complete"              
#> [355] "complete"               "complete"               "missing interpretation"
#> [358] "complete"               "complete"               "complete"              
#> [361] "missing interpretation" "complete"               "missing interpretation"
#> [364] "complete"               "complete"               "complete"              
#> [367] "complete"               "complete"               "complete"              
#> [370] "complete"               "complete"               "complete"              
#> [373] "complete"               "missing interpretation" "complete"              
#> [376] "complete"               "complete"               "incomplete"            
#> [379] "missing interpretation" "complete"               "complete"              
#> [382] "complete"               "complete"               "complete"              
#> [385] "complete"               "complete"               "complete"              
#> [388] "missing interpretation" "complete"               "complete"              
#> [391] "complete"               "complete"               "missing interpretation"
#> [394] "complete"               "complete"               "complete"              
#> [397] "complete"               "incomplete"             "complete"              
#> [400] "complete"               "missing interpretation" "complete"              
#> [403] "complete"               "complete"               "complete"              
#> [406] "complete"               "missing interpretation" "complete"              
#> [409] "complete"               "incomplete"             "missing interpretation"
#> [412] "incomplete"             "complete"               "complete"              
#> [415] "complete"               "complete"               "complete"              
#> [418] "complete"               "complete"               "missing interpretation"
#> [421] "complete"               "complete"               "complete"              
#> [424] "complete"               "complete"               "complete"              
#> [427] "complete"               "complete"               "complete"              
#> [430] "complete"               "complete"               "incomplete"            
#> [433] "complete"               "missing interpretation" "complete"              
#> [436] "complete"               "complete"               "complete"              
#> [439] "complete"               "complete"               "complete"              
#> [442] "complete"               "complete"               "complete"              
#> [445] "incomplete"             "complete"               "complete"              
#> [448] "complete"               "complete"               "missing interpretation"
#> [451] "complete"               "complete"               "incomplete"            
#> [454] "complete"               "complete"               "complete"              
#> [457] "complete"               "complete"               "complete"              
#> [460] "complete"               "missing interpretation" "complete"              
#> [463] "complete"               "complete"               "missing interpretation"
#> [466] "complete"               "complete"               "missing interpretation"
#> [469] "missing interpretation" "missing interpretation" "complete"              
#> [472] "complete"               "missing interpretation" "complete"              
#> [475] "complete"               "complete"               "missing interpretation"
#> [478] "complete"               "complete"               "complete"              
#> [481] "missing interpretation" "complete"               "complete"              
#> [484] "missing interpretation" "complete"               "missing interpretation"
#> [487] "complete"               "missing interpretation" "complete"              
#> [490] "complete"               "complete"               "complete"              
#> [493] "complete"               "complete"               "complete"              
#> [496] "complete"               "incomplete"             "missing interpretation"
#> [499] "complete"               "incomplete"

capl_demo_data$predilection_score <- get_predilection_score(
  csappa1 = capl_demo_data$csappa1,
  csappa3 = capl_demo_data$csappa3,
  csappa5 = capl_demo_data$csappa5
)

capl_demo_data$predilection_score
#>   [1] 3.6 4.9 5.5 3.0  NA 3.0 6.2 4.9 4.8 4.9 3.0 3.0 5.6 4.9 5.5 5.5 4.9 4.3
#>  [19] 5.6 3.6 4.2 3.6 6.1 3.6 4.3 4.8 5.6 3.0 4.3 4.3 6.1 4.9 6.2 3.6 6.8 5.5
#>  [37] 5.5 6.2 3.0 2.4 4.3 3.6 5.5 6.1  NA 4.3 2.4 4.9 4.9  NA 5.5 4.3 4.2 4.2
#>  [55] 4.9 6.2 4.3 5.5 1.8 3.7 4.9 3.7 6.8 4.8 6.2 4.2 3.7 1.8 5.5 3.0 5.5 4.2
#>  [73] 4.8 5.5 4.9 3.6 4.9 3.7 3.6 3.6 4.9 6.2 4.2 3.7 3.7 3.6 3.0 2.4 4.2 4.2
#>  [91] 3.0 5.4 5.5 6.2 4.3 3.6 5.6 6.1 4.9  NA 4.2 5.5 6.8 4.8 4.9 4.9 4.9 2.4
#> [109] 4.8 3.0 3.6 3.6 4.9 3.6 4.3 3.7 2.4 3.0 3.6 4.2 4.3 4.3 6.8 5.6 4.9 6.2
#> [127] 3.0 3.0 5.5 3.6 4.2 3.7 6.1 3.7 3.6 6.2 6.1 4.8 3.6 4.9 1.8 5.6 3.0 4.9
#> [145] 4.9 4.8 3.0 4.8 4.2 4.9 2.4 5.5 3.7 4.3 3.6 3.0 4.8 5.5 7.5 4.9 4.8 4.2
#> [163] 3.0 2.4 5.5 2.4 5.5 6.1 3.6 5.5 4.3 4.2 4.3  NA 6.1 3.6 4.9 5.6 3.7 2.4
#> [181] 5.6 3.0 4.2 3.7 5.4 6.2 4.2 4.3 3.6 5.5 5.5 3.6 4.9 3.6 4.9 3.7 4.9 4.2
#> [199] 4.9 4.3 6.2 2.4 4.3 3.6 6.8 4.9 4.9 6.1 2.4 7.5 5.5 4.3 6.2 5.6 4.8 3.0
#> [217] 5.6 3.6 4.9 6.1 4.3 4.8 4.2 3.6 4.3 6.1 6.8 4.9 3.0 3.6 3.0 5.6 4.9 4.3
#> [235] 6.2 5.6 1.8  NA 5.5 3.6 4.3 6.2 4.9 4.8 3.6 5.5 4.9 5.5 4.9 6.1 4.9 4.3
#> [253] 6.8 3.6 4.9 4.2 4.8 5.5 4.2 3.0 6.2 4.8 3.6 4.2 4.3 4.9 7.5 4.3 5.5 4.9
#> [271] 1.8 3.6 5.5 4.2 5.6 4.2 4.9 3.0 3.7 4.3 4.9 4.8 3.0 3.6 4.9 4.9 6.1 4.9
#> [289] 4.2 3.6 5.5 5.5 2.4 2.4 3.7 5.5 5.4 6.2 3.7 6.8 4.2 7.5 5.6 3.7 4.2 5.5
#> [307] 4.3 5.4 4.9 3.6 4.8 4.8 4.2 6.1 4.3 3.0 3.7 6.8 3.6 3.0 6.2 4.8 4.2 5.5
#> [325] 4.3 4.2 4.9 4.3 3.0 3.0 4.9 4.3 4.3 6.2 6.1 4.3 4.2 5.6 3.6 6.1 4.9 4.3
#> [343] 7.5 6.2 4.3 3.6 6.2 4.2 4.2 4.3 2.4 3.6 1.8 5.5 5.5 5.5 3.7 7.5 5.5 5.5
#> [361] 7.5 6.2 3.7 3.6 3.6 2.4 3.0 3.0 4.9 6.1 4.9 5.5 4.3 3.0 4.9 3.6 4.3 4.2
#> [379] 4.2 3.7 3.0 3.6 4.3 4.3 4.9 3.0 4.9 4.3 4.2 3.6 6.1 4.2 4.9 4.9 5.5 6.8
#> [397] 5.6 4.9 4.2 3.6 3.6 4.2 4.2 4.3 4.3 6.1 6.1 5.6 3.6 5.5 5.5 3.0 6.1 3.0
#> [415] 6.2 5.6 4.9 3.0 3.6 4.3 3.6 3.7 6.1 2.4 5.6 4.9 5.5 7.5 5.5 3.7 4.3 6.2
#> [433] 4.9 4.9 4.2 4.3 3.6 4.2 4.2 3.6 3.0 5.5 2.4 3.6 4.8 6.1 4.2 2.4 3.0 4.9
#> [451] 3.7 4.9 3.6 5.6 3.6 4.9 4.8 4.2 3.0 6.8 5.5 3.7 3.6 6.2 4.9 3.6 3.6 3.7
#> [469] 3.0 4.2 3.0 4.3 6.2 6.8 5.4 4.3 4.3  NA 6.1 3.0 4.9 3.0 4.9 6.8 5.5 4.9
#> [487] 6.1 3.0 4.9 4.2 4.2 4.2 2.4 3.6 4.3 5.5 3.7 6.1 2.4 4.2

capl_demo_data$adequacy_score <- get_adequacy_score(
  csappa2 = capl_demo_data$csappa2,
  csappa4 = capl_demo_data$csappa4,
  csappa6 = capl_demo_data$csappa6
)

capl_demo_data$adequacy_score
#>   [1] 2.4 5.5 7.5 4.3 5.5 5.5 4.2 4.3 3.6 4.3 6.2 4.9 4.9 4.2 4.3 5.6 4.2 4.8
#>  [19] 4.8 6.2 4.3 4.8 4.9 3.6 6.8 4.3 6.2 6.2 4.3 7.5 6.1 5.6 4.9 6.2 6.2 2.4
#>  [37] 4.2 5.6 5.6 4.2 5.5 4.9 5.5 4.9 4.2 6.2 5.6 6.2 4.9 4.2 3.6 3.7 3.6 6.8
#>  [55] 1.8 3.6 5.6 4.9 3.6 3.0 3.6 4.9 3.7 4.9 3.6 3.7 4.2 5.6 6.1 4.9 3.6 3.0
#>  [73] 2.4 4.3 6.1 3.0 3.0 3.7 4.9 4.3 5.4 5.5 3.0 2.4 6.1 5.6 5.5 3.7 4.2 2.4
#>  [91] 5.6 4.9 3.0 5.6 4.9 3.6 4.9 6.8 4.9 2.4 5.6 4.8 4.2 3.0 4.9 3.0 3.0 3.7
#> [109] 4.9 3.7 6.2 4.9 5.5 5.6 5.6 4.8 3.7 6.2 3.0 5.4 4.9 3.6 5.4 3.0 4.8 3.6
#> [127] 4.8 4.2 4.2 2.4 4.9 4.3 6.2 2.4 4.9 4.9 4.9 4.2 4.9 5.5 4.9 5.5 7.5 5.6
#> [145] 5.5 3.0 4.9 6.1 4.9 5.5 3.0 5.6 6.2 4.9 4.3 4.9 5.6 4.2 2.4 5.5 4.9 3.7
#> [163] 4.3 4.3 4.9 4.3 6.1 4.8 4.9 5.5 6.2 6.1 3.6 2.4 3.6 4.9 6.2 4.3 4.3 4.2
#> [181] 3.6 3.6 3.6 6.1 7.5 3.0 5.5 4.9 5.6 3.6 4.3 5.4 3.7 3.0 6.2 6.8 2.4 3.0
#> [199] 6.1 4.9 3.0 4.8 3.6 3.6 6.1 2.4 5.5 4.8 6.1 4.9 5.5 6.2 3.0 4.3 5.6 4.2
#> [217] 4.3 3.7 4.9 5.5 6.2 4.3 4.9 5.4 4.2 3.6 6.1 6.8 7.5 3.0 4.2 3.6 5.5 4.2
#> [235] 4.2 5.5 3.6 3.7 3.0  NA 5.5 3.6 4.2 3.7 6.8 4.9 4.9 5.5 3.0 3.7 4.3 3.0
#> [253] 6.1 4.9 1.8 6.2 4.2 4.2 5.6 5.5 4.9 4.3 5.6 4.2 6.1 4.2 4.9 4.2 3.7 4.8
#> [271] 3.6 2.4 3.6 3.6 4.3 5.6 4.9 4.9 4.9 6.1 6.1 3.6 6.1 3.6 3.7 4.9 3.6 4.2
#> [289] 3.6 4.2 5.5 3.0 4.8 4.9 5.5 3.7  NA 3.7 5.4 3.6 4.3 5.5 3.6 4.2 5.6 4.2
#> [307] 6.8 3.0 6.1 6.1 3.6  NA 4.8 5.5 3.6 6.1 4.3 3.0 6.8 6.2 3.0 6.1 1.8 3.7
#> [325] 3.6 3.7 6.2 4.8 3.7 3.6 3.6 3.0 4.8 3.0 3.0 4.9 5.5 2.4 5.6 6.8 6.2 6.1
#> [343] 3.0 4.9 4.9 6.2 2.4 3.0 4.2 3.6 1.8 4.9 4.2 4.9 4.9 5.6 3.0 4.9 6.1 6.1
#> [361] 4.2 4.9 6.2 3.6 4.9 4.3 3.0 6.1 4.3 3.7 3.7 3.0 4.2 3.6 3.0 6.1 4.3 6.1
#> [379] 2.4 5.5 5.6 5.5 5.5 4.9 5.5 4.2 4.2 4.3 4.3 4.9 3.0 5.5 5.6 5.6 3.6 6.1
#> [397] 5.6 3.0 2.4 2.4 3.7 3.0 4.2 2.4 4.3 6.8 4.8 3.6 3.6 5.6 3.0 4.3 4.2 4.9
#> [415] 6.2 3.7 4.9 3.6 6.8 3.6 5.4 4.9 4.8 4.2 5.5 5.5 5.5 4.8 4.2 4.9 3.7 5.6
#> [433] 3.6 4.9 5.6 3.6 3.7 7.5 5.5 4.8 4.9 4.2 5.5 4.3 5.5 4.2 6.1 2.4 4.8 3.0
#> [451] 5.4 5.5 3.6 1.8 6.1 1.8 4.8 4.9 2.4 4.2 4.3 3.6 1.8 3.7 4.3 3.0 2.4 5.6
#> [469] 4.2 5.5 3.7 6.8 4.3 4.3 5.5 4.2 4.3 5.6 3.0 3.0 6.1 6.8 4.2 5.6 4.9 3.7
#> [487] 5.5 4.3 4.8 7.5 6.2 7.5 5.5 4.9 1.8 5.5 4.2 3.7 4.2 2.4

capl_demo_data$intrinsic_motivation_score <- get_intrinsic_motivation_score(
  why_active1 = capl_demo_data$why_active1,
  why_active2 = capl_demo_data$why_active2,
  why_active3 = capl_demo_data$why_active3
)

capl_demo_data$intrinsic_motivation_score
#>   [1] 6.0 4.5 5.0 4.5 4.0 5.5 6.5  NA 5.5  NA 6.5 5.0 4.0 3.5  NA 6.0 4.5 4.5
#>  [19] 5.0 3.0 2.0 2.5 3.5  NA 5.0 4.0 4.5 7.0 3.5 4.0  NA 6.0 5.0 3.5  NA 4.5
#>  [37] 4.5  NA 5.0 5.0 4.0 3.5 6.5 4.0  NA 4.5 3.0  NA 5.0 5.0 4.0 6.5  NA 4.0
#>  [55] 5.0 3.5 6.5 2.5 6.5 5.0 6.0 5.5 4.5 3.5 3.0 2.5 4.5 4.5 4.5 4.5 4.5 3.0
#>  [73] 4.5 4.5 5.0 5.0 2.5 6.5 5.5 4.5 6.0 2.5 4.0 7.0 4.5  NA 3.5  NA 3.5 3.0
#>  [91] 4.0 4.0 5.0 5.0 2.5  NA 3.5 6.0 1.5 6.5 5.5 5.5 5.5 4.0 4.0 4.0  NA 3.0
#> [109]  NA 4.0 5.0 5.5 3.5 4.0 3.0 4.0 6.5 3.5 6.0 3.0 4.5 6.0  NA 3.0 3.5  NA
#> [127] 5.0 3.0  NA 5.5 5.5 6.5 4.0  NA 5.0 5.0 5.0  NA 3.0 2.5  NA 4.0 6.0 5.0
#> [145] 5.0 3.5 4.5 5.0  NA 4.5 2.5 4.0 4.0 5.5 3.0 7.0 5.0 5.0 5.0  NA 5.5 7.5
#> [163] 4.0 2.5 3.5 5.5  NA 4.5 6.0 5.0 5.0 5.5 2.5 4.5 5.5 2.0 5.0 7.0  NA 6.0
#> [181] 2.5 2.5 3.5 5.0 3.5 4.5 5.5 6.5 5.5 4.5 4.5 6.0 5.5 6.0 4.0  NA 2.5 6.5
#> [199]  NA 2.5 3.0 5.0 2.5 5.5 5.5  NA 3.0 3.0 4.5 4.5 3.0 3.0 5.0  NA 6.0 3.5
#> [217] 4.5 7.0 2.5 3.0 3.0 5.0 4.5 6.5 4.5 5.5  NA 5.0 6.0 5.5  NA 3.0 2.5  NA
#> [235] 4.5 4.0 4.0 3.5 4.5 5.0 4.0 7.5 2.0 6.5 5.0 5.0 3.5  NA 4.5 2.5 3.0  NA
#> [253] 4.5 5.5  NA  NA 5.5 3.5 5.0 5.5 4.5 4.5 4.0 4.5  NA 5.0 6.5 5.5 4.5 6.0
#> [271] 4.0 5.0  NA 5.5 4.0 4.0 4.0 5.0 5.5 6.5  NA 4.0 4.5  NA 5.0 4.5 6.0 3.0
#> [289]  NA  NA 3.5 3.5 6.0 4.0 3.5 4.5 7.0 5.0 6.0 4.0 5.0 6.0 1.5 4.5  NA 4.0
#> [307]  NA 2.5 4.5 4.5 2.5 4.5 3.0 3.5 6.5 3.5 5.5 4.0 5.0 3.0 4.0 4.0 6.5 4.5
#> [325] 6.5 3.5  NA 2.0 6.5 5.5 2.5 5.5 3.5 5.5 4.5 4.0 5.0 4.0 4.5 4.0 4.5 3.5
#> [343]  NA  NA 2.5 5.5 2.5 4.5 3.5 6.5 7.5 5.0  NA 4.0 4.0 3.5  NA 6.0  NA 5.0
#> [361] 5.5 4.5 4.5  NA 3.0 5.0 7.5 5.5  NA 2.5 4.5  NA 4.0 3.0 3.5 6.0 3.5 5.5
#> [379] 2.5 4.0 2.0 5.5 6.0 6.0 6.0 4.5 5.0 5.0 5.0 4.5 4.0 3.5 6.5  NA 5.5 3.5
#> [397] 4.0 3.5 6.0 4.5 5.5 4.5 7.0 5.0 6.5  NA 5.5 5.5 4.5 5.0 4.0 4.0 4.5 4.0
#> [415] 2.5 5.0 4.0  NA 5.5 3.0 4.0 3.5 7.0 3.5 4.0 6.5 2.0 5.5 4.0 4.5  NA 5.5
#> [433]  NA 5.0 3.5 4.5 5.0 4.5 4.5 3.0  NA 4.0 6.5 5.5 5.5 4.5 3.0 5.0 5.5  NA
#> [451] 6.0 5.0 2.0  NA  NA 2.5 2.5 6.5 3.5 3.5 4.0 5.5 4.5 4.5 4.0 4.5 3.5 5.5
#> [469] 3.0  NA  NA 5.0 6.5 5.0 3.5 4.5 2.0 4.0  NA 4.5 4.5 4.5 3.5 5.5  NA 5.0
#> [487] 5.0 5.0 5.5 4.5 4.5 5.5 4.5 6.5 3.5 2.5 4.5 4.5 4.5 5.5

capl_demo_data$pa_competence_score <- get_pa_competence_score(
  feelings_about_pa1 = capl_demo_data$feelings_about_pa1,
  feelings_about_pa2 = capl_demo_data$feelings_about_pa2,
  feelings_about_pa3 = capl_demo_data$feelings_about_pa3
)

capl_demo_data$pa_competence_score
#>   [1] 5.5 5.0 3.0 5.0 4.0 2.5 4.5 4.5 4.5 6.0 4.5 4.0 3.5 4.0 4.0 3.5 5.0 3.5
#>  [19] 5.0 6.0 5.5 4.0  NA 4.5 5.5  NA 5.0 4.0 5.0 5.0 4.0  NA 3.0  NA 4.5 3.0
#>  [37] 6.0  NA 1.5 3.5 4.5 6.5 2.5 5.5 3.5 6.0 4.0 6.5 5.5 5.0 6.0  NA 3.0 5.5
#>  [55] 5.0 5.0 5.5  NA 5.0 5.0 5.0  NA 4.5 5.0 4.0 7.0 3.5 5.5 4.5 4.5  NA 2.5
#>  [73] 4.0 3.5 4.5 5.0 4.0 4.0 3.5 3.5 2.5 5.0 5.0 3.0 5.0 3.0 5.0  NA 3.0 3.5
#>  [91] 3.5 5.0 5.0  NA  NA 5.0 3.5 5.0 5.0 4.0  NA 3.5 5.0 4.5 5.5 7.5 4.0 5.0
#> [109]  NA 4.0 6.0  NA 5.5 6.0 5.5 3.0 4.0 3.5 4.0 6.0 3.5 4.0  NA 5.0 6.0 7.0
#> [127] 4.0 4.5 4.5 2.5  NA 2.5 7.5 4.5 4.0 4.0  NA 3.0 4.0 5.5  NA 4.0 3.5 4.5
#> [145] 3.5 5.0 3.0  NA 5.5 4.5 5.5 3.5 6.0 5.0 6.5 6.0 4.0 2.0 4.0  NA 2.5 4.5
#> [163] 4.5 5.0 6.0 5.5 2.0 7.0  NA 3.5 3.5  NA 5.0  NA 5.5 6.0 5.5 5.0 4.0 4.0
#> [181] 5.5 3.5 5.0 5.0 5.5 5.0 6.0  NA 2.0 3.0 3.5 3.5 4.5 3.0 3.5  NA  NA 3.5
#> [199] 2.0 3.0 4.0 5.5 6.5 4.5 3.5 3.0 3.5 6.5 5.0 5.5 3.5 4.5 2.5 3.5  NA 4.5
#> [217] 2.5 7.0 5.0 5.0 5.5  NA 4.5 3.5 4.5 4.0 5.0 4.0 4.5 3.0 2.0 4.0 6.0  NA
#> [235] 3.5 5.0 3.0 3.5 5.0 4.5 2.5 5.0  NA  NA 4.5 5.5 6.5 4.5 6.0 3.5 6.5 4.5
#> [253] 3.0 3.5 5.5  NA 5.5 4.0 4.0 4.5 5.5 3.5 3.5 5.0 3.5 4.5 4.5 6.0 4.5 6.0
#> [271] 4.0  NA 7.0 4.5 6.0 5.0 5.0 5.0 6.0 3.0 3.5 2.0 2.5 3.0 5.0  NA 4.0 5.0
#> [289] 5.5 6.5 4.5  NA 7.0  NA 3.5  NA 3.0  NA 6.0 6.0 6.0  NA 3.5  NA 4.0  NA
#> [307] 6.0  NA 4.5 6.0 4.0 4.5 4.0 5.0 4.0 4.5 6.5 4.5 5.5 5.0 5.5 3.0 3.5 4.5
#> [325] 6.5 5.5 2.5 4.5 5.0 4.5 4.5 4.5 4.0 4.5 4.5 5.5 3.5 5.0 4.5 6.0 4.0 4.5
#> [343] 4.5 5.0 4.0 4.0  NA 6.0 6.0 5.0 2.5 4.0 3.5 6.0  NA 5.0 3.5 5.0 4.0  NA
#> [361] 6.5 4.0 3.0 5.5 5.5 6.0 5.5  NA  NA 7.0 6.0 5.0 4.5 4.5 4.5 3.5 3.5 3.0
#> [379] 3.0 4.5 6.0 4.0  NA 5.5  NA 6.0 5.5 7.5 4.5 3.5 6.5 3.5 4.5 2.5 4.5 5.5
#> [397] 4.5 4.0  NA  NA 7.0 6.5 4.0 5.0  NA 4.5 4.5 6.0 5.5 6.0 6.0 2.5 5.0 5.5
#> [415] 6.0 5.0 3.0 3.5 5.0 6.5 3.0 2.5 3.0  NA 3.0 3.5 4.0 4.0 5.5  NA 3.5 3.0
#> [433] 5.0 7.0 5.0 4.5 5.0  NA  NA 2.0  NA 6.0 6.0 4.0 5.0 7.0 2.5 2.5 6.5 4.5
#> [451] 6.5 3.0 4.0 5.0 5.0 3.5 4.0 6.5 4.0 4.5  NA 6.0 6.0 5.0 4.5 5.0 3.5 3.5
#> [469] 4.5 4.5 4.5 4.5 5.0 4.5 5.5  NA 6.0 4.0 3.5 6.5 4.0 4.5 4.5 5.5 5.0 6.5
#> [487] 3.0 3.5 6.5 4.5  NA 2.0 4.0 4.0 4.0 4.5 2.5 3.5 3.5 6.0

capl_demo_data$mc_score <- get_mc_score(
  predilection_score = capl_demo_data$predilection_score,
  adequacy_score = capl_demo_data$adequacy_score,
  intrinsic_motivation_score = capl_demo_data$intrinsic_motivation_score,
  pa_competence_score = capl_demo_data$pa_competence_score
)

capl_demo_data$mc_score
#>   [1] 17.50000 19.90000 21.00000 16.80000 18.00000 16.50000 21.40000 18.26667
#>   [9] 18.40000 20.26667 20.20000 16.90000 18.00000 16.60000 18.40000 20.60000
#>  [17] 18.60000 17.10000 20.40000 18.80000 16.00000 14.90000 19.33333 15.60000
#>  [25] 21.60000 17.46667 21.30000 20.20000 17.10000 20.80000 21.60000 22.00000
#>  [33] 19.10000 17.73333 23.33333 15.40000 20.20000       NA 15.10000 15.10000
#>  [41] 18.30000 18.50000 20.00000 20.50000       NA 21.00000 15.00000 23.46667
#>  [49] 20.30000 18.93333 19.10000 19.33333 14.40000 20.50000 19.86667 18.30000
#>  [57] 21.90000 17.20000 20.13333 16.70000 19.50000 18.80000 19.50000 18.20000
#>  [65] 16.80000 17.40000 15.90000 20.80000 20.60000 16.90000 18.13333 12.70000
#>  [73] 15.70000 17.80000 20.50000 16.60000 14.40000 17.90000 17.50000 15.90000
#>  [81] 18.80000 19.20000 16.20000 16.10000 19.30000 16.26667 17.00000       NA
#>  [89] 14.90000 13.10000 16.10000 19.30000 18.50000 22.40000 15.60000 16.26667
#>  [97] 17.50000 23.90000 16.30000 17.20000 20.40000 19.30000 21.50000 16.30000
#> [105] 19.30000 19.40000 15.86667 14.10000       NA 14.70000 20.80000 18.66667
#> [113] 19.40000 19.20000 18.40000 15.50000 16.60000 16.20000 16.60000 18.60000
#> [121] 17.20000 17.90000       NA 16.60000 19.20000 22.40000 16.80000 14.70000
#> [129] 18.93333 14.00000 19.46667 17.00000 23.80000 14.13333 17.50000 20.10000
#> [137] 21.33333 16.00000 15.50000 18.40000       NA 19.10000 20.00000 20.00000
#> [145] 18.90000 16.30000 15.40000 21.20000 19.46667 19.40000 13.40000 18.60000
#> [153] 19.90000 19.70000 17.40000 20.90000 19.40000 16.70000 18.90000       NA
#> [161] 17.70000 19.90000 15.80000 14.20000 19.90000 17.70000 18.13333 22.40000
#> [169] 19.33333 19.50000 19.00000 21.06667 15.40000       NA 20.70000 16.50000
#> [177] 21.60000 21.90000 16.00000 16.60000 17.20000 12.60000 16.30000 19.80000
#> [185] 21.90000 18.70000 21.20000 20.93333 16.70000 16.60000 17.80000 18.50000
#> [193] 18.60000 15.60000 18.60000       NA 13.06667 17.20000 17.33333 14.70000
#> [201] 16.20000 17.70000 16.90000 17.20000 21.90000 13.73333 16.90000 20.40000
#> [209] 18.00000 22.40000 17.50000 18.00000 16.70000 17.86667 21.86667 15.20000
#> [217] 16.90000 21.30000 17.30000 19.60000 19.00000 18.80000 18.10000 19.00000
#> [225] 17.50000 19.20000 23.86667 20.70000 21.00000 15.10000 12.26667 16.20000
#> [233] 18.90000       NA 18.40000 20.10000 14.13333 14.26667 18.00000 17.46667
#> [241] 16.30000 22.30000 14.80000 20.00000 19.90000 20.90000 19.80000 20.66667
#> [249] 18.40000 15.80000 18.70000 15.73333 20.40000 17.50000       NA       NA
#> [257] 20.00000 17.20000 18.80000 18.50000 21.10000 17.10000 16.70000 17.90000
#> [265] 18.53333 18.60000 23.40000 20.00000 18.20000 21.70000 15.46667 14.66667
#> [273] 21.46667 17.80000 19.90000 18.80000 18.80000 17.90000 20.10000 19.90000
#> [281] 19.33333 14.40000 16.10000 13.60000 18.60000 19.06667 19.70000 17.10000
#> [289] 17.73333 19.06667 19.00000 16.00000 20.20000 15.06667 16.20000 18.26667
#> [297] 20.53333 19.86667 21.10000 20.40000 19.50000 25.33333 14.20000 16.53333
#> [305] 18.40000 18.26667 22.80000 14.53333 20.00000 20.20000 14.90000 18.40000
#> [313] 16.00000 20.10000 18.40000 17.10000 20.00000 18.30000 20.90000 17.20000
#> [321] 18.70000 17.90000 18.93333 18.20000 20.90000 16.90000 18.13333 15.60000
#> [329] 18.20000 16.60000 15.50000 17.30000 16.60000 19.20000 18.10000 18.70000
#> [337] 18.20000 17.00000 18.20000 22.90000 19.60000 18.40000 20.00000 21.46667
#> [345] 15.70000 19.30000 14.80000 17.70000 17.90000 19.40000 16.53333 17.50000
#> [353]       NA 20.40000 19.20000 19.60000 13.60000 23.40000 20.80000 22.13333
#> [361] 23.70000 19.60000 17.40000 16.93333 17.00000 17.70000 19.00000 19.46667
#> [369]       NA 19.30000 19.10000 18.00000 17.00000 14.10000 15.90000 19.20000
#> [377] 15.60000 18.80000 12.10000 17.70000 16.60000 18.60000 21.06667 20.70000
#> [385] 21.86667 17.70000 19.60000 21.10000 18.00000 16.50000 19.60000 16.70000
#> [393] 21.50000 17.33333 19.10000 21.90000 19.70000 15.40000 16.80000 14.00000
#> [401] 19.80000 18.20000 19.40000 16.70000 20.13333 23.20000 20.90000 20.70000
#> [409] 17.20000 22.10000 18.50000 13.80000 19.80000 17.40000 20.90000 19.30000
#> [417] 16.80000 13.46667 20.90000 17.40000 16.00000 14.60000 20.90000 13.46667
#> [425] 18.10000 20.40000 17.00000 21.80000 19.20000 17.46667 15.33333 20.30000
#> [433] 18.00000 21.80000 18.30000 16.90000 17.30000 21.60000 18.93333 13.40000
#> [441]       NA 19.70000 20.40000 17.40000 20.80000 21.80000 15.80000 12.30000
#> [449] 19.80000 16.53333 21.60000 18.40000 13.20000       NA 19.60000 14.53333
#> [457] 16.10000 22.10000 12.90000 19.00000 18.40000 18.80000 18.80000 19.40000
#> [465] 17.70000 16.10000 13.00000 18.30000 14.70000 18.93333 14.93333 20.60000
#> [473] 22.00000 20.60000 19.90000 17.33333 16.60000 18.13333 16.80000 17.00000
#> [481] 19.50000 18.80000 17.10000 23.40000 20.53333 20.10000 19.60000 15.80000
#> [489] 21.70000 20.70000 19.86667 19.20000 16.40000 19.00000 15.73333 18.00000
#> [497] 14.90000 17.80000 14.60000 18.10000

capl_demo_data$mc_interpretation <- get_capl_interpretation(
  age = capl_demo_data$age,
  gender = capl_demo_data$gender,
  score = capl_demo_data$mc_score,
  protocol = "mc"
)

capl_demo_data$mc_interpretation
#>   [1] "progressing" "progressing" "progressing" "progressing" "progressing"
#>   [6] "beginning"   "progressing" "progressing" "progressing" "progressing"
#>  [11] NA            "progressing" NA            NA            "progressing"
#>  [16] "progressing" "progressing" "progressing" "progressing" "progressing"
#>  [21] "beginning"   "beginning"   "progressing" NA            NA           
#>  [26] NA            "progressing" NA            "progressing" "progressing"
#>  [31] "progressing" "progressing" "progressing" NA            "achieving"  
#>  [36] NA            NA            NA            "beginning"   "beginning"  
#>  [41] "progressing" "progressing" "progressing" "progressing" NA           
#>  [46] "progressing" "beginning"   "achieving"   NA            NA           
#>  [51] "progressing" "progressing" "beginning"   "progressing" "progressing"
#>  [56] "progressing" "progressing" "progressing" "progressing" "progressing"
#>  [61] "progressing" NA            "progressing" "progressing" "progressing"
#>  [66] NA            "beginning"   "progressing" NA            "progressing"
#>  [71] "progressing" "beginning"   "beginning"   "progressing" NA           
#>  [76] "progressing" NA            "progressing" "progressing" "beginning"  
#>  [81] NA            "progressing" "progressing" "beginning"   "progressing"
#>  [86] NA            "progressing" NA            "beginning"   "beginning"  
#>  [91] "beginning"   "progressing" NA            NA            NA           
#>  [96] "beginning"   NA            "achieving"   "beginning"   "progressing"
#> [101] "progressing" "progressing" "progressing" NA            "progressing"
#> [106] "progressing" "beginning"   "beginning"   NA            "beginning"  
#> [111] "progressing" "progressing" "progressing" NA            "progressing"
#> [116] "beginning"   "progressing" "beginning"   "beginning"   "progressing"
#> [121] NA            "progressing" NA            "progressing" "progressing"
#> [126] NA            "progressing" NA            NA            "beginning"  
#> [131] "progressing" NA            "achieving"   "beginning"   "progressing"
#> [136] "progressing" "progressing" "beginning"   "beginning"   "progressing"
#> [141] NA            "progressing" "progressing" "progressing" "progressing"
#> [146] "progressing" NA            NA            "progressing" "progressing"
#> [151] "beginning"   "progressing" "progressing" "progressing" "progressing"
#> [156] "progressing" "progressing" "progressing" "progressing" NA           
#> [161] NA            "progressing" "beginning"   "beginning"   NA           
#> [166] "progressing" "progressing" NA            "progressing" "progressing"
#> [171] "progressing" "progressing" "beginning"   NA            "progressing"
#> [176] "progressing" "progressing" NA            NA            "beginning"  
#> [181] "progressing" NA            "beginning"   NA            "progressing"
#> [186] "progressing" "progressing" "progressing" "progressing" NA           
#> [191] "progressing" "progressing" "progressing" "beginning"   NA           
#> [196] NA            "beginning"   "progressing" "progressing" NA           
#> [201] "beginning"   "progressing" "progressing" "progressing" "progressing"
#> [206] "beginning"   "progressing" "progressing" "progressing" NA           
#> [211] NA            "progressing" "beginning"   "progressing" "progressing"
#> [216] "beginning"   NA            "progressing" "progressing" "progressing"
#> [221] "progressing" "progressing" NA            NA            "progressing"
#> [226] "progressing" "achieving"   NA            "progressing" NA           
#> [231] "beginning"   "beginning"   "progressing" NA            "progressing"
#> [236] "progressing" "beginning"   "beginning"   "progressing" "progressing"
#> [241] "progressing" "progressing" NA            NA            NA           
#> [246] "progressing" "progressing" NA            NA            "beginning"  
#> [251] NA            "beginning"   NA            "progressing" NA           
#> [256] NA            "progressing" "progressing" "progressing" NA           
#> [261] "progressing" "progressing" "progressing" "progressing" "progressing"
#> [266] "progressing" "achieving"   "progressing" "progressing" "progressing"
#> [271] "beginning"   "beginning"   NA            "progressing" "progressing"
#> [276] "progressing" "progressing" "progressing" "progressing" "progressing"
#> [281] "progressing" NA            "beginning"   "beginning"   "progressing"
#> [286] "progressing" "progressing" "progressing" "progressing" "progressing"
#> [291] "progressing" "beginning"   "progressing" "beginning"   NA           
#> [296] "progressing" "progressing" "progressing" "progressing" "progressing"
#> [301] "progressing" "achieving"   "beginning"   "beginning"   "progressing"
#> [306] "progressing" "achieving"   NA            NA            "progressing"
#> [311] "beginning"   "progressing" "beginning"   "progressing" "progressing"
#> [316] "progressing" "progressing" "progressing" "progressing" NA           
#> [321] "progressing" "progressing" "progressing" "progressing" "progressing"
#> [326] NA            "progressing" "beginning"   "progressing" "progressing"
#> [331] "beginning"   "progressing" "beginning"   "progressing" "progressing"
#> [336] "progressing" "progressing" "progressing" "progressing" "progressing"
#> [341] NA            NA            "progressing" "progressing" "beginning"  
#> [346] "progressing" "beginning"   "progressing" "progressing" "progressing"
#> [351] NA            NA            NA            "progressing" "progressing"
#> [356] "progressing" NA            "achieving"   "progressing" "progressing"
#> [361] NA            "progressing" NA            "progressing" "progressing"
#> [366] "progressing" "progressing" "progressing" NA            "progressing"
#> [371] "progressing" "progressing" "progressing" NA            "beginning"  
#> [376] "progressing" "beginning"   NA            NA            "progressing"
#> [381] "beginning"   "progressing" "progressing" "progressing" "progressing"
#> [386] "progressing" "progressing" NA            "progressing" "progressing"
#> [391] "progressing" "beginning"   NA            "progressing" "progressing"
#> [396] "progressing" "progressing" NA            "progressing" "beginning"  
#> [401] NA            "progressing" "progressing" "progressing" "progressing"
#> [406] "achieving"   NA            "progressing" "progressing" "progressing"
#> [411] NA            "beginning"   "progressing" "progressing" "progressing"
#> [416] "progressing" "progressing" "beginning"   "progressing" NA           
#> [421] "beginning"   "beginning"   "progressing" "beginning"   "progressing"
#> [426] "progressing" "progressing" "progressing" "progressing" "progressing"
#> [431] "beginning"   "progressing" "progressing" NA            "progressing"
#> [436] "progressing" "progressing" "progressing" "progressing" "beginning"  
#> [441] NA            "progressing" "progressing" "progressing" "progressing"
#> [446] "progressing" "beginning"   "beginning"   "progressing" NA           
#> [451] "progressing" "progressing" NA            NA            "progressing"
#> [456] "beginning"   "beginning"   "progressing" "beginning"   "progressing"
#> [461] NA            "progressing" "progressing" "progressing" NA           
#> [466] "beginning"   "beginning"   NA            NA            NA           
#> [471] "beginning"   "progressing" NA            "progressing" "progressing"
#> [476] "progressing" NA            "progressing" "progressing" "progressing"
#> [481] NA            "progressing" "progressing" NA            "progressing"
#> [486] NA            "progressing" NA            "progressing" "progressing"
#> [491] "progressing" "progressing" "progressing" "progressing" "beginning"  
#> [496] "progressing" NA            NA            "beginning"   "progressing"

capl_demo_data$mc_status <- get_capl_domain_status(
  x = capl_demo_data,
  domain = "mc"
)

capl_demo_data$mc_status
#>   [1] "complete"               "complete"               "complete"              
#>   [4] "complete"               "missing protocol"       "complete"              
#>   [7] "complete"               "missing protocol"       "complete"              
#>  [10] "missing protocol"       "missing interpretation" "complete"              
#>  [13] "missing interpretation" "missing interpretation" "missing protocol"      
#>  [16] "complete"               "complete"               "complete"              
#>  [19] "complete"               "complete"               "complete"              
#>  [22] "complete"               "missing protocol"       "missing interpretation"
#>  [25] "missing interpretation" "missing interpretation" "complete"              
#>  [28] "missing interpretation" "complete"               "complete"              
#>  [31] "missing protocol"       "missing protocol"       "complete"              
#>  [34] "missing interpretation" "missing protocol"       "missing interpretation"
#>  [37] "missing interpretation" "incomplete"             "complete"              
#>  [40] "complete"               "complete"               "complete"              
#>  [43] "complete"               "complete"               "incomplete"            
#>  [46] "complete"               "complete"               "missing protocol"      
#>  [49] "missing interpretation" "missing interpretation" "complete"              
#>  [52] "missing protocol"       "missing protocol"       "complete"              
#>  [55] "complete"               "complete"               "complete"              
#>  [58] "missing protocol"       "complete"               "complete"              
#>  [61] "complete"               "missing interpretation" "complete"              
#>  [64] "complete"               "complete"               "missing interpretation"
#>  [67] "complete"               "complete"               "missing interpretation"
#>  [70] "complete"               "missing protocol"       "complete"              
#>  [73] "complete"               "complete"               "missing interpretation"
#>  [76] "complete"               "missing interpretation" "complete"              
#>  [79] "complete"               "complete"               "missing interpretation"
#>  [82] "complete"               "complete"               "complete"              
#>  [85] "complete"               "missing interpretation" "complete"              
#>  [88] "incomplete"             "complete"               "complete"              
#>  [91] "complete"               "complete"               "missing interpretation"
#>  [94] "missing interpretation" "missing interpretation" "missing protocol"      
#>  [97] "missing interpretation" "complete"               "complete"              
#> [100] "missing protocol"       "missing protocol"       "complete"              
#> [103] "complete"               "missing interpretation" "complete"              
#> [106] "complete"               "missing protocol"       "complete"              
#> [109] "incomplete"             "complete"               "complete"              
#> [112] "missing protocol"       "complete"               "missing interpretation"
#> [115] "complete"               "complete"               "complete"              
#> [118] "complete"               "complete"               "complete"              
#> [121] "missing interpretation" "complete"               "incomplete"            
#> [124] "complete"               "complete"               "missing interpretation"
#> [127] "complete"               "missing interpretation" "missing interpretation"
#> [130] "complete"               "missing protocol"       "missing interpretation"
#> [133] "complete"               "missing protocol"       "complete"              
#> [136] "complete"               "missing protocol"       "missing protocol"      
#> [139] "complete"               "complete"               "incomplete"            
#> [142] "complete"               "complete"               "complete"              
#> [145] "complete"               "complete"               "missing interpretation"
#> [148] "missing interpretation" "missing protocol"       "complete"              
#> [151] "complete"               "complete"               "complete"              
#> [154] "complete"               "complete"               "complete"              
#> [157] "complete"               "complete"               "complete"              
#> [160] "incomplete"             "missing interpretation" "complete"              
#> [163] "complete"               "complete"               "missing interpretation"
#> [166] "complete"               "missing protocol"       "missing interpretation"
#> [169] "missing protocol"       "complete"               "complete"              
#> [172] "missing protocol"       "complete"               "incomplete"            
#> [175] "complete"               "complete"               "complete"              
#> [178] "missing interpretation" "missing interpretation" "complete"              
#> [181] "complete"               "missing interpretation" "complete"              
#> [184] "missing interpretation" "complete"               "complete"              
#> [187] "complete"               "missing protocol"       "complete"              
#> [190] "missing interpretation" "complete"               "complete"              
#> [193] "complete"               "complete"               "missing interpretation"
#> [196] "incomplete"             "missing protocol"       "complete"              
#> [199] "missing protocol"       "missing interpretation" "complete"              
#> [202] "complete"               "complete"               "complete"              
#> [205] "complete"               "missing protocol"       "complete"              
#> [208] "complete"               "complete"               "missing interpretation"
#> [211] "missing interpretation" "complete"               "complete"              
#> [214] "missing protocol"       "missing protocol"       "complete"              
#> [217] "missing interpretation" "complete"               "complete"              
#> [220] "complete"               "complete"               "missing protocol"      
#> [223] "missing interpretation" "missing interpretation" "complete"              
#> [226] "complete"               "missing protocol"       "missing interpretation"
#> [229] "complete"               "missing interpretation" "missing protocol"      
#> [232] "complete"               "complete"               "incomplete"            
#> [235] "complete"               "complete"               "complete"              
#> [238] "missing protocol"       "complete"               "missing protocol"      
#> [241] "complete"               "complete"               "missing interpretation"
#> [244] "missing interpretation" "missing interpretation" "complete"              
#> [247] "complete"               "missing interpretation" "missing interpretation"
#> [250] "complete"               "missing interpretation" "missing protocol"      
#> [253] "missing interpretation" "complete"               "incomplete"            
#> [256] "incomplete"             "complete"               "complete"              
#> [259] "complete"               "missing interpretation" "complete"              
#> [262] "complete"               "complete"               "complete"              
#> [265] "missing protocol"       "complete"               "complete"              
#> [268] "complete"               "complete"               "complete"              
#> [271] "complete"               "missing protocol"       "missing interpretation"
#> [274] "complete"               "complete"               "complete"              
#> [277] "complete"               "complete"               "complete"              
#> [280] "complete"               "missing protocol"       "missing interpretation"
#> [283] "complete"               "missing protocol"       "complete"              
#> [286] "missing protocol"       "complete"               "complete"              
#> [289] "missing protocol"       "missing protocol"       "complete"              
#> [292] "missing protocol"       "complete"               "missing protocol"      
#> [295] "missing interpretation" "missing protocol"       "missing protocol"      
#> [298] "missing protocol"       "complete"               "complete"              
#> [301] "complete"               "missing protocol"       "complete"              
#> [304] "missing protocol"       "missing protocol"       "missing protocol"      
#> [307] "missing protocol"       "missing interpretation" "missing interpretation"
#> [310] "complete"               "complete"               "missing protocol"      
#> [313] "complete"               "complete"               "complete"              
#> [316] "complete"               "complete"               "complete"              
#> [319] "complete"               "missing interpretation" "complete"              
#> [322] "complete"               "complete"               "complete"              
#> [325] "complete"               "missing interpretation" "missing protocol"      
#> [328] "complete"               "complete"               "complete"              
#> [331] "complete"               "complete"               "complete"              
#> [334] "complete"               "complete"               "complete"              
#> [337] "complete"               "complete"               "complete"              
#> [340] "complete"               "missing interpretation" "missing interpretation"
#> [343] "missing protocol"       "missing protocol"       "complete"              
#> [346] "complete"               "missing protocol"       "complete"              
#> [349] "complete"               "complete"               "missing interpretation"
#> [352] "missing interpretation" "incomplete"             "complete"              
#> [355] "missing protocol"       "complete"               "missing interpretation"
#> [358] "complete"               "missing protocol"       "missing protocol"      
#> [361] "missing interpretation" "complete"               "missing interpretation"
#> [364] "missing protocol"       "complete"               "complete"              
#> [367] "complete"               "missing protocol"       "incomplete"            
#> [370] "complete"               "complete"               "missing protocol"      
#> [373] "complete"               "missing interpretation" "complete"              
#> [376] "complete"               "complete"               "missing interpretation"
#> [379] "missing interpretation" "complete"               "complete"              
#> [382] "complete"               "missing protocol"       "complete"              
#> [385] "missing protocol"       "complete"               "complete"              
#> [388] "missing interpretation" "complete"               "complete"              
#> [391] "complete"               "complete"               "missing interpretation"
#> [394] "missing protocol"       "complete"               "complete"              
#> [397] "complete"               "missing interpretation" "missing protocol"      
#> [400] "missing protocol"       "missing interpretation" "complete"              
#> [403] "complete"               "complete"               "missing protocol"      
#> [406] "missing protocol"       "missing interpretation" "complete"              
#> [409] "complete"               "complete"               "missing interpretation"
#> [412] "complete"               "complete"               "complete"              
#> [415] "complete"               "complete"               "complete"              
#> [418] "missing protocol"       "complete"               "missing interpretation"
#> [421] "complete"               "complete"               "complete"              
#> [424] "missing protocol"       "complete"               "complete"              
#> [427] "complete"               "complete"               "complete"              
#> [430] "missing protocol"       "missing protocol"       "complete"              
#> [433] "missing protocol"       "missing interpretation" "complete"              
#> [436] "complete"               "complete"               "missing protocol"      
#> [439] "missing protocol"       "complete"               "incomplete"            
#> [442] "complete"               "complete"               "complete"              
#> [445] "complete"               "complete"               "complete"              
#> [448] "complete"               "complete"               "missing interpretation"
#> [451] "complete"               "complete"               "missing interpretation"
#> [454] "incomplete"             "missing protocol"       "complete"              
#> [457] "complete"               "complete"               "complete"              
#> [460] "complete"               "missing interpretation" "complete"              
#> [463] "complete"               "complete"               "missing interpretation"
#> [466] "complete"               "complete"               "missing interpretation"
#> [469] "missing interpretation" "missing interpretation" "missing protocol"      
#> [472] "complete"               "missing interpretation" "complete"              
#> [475] "complete"               "missing protocol"       "missing interpretation"
#> [478] "missing protocol"       "missing protocol"       "complete"              
#> [481] "missing interpretation" "complete"               "complete"              
#> [484] "missing interpretation" "missing protocol"       "missing interpretation"
#> [487] "complete"               "missing interpretation" "complete"              
#> [490] "complete"               "missing protocol"       "complete"              
#> [493] "complete"               "complete"               "complete"              
#> [496] "complete"               "missing interpretation" "missing interpretation"
#> [499] "complete"               "complete"

capl_demo_data$pa_guideline_score <- get_binary_score(
  capl_demo_data$pa_guideline, 
  c(3, "60 minutes or 1 hour")
)

capl_demo_data$pa_guideline_score
#>   [1]  0  1  0  0  0  0  1  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0
#>  [26]  1  1  0  0  0  0  0  0  1  1  0  0  0  0  1  0  0  0  1  0  1  0  0  1  0
#>  [51]  0  0  0  0  0  0  0  0  1  1  0  0  0  0  0  0  0  1  0  0  0  0  1  0  1
#>  [76]  0  0  0  1  1  1  0  0  1  0  0  1  0  0  1  0  1  0  0  1  1  0  0  0  1
#> [101]  0  0  1  0  1  0  1  0  0  0  0  0  0  0  0  1  0  0  0  1  1  1  1  0  1
#> [126]  0  0  0  0  0  1  0  0  0  0  0  1  0  0  1  1  0  0  1  1  1  0  0  0  0
#> [151]  0  0  0  0  0  0  1  1  0  0  0  1  0  1  0  0  0  0  0  1  0  1  0  0  0
#> [176]  0  1  0  1  0  0  1  1  0  0  0  0  0  1  0  0  0  0  0  0  0  0  0  0  1
#> [201]  0  1  0  0  0  0  1  1  0  0  0  0  0  0  1  0  0  0  1  0  0  0  0  0  0
#> [226]  0  0  0  0  0  0  1  1  0  0  0  0  0  0  0  1  0  0  1  1  1  0  0  1  0
#> [251] NA  1  0  1  0  0  0  0  0  1  1  1  0  1  0  1  0  0  0  0  1  0  0  0  0
#> [276]  0  0  0  0  0  0  1  0  0  0  0  1  0  0  0  0  0  0  0  0  0  0  1  1  0
#> [301]  0  1  1  1  0  0  0  0  0  0  0  0  1  0  0  0  0  0  0  0  0  0  0  1  0
#> [326]  0  1  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  1  0  1  0  1  0  1
#> [351]  1  1  0  0  0  1  0  0  0  0  1  1  0  0  0  1  1  0  0  0  0  0  0  0  0
#> [376]  1  0  0  0  0  0  1  1  0  0  0  1  1  0  1  0  1  0  0  0  0  1  0  0  0
#> [401]  1  0  0  1  0  0  0  1  0  0  1  0  0  1  0  1  0  0  0  0  0  0  0  0  0
#> [426]  0  1  1  0  1  0  0  0  0  1  0  0  0  0  0  0  1  1  0  0  1  0  1  1  0
#> [451]  0  1  1  0  0  0  0  0  1  0  0  0  0  0  1  1  0  0  0  0  0  1  0  1  0
#> [476]  0  0  0  1  0  0  0  1  0  0  0  0  0  0  0  0  0  0  0  0  0  0  1  0  0

capl_demo_data$crf_means_score <- get_binary_score(
  capl_demo_data$crf_means, 
  c(2, "How well the heart can pump blood and the lungs can provide oxygen")
)

capl_demo_data$crf_means_score
#>   [1]  0  0  0  1  1  0  1  0  0  0  1  1  0  0  0  1  0  0  0  0  0  1  0  0  0
#>  [26]  0  0  0  0  1  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  1  0  0
#>  [51]  0  0  0  1  0  1  1  1  0  0  0  0  0  0  1  0  0  0  1  1  0  1  1  0  1
#>  [76]  0  0  0  0  0  1  1  0  0  0  0  0  0  0  0  0  1  0  0  0  0  0  0  0  1
#> [101]  1  1  1  1  0  0  0  0  0  0  0  0  0  0  0  0  1  0  1  0  0  0  0  0  0
#> [126]  0  0  0  0  0  0  0  1  0  0  0  0  0  0  0  1  1  0  1  1  0  0  0  0  1
#> [151]  0  0  0  1  0  1  0  0  0  1  1  1  1  0  0  0  0  0  0  0  0  0  0  0  0
#> [176]  0  0  1  1  0  0  0  0  0  0  0  1  1  0  0  0  1  1  1  0  0  0  1  0  0
#> [201]  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  1  0  1  0
#> [226]  0  1  0  1  1  0  0  0  0  1  1  0  0  0  0  1  0  0  0  0  0  0  0  0  1
#> [251]  0  0  0  0  0  0  0  1  0  1  0  0  0  1  0  0  0  0  0  0  0  0  0  1  0
#> [276]  0  1  1  0  1  0  0  0  0  0  0  0  0  0  0  1  1  0  1  0  0  1  0  0  0
#> [301]  1  1  0  1  1  0  1  0  0  1  0  0  0  0  1  0  0  1  0  0  1  0  0  0  0
#> [326]  0  1  0  0  1  0  0  0  1  0  1  0  0  0  0  0  0  0  0  0  0  0  0  0  0
#> [351]  0  0  0  0  0  1  0  1  0  0  0  0  1  0  0  0  0  0  0  1  0  0  0  1  1
#> [376]  1  0  0  1  0  0  0  1  0  0  0  0  0  0  0  0  0  0  0  0  0  0  1  0  0
#> [401]  0  0  0  0  0  0  0  1  0  1  1  0  1  1  0  0  0  0  0  1  0  1  0  0  1
#> [426]  1  0  0  0  1  0  1  0  0  0  0  0  0  0  0  0  0  0  0  0  0  1  1  0  1
#> [451]  0  0  1  1  0  0  1  1  0  0  0  0  1  1  1  0  0  0  1  0  0  0  0  1  0
#> [476]  0  0  0  1  1  1  0  0  0  0  0  0  0  1  0  0  1  0 NA  0  1  0  0  0  0

capl_demo_data$ms_means_score <- get_binary_score(
  capl_demo_data$ms_means, 
  c(1, "How well the muscles can push, pull or stretch")
)

capl_demo_data$ms_means_score
#>   [1]  0  0  1  0  0  1  1  0  0  0  1  1  1  0  1  0  0  0  0  0  0  0  0  0  0
#>  [26]  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  1  0  1  0  0  0  0  0
#>  [51]  0  1  1  0  1  0  1  1  0  1  0  0  0  0  1  1  1  1  0  1  1  1  0  1  0
#>  [76]  0  0  0  0  0  0  0  1  0  0  0  0  1  0  0  1  0  1  0  1  0  0  0  0  0
#> [101]  1  0  0  0  0  0  0  0  0  0  1  0  0  1  0  1  1  0  0  0  1  1  1  0  0
#> [126]  0  0  1  0  1  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  1  0  0
#> [151]  0  0  0  1  0  1  0  0  1  1  0  0  1  0  0  1  1  0  0  0  0  0  0  1  1
#> [176]  1  0  0  0  0  1  1  0  1  0  1  0  0  0  0  0  0  0  0  0  0  0  0  0  0
#> [201]  0  0  0  0  0  0  0  0  1  0  0  0  0  0  1 NA  0  0  0  0  0  1  0  1  0
#> [226]  0  0  1  0  0  1  0  1  0  0  0  1  0  0  0  1  1  0  0  1  0  1  0  0  0
#> [251]  0  0  0  1  0  0  0  1  1  0  0  0  1  0  0  0  0  0  0  0  0  0  0  0  0
#> [276]  1  0  0  0  1  0  0  0  1  0  1  0  0  0  0  0  0  0  0  0  0  0  0  0  0
#> [301]  0  0  0  0  0  0  1  0  0  0  1  1  0  0  1  0  0  0  0  1  1  0  0  0  0
#> [326]  0  0  0  0  0  1  0  1  0  1  1  0  1  0  0  0  1  0  1  0  0  1  0  0  0
#> [351]  0  0  1  0  0  1  0  1  0  1  0  0  1  1  0  1  0  0  1  0  0  0  0  0  0
#> [376]  0  0  0  0  0  1  0  0  0  0  1  0  0  1  0  0  0  0  0  0  0  0  1  0  0
#> [401]  0  0  0  0  0  0  0  1  1  1  0  1 NA  0  0  0  1  1  0  0  0  0  1  0  0
#> [426]  0  1  1  0  0  1  0  0  0  1  0  0  1  0  1  0  1  0  0  0  0  0  0  0  0
#> [451]  1  0  1  0  0  0  0  0  1  0  1  1  0  0  1  1  0  1  0  0  1  1  1  0  0
#> [476]  0  0  0  0  1  1  0  0  1  1  1  0  0  1  0  0  0  0  0  0  0  0  1  1  0

capl_demo_data$sports_skill_score <- get_binary_score(
  capl_demo_data$sports_skill, 
  c(4, "Watch a video, take a lesson or have a coach teach you how to kick and catch")
)

capl_demo_data$sports_skill_score
#>   [1] 0 1 1 0 0 0 0 0 1 0 1 0 0 0 1 0 0 1 1 0 0 0 0 0 0 0 0 1 1 0 0 1 0 0 1 0 0
#>  [38] 0 0 0 0 0 0 0 0 1 0 1 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 1 1 1 0 0 0 0 0
#>  [75] 1 0 0 1 0 1 0 0 0 1 0 0 1 1 0 0 0 0 1 1 0 0 0 1 0 1 0 0 1 1 0 0 1 0 0 1 0
#> [112] 0 0 0 1 1 0 0 0 0 1 1 0 0 0 0 0 1 0 0 0 0 1 0 0 0 0 0 1 0 0 0 0 1 0 1 0 0
#> [149] 0 0 0 0 0 0 0 0 0 1 0 0 0 0 1 0 0 0 1 0 0 0 1 0 0 0 0 1 0 0 0 0 0 0 0 1 0
#> [186] 0 0 0 0 0 1 0 1 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 1 1 0 1 0 1 0 0 0 0 0
#> [223] 0 1 0 0 0 0 0 1 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 1 0 0 0 0 0 0 0 1
#> [260] 0 0 1 0 1 0 0 0 0 0 0 0 0 1 0 0 0 1 1 1 1 0 0 0 0 0 1 1 0 0 0 0 0 1 0 0 0
#> [297] 0 0 0 0 0 0 0 0 0 0 1 0 0 0 1 0 1 0 0 0 0 0 0 0 1 0 0 1 0 0 0 0 0 1 0 0 1
#> [334] 0 0 0 1 0 0 0 1 1 0 0 0 1 1 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0
#> [371] 1 0 0 0 1 0 1 0 0 1 0 0 0 0 0 0 1 0 0 0 1 0 0 0 1 1 0 0 0 0 1 0 0 0 0 0 1
#> [408] 1 1 0 1 0 0 1 1 0 0 0 0 0 0 0 0 0 1 1 0 1 0 0 0 0 0 0 1 0 0 0 1 0 1 0 1 0
#> [445] 1 1 1 1 0 0 0 0 1 1 0 1 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 1 0 0 0 1
#> [482] 0 0 1 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 1