Hi there,
As you can see we can easily create the initial lookup with something like case_when. If you want to do it for the larger dataframe then you can either add more conditions or if you know this exact pattern will repeat then you can just use rep on the column and create it.
library(tidyverse)
df <- data.frame(x = 1:239)
df_output <-
df %>%
mutate( new_col =
case_when(
x <= 30 ~ "Init",
x >= 31 & x <= 210 ~ "Mid",
x >= 211 & x <= 239 ~ "End",
TRUE ~ as.character(x)
)
)
df_output
#> x new_col
#> 1 1 Init
#> 2 2 Init
#> 3 3 Init
#> 4 4 Init
#> 5 5 Init
#> 6 6 Init
#> 7 7 Init
#> 8 8 Init
#> 9 9 Init
#> 10 10 Init
#> 11 11 Init
#> 12 12 Init
#> 13 13 Init
#> 14 14 Init
#> 15 15 Init
#> 16 16 Init
#> 17 17 Init
#> 18 18 Init
#> 19 19 Init
#> 20 20 Init
#> 21 21 Init
#> 22 22 Init
#> 23 23 Init
#> 24 24 Init
#> 25 25 Init
#> 26 26 Init
#> 27 27 Init
#> 28 28 Init
#> 29 29 Init
#> 30 30 Init
#> 31 31 Mid
#> 32 32 Mid
#> 33 33 Mid
#> 34 34 Mid
#> 35 35 Mid
#> 36 36 Mid
#> 37 37 Mid
#> 38 38 Mid
#> 39 39 Mid
#> 40 40 Mid
#> 41 41 Mid
#> 42 42 Mid
#> 43 43 Mid
#> 44 44 Mid
#> 45 45 Mid
#> 46 46 Mid
#> 47 47 Mid
#> 48 48 Mid
#> 49 49 Mid
#> 50 50 Mid
#> 51 51 Mid
#> 52 52 Mid
#> 53 53 Mid
#> 54 54 Mid
#> 55 55 Mid
#> 56 56 Mid
#> 57 57 Mid
#> 58 58 Mid
#> 59 59 Mid
#> 60 60 Mid
#> 61 61 Mid
#> 62 62 Mid
#> 63 63 Mid
#> 64 64 Mid
#> 65 65 Mid
#> 66 66 Mid
#> 67 67 Mid
#> 68 68 Mid
#> 69 69 Mid
#> 70 70 Mid
#> 71 71 Mid
#> 72 72 Mid
#> 73 73 Mid
#> 74 74 Mid
#> 75 75 Mid
#> 76 76 Mid
#> 77 77 Mid
#> 78 78 Mid
#> 79 79 Mid
#> 80 80 Mid
#> 81 81 Mid
#> 82 82 Mid
#> 83 83 Mid
#> 84 84 Mid
#> 85 85 Mid
#> 86 86 Mid
#> 87 87 Mid
#> 88 88 Mid
#> 89 89 Mid
#> 90 90 Mid
#> 91 91 Mid
#> 92 92 Mid
#> 93 93 Mid
#> 94 94 Mid
#> 95 95 Mid
#> 96 96 Mid
#> 97 97 Mid
#> 98 98 Mid
#> 99 99 Mid
#> 100 100 Mid
#> 101 101 Mid
#> 102 102 Mid
#> 103 103 Mid
#> 104 104 Mid
#> 105 105 Mid
#> 106 106 Mid
#> 107 107 Mid
#> 108 108 Mid
#> 109 109 Mid
#> 110 110 Mid
#> 111 111 Mid
#> 112 112 Mid
#> 113 113 Mid
#> 114 114 Mid
#> 115 115 Mid
#> 116 116 Mid
#> 117 117 Mid
#> 118 118 Mid
#> 119 119 Mid
#> 120 120 Mid
#> 121 121 Mid
#> 122 122 Mid
#> 123 123 Mid
#> 124 124 Mid
#> 125 125 Mid
#> 126 126 Mid
#> 127 127 Mid
#> 128 128 Mid
#> 129 129 Mid
#> 130 130 Mid
#> 131 131 Mid
#> 132 132 Mid
#> 133 133 Mid
#> 134 134 Mid
#> 135 135 Mid
#> 136 136 Mid
#> 137 137 Mid
#> 138 138 Mid
#> 139 139 Mid
#> 140 140 Mid
#> 141 141 Mid
#> 142 142 Mid
#> 143 143 Mid
#> 144 144 Mid
#> 145 145 Mid
#> 146 146 Mid
#> 147 147 Mid
#> 148 148 Mid
#> 149 149 Mid
#> 150 150 Mid
#> 151 151 Mid
#> 152 152 Mid
#> 153 153 Mid
#> 154 154 Mid
#> 155 155 Mid
#> 156 156 Mid
#> 157 157 Mid
#> 158 158 Mid
#> 159 159 Mid
#> 160 160 Mid
#> 161 161 Mid
#> 162 162 Mid
#> 163 163 Mid
#> 164 164 Mid
#> 165 165 Mid
#> 166 166 Mid
#> 167 167 Mid
#> 168 168 Mid
#> 169 169 Mid
#> 170 170 Mid
#> 171 171 Mid
#> 172 172 Mid
#> 173 173 Mid
#> 174 174 Mid
#> 175 175 Mid
#> 176 176 Mid
#> 177 177 Mid
#> 178 178 Mid
#> 179 179 Mid
#> 180 180 Mid
#> 181 181 Mid
#> 182 182 Mid
#> 183 183 Mid
#> 184 184 Mid
#> 185 185 Mid
#> 186 186 Mid
#> 187 187 Mid
#> 188 188 Mid
#> 189 189 Mid
#> 190 190 Mid
#> 191 191 Mid
#> 192 192 Mid
#> 193 193 Mid
#> 194 194 Mid
#> 195 195 Mid
#> 196 196 Mid
#> 197 197 Mid
#> 198 198 Mid
#> 199 199 Mid
#> 200 200 Mid
#> 201 201 Mid
#> 202 202 Mid
#> 203 203 Mid
#> 204 204 Mid
#> 205 205 Mid
#> 206 206 Mid
#> 207 207 Mid
#> 208 208 Mid
#> 209 209 Mid
#> 210 210 Mid
#> 211 211 End
#> 212 212 End
#> 213 213 End
#> 214 214 End
#> 215 215 End
#> 216 216 End
#> 217 217 End
#> 218 218 End
#> 219 219 End
#> 220 220 End
#> 221 221 End
#> 222 222 End
#> 223 223 End
#> 224 224 End
#> 225 225 End
#> 226 226 End
#> 227 227 End
#> 228 228 End
#> 229 229 End
#> 230 230 End
#> 231 231 End
#> 232 232 End
#> 233 233 End
#> 234 234 End
#> 235 235 End
#> 236 236 End
#> 237 237 End
#> 238 238 End
#> 239 239 End
x <- df$x
new_col <-
case_when(
x <= 30 ~ "Init",
x >= 31 & x <= 210 ~ "Mid",
x >= 211 & x <= 239 ~ "End",
TRUE ~ as.character(x)
)
final_output <-
rep(
new_col
,
times = 12
)
final_output
#> [1] "Init" "Init" "Init" "Init" "Init" "Init" "Init" "Init" "Init" "Init"
#> [11] "Init" "Init" "Init" "Init" "Init" "Init" "Init" "Init" "Init" "Init"
#> [21] "Init" "Init" "Init" "Init" "Init" "Init" "Init" "Init" "Init" "Init"
#> [31] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [41] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [51] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [61] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [71] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [81] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [91] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [101] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [111] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [121] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [131] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [141] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [151] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [161] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [171] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [181] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [191] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [201] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [211] "End" "End" "End" "End" "End" "End" "End" "End" "End" "End"
#> [221] "End" "End" "End" "End" "End" "End" "End" "End" "End" "End"
#> [231] "End" "End" "End" "End" "End" "End" "End" "End" "End" "Init"
#> [241] "Init" "Init" "Init" "Init" "Init" "Init" "Init" "Init" "Init" "Init"
#> [251] "Init" "Init" "Init" "Init" "Init" "Init" "Init" "Init" "Init" "Init"
#> [261] "Init" "Init" "Init" "Init" "Init" "Init" "Init" "Init" "Init" "Mid"
#> [271] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [281] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [291] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [301] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [311] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [321] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [331] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [341] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [351] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [361] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [371] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [381] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [391] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [401] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [411] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [421] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [431] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [441] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "End"
#> [451] "End" "End" "End" "End" "End" "End" "End" "End" "End" "End"
#> [461] "End" "End" "End" "End" "End" "End" "End" "End" "End" "End"
#> [471] "End" "End" "End" "End" "End" "End" "End" "End" "Init" "Init"
#> [481] "Init" "Init" "Init" "Init" "Init" "Init" "Init" "Init" "Init" "Init"
#> [491] "Init" "Init" "Init" "Init" "Init" "Init" "Init" "Init" "Init" "Init"
#> [501] "Init" "Init" "Init" "Init" "Init" "Init" "Init" "Init" "Mid" "Mid"
#> [511] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [521] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [531] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [541] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [551] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [561] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [571] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [581] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [591] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [601] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [611] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [621] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [631] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [641] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [651] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [661] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [671] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [681] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "End" "End"
#> [691] "End" "End" "End" "End" "End" "End" "End" "End" "End" "End"
#> [701] "End" "End" "End" "End" "End" "End" "End" "End" "End" "End"
#> [711] "End" "End" "End" "End" "End" "End" "End" "Init" "Init" "Init"
#> [721] "Init" "Init" "Init" "Init" "Init" "Init" "Init" "Init" "Init" "Init"
#> [731] "Init" "Init" "Init" "Init" "Init" "Init" "Init" "Init" "Init" "Init"
#> [741] "Init" "Init" "Init" "Init" "Init" "Init" "Init" "Mid" "Mid" "Mid"
#> [751] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [761] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [771] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [781] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [791] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [801] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [811] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [821] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [831] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [841] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [851] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [861] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [871] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [881] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [891] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [901] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [911] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [921] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "End" "End" "End"
#> [931] "End" "End" "End" "End" "End" "End" "End" "End" "End" "End"
#> [941] "End" "End" "End" "End" "End" "End" "End" "End" "End" "End"
#> [951] "End" "End" "End" "End" "End" "End" "Init" "Init" "Init" "Init"
#> [961] "Init" "Init" "Init" "Init" "Init" "Init" "Init" "Init" "Init" "Init"
#> [971] "Init" "Init" "Init" "Init" "Init" "Init" "Init" "Init" "Init" "Init"
#> [981] "Init" "Init" "Init" "Init" "Init" "Init" "Mid" "Mid" "Mid" "Mid"
#> [991] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [1001] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [1011] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [1021] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [1031] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [1041] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [1051] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [1061] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [1071] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [1081] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [1091] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [1101] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [1111] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [1121] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [1131] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [1141] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [1151] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [1161] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "End" "End" "End" "End"
#> [1171] "End" "End" "End" "End" "End" "End" "End" "End" "End" "End"
#> [1181] "End" "End" "End" "End" "End" "End" "End" "End" "End" "End"
#> [1191] "End" "End" "End" "End" "End" "Init" "Init" "Init" "Init" "Init"
#> [1201] "Init" "Init" "Init" "Init" "Init" "Init" "Init" "Init" "Init" "Init"
#> [1211] "Init" "Init" "Init" "Init" "Init" "Init" "Init" "Init" "Init" "Init"
#> [1221] "Init" "Init" "Init" "Init" "Init" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [1231] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [1241] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [1251] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [1261] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [1271] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [1281] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [1291] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [1301] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [1311] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [1321] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [1331] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [1341] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [1351] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [1361] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [1371] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [1381] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [1391] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [1401] "Mid" "Mid" "Mid" "Mid" "Mid" "End" "End" "End" "End" "End"
#> [1411] "End" "End" "End" "End" "End" "End" "End" "End" "End" "End"
#> [1421] "End" "End" "End" "End" "End" "End" "End" "End" "End" "End"
#> [1431] "End" "End" "End" "End" "Init" "Init" "Init" "Init" "Init" "Init"
#> [1441] "Init" "Init" "Init" "Init" "Init" "Init" "Init" "Init" "Init" "Init"
#> [1451] "Init" "Init" "Init" "Init" "Init" "Init" "Init" "Init" "Init" "Init"
#> [1461] "Init" "Init" "Init" "Init" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [1471] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [1481] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [1491] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [1501] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [1511] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [1521] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [1531] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [1541] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [1551] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [1561] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [1571] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [1581] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [1591] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [1601] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [1611] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [1621] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [1631] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [1641] "Mid" "Mid" "Mid" "Mid" "End" "End" "End" "End" "End" "End"
#> [1651] "End" "End" "End" "End" "End" "End" "End" "End" "End" "End"
#> [1661] "End" "End" "End" "End" "End" "End" "End" "End" "End" "End"
#> [1671] "End" "End" "End" "Init" "Init" "Init" "Init" "Init" "Init" "Init"
#> [1681] "Init" "Init" "Init" "Init" "Init" "Init" "Init" "Init" "Init" "Init"
#> [1691] "Init" "Init" "Init" "Init" "Init" "Init" "Init" "Init" "Init" "Init"
#> [1701] "Init" "Init" "Init" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [1711] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [1721] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [1731] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [1741] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [1751] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [1761] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [1771] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [1781] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [1791] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [1801] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [1811] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [1821] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [1831] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [1841] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [1851] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [1861] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [1871] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [1881] "Mid" "Mid" "Mid" "End" "End" "End" "End" "End" "End" "End"
#> [1891] "End" "End" "End" "End" "End" "End" "End" "End" "End" "End"
#> [1901] "End" "End" "End" "End" "End" "End" "End" "End" "End" "End"
#> [1911] "End" "End" "Init" "Init" "Init" "Init" "Init" "Init" "Init" "Init"
#> [1921] "Init" "Init" "Init" "Init" "Init" "Init" "Init" "Init" "Init" "Init"
#> [1931] "Init" "Init" "Init" "Init" "Init" "Init" "Init" "Init" "Init" "Init"
#> [1941] "Init" "Init" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [1951] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [1961] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [1971] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [1981] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [1991] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [2001] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [2011] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [2021] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [2031] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [2041] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [2051] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [2061] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [2071] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [2081] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [2091] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [2101] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [2111] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [2121] "Mid" "Mid" "End" "End" "End" "End" "End" "End" "End" "End"
#> [2131] "End" "End" "End" "End" "End" "End" "End" "End" "End" "End"
#> [2141] "End" "End" "End" "End" "End" "End" "End" "End" "End" "End"
#> [2151] "End" "Init" "Init" "Init" "Init" "Init" "Init" "Init" "Init" "Init"
#> [2161] "Init" "Init" "Init" "Init" "Init" "Init" "Init" "Init" "Init" "Init"
#> [2171] "Init" "Init" "Init" "Init" "Init" "Init" "Init" "Init" "Init" "Init"
#> [2181] "Init" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [2191] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [2201] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [2211] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [2221] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [2231] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [2241] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [2251] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [2261] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [2271] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [2281] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [2291] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [2301] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [2311] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [2321] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [2331] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [2341] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [2351] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [2361] "Mid" "End" "End" "End" "End" "End" "End" "End" "End" "End"
#> [2371] "End" "End" "End" "End" "End" "End" "End" "End" "End" "End"
#> [2381] "End" "End" "End" "End" "End" "End" "End" "End" "End" "End"
#> [2391] "Init" "Init" "Init" "Init" "Init" "Init" "Init" "Init" "Init" "Init"
#> [2401] "Init" "Init" "Init" "Init" "Init" "Init" "Init" "Init" "Init" "Init"
#> [2411] "Init" "Init" "Init" "Init" "Init" "Init" "Init" "Init" "Init" "Init"
#> [2421] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [2431] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [2441] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [2451] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [2461] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [2471] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [2481] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [2491] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [2501] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [2511] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [2521] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [2531] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [2541] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [2551] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [2561] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [2571] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [2581] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [2591] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [2601] "End" "End" "End" "End" "End" "End" "End" "End" "End" "End"
#> [2611] "End" "End" "End" "End" "End" "End" "End" "End" "End" "End"
#> [2621] "End" "End" "End" "End" "End" "End" "End" "End" "End" "Init"
#> [2631] "Init" "Init" "Init" "Init" "Init" "Init" "Init" "Init" "Init" "Init"
#> [2641] "Init" "Init" "Init" "Init" "Init" "Init" "Init" "Init" "Init" "Init"
#> [2651] "Init" "Init" "Init" "Init" "Init" "Init" "Init" "Init" "Init" "Mid"
#> [2661] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [2671] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [2681] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [2691] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [2701] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [2711] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [2721] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [2731] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [2741] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [2751] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [2761] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [2771] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [2781] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [2791] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [2801] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [2811] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [2821] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid"
#> [2831] "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "Mid" "End"
#> [2841] "End" "End" "End" "End" "End" "End" "End" "End" "End" "End"
#> [2851] "End" "End" "End" "End" "End" "End" "End" "End" "End" "End"
#> [2861] "End" "End" "End" "End" "End" "End" "End" "End"
Created on 2021-10-28 by the reprex package (v2.0.0)