month_max<- USBC_IDT %>% filter (Human=="IDT") %>% group_by(Month, Activity) %>%
mutate(Max_Month = max(Weight, na.rm = T)) %>% select (Month, Max_Month) %>%
distinct(Max_Month, .keep_all = TRUE)## Adding missing grouping variables: `Activity`kable(month_max)| Activity | Month | Max_Month |
|---|---|---|
| BenchPress | May | 165 |
| Squat | May | 170 |
| Deadlift | May | 215 |
| ShoulderPress | May | 70 |
| Curls | May | 35 |
| BenchPress | June | 185 |
| FrontSquat | June | 115 |
| Deadlift | June | 245 |
| Squat | June | 195 |
| ShoulderPress | June | 70 |
| Curls | June | 35 |
| Squat | July | 220 |
| BenchPress | July | 180 |
| Deadlift | July | 275 |
| Bench_Pin | July | 145 |
| ShoulderPress | July | 80 |
| Curls | July | 40 |
| Squat_Pin | August | 185 |
| Bench_Pin | August | 155 |
| Def_Deadlift | August | 155 |
| Squat | August | 225 |
| BenchPress | August | 185 |
| Deadlift | August | 235 |
| Squat | September | 235 |
| BenchPress | September | 185 |
| Deadlift | September | 265 |
| Curls | September | 75 |
| ShoulderPress | September | 95 |
| Bench_Pin | September | 180 |
| Squat_Pin | September | 215 |
| Def_Deadlift | September | 185 |
| Squat | October | 235 |
| BenchPress | October | 185 |
| Deadlift | October | 280 |
| ShoulderPress | October | 115 |
month_max<- USBC_IDT %>% filter (Human=="JJC") %>% group_by(Month, Activity) %>%
mutate(Max_Month = max(Weight, na.rm = T)) %>% select (Month, Max_Month) %>%
distinct(Max_Month, .keep_all = TRUE)## Adding missing grouping variables: `Activity`kable(month_max)| Activity | Month | Max_Month |
|---|---|---|
| Deadlift | October | 155 |
| ShoulderPress | October | 60 |
| Front Squat | October | 65 |
| BenchPress | October | 130 |
| FrontSquat | October | 95 |
| Squat | September | 125 |
| BenchPress | September | 115 |
| Deadlift | September | 135 |
| ShoulderPress | September | 60 |
| BarbellPull | October | 70 |
month_max<- USBC_IDT %>% filter (Human=="MJW") %>% group_by(Month, Activity) %>%
mutate(Max_Month = max(Weight, na.rm = T)) %>% select (Month, Max_Month) %>%
distinct(Max_Month, .keep_all = TRUE)## Adding missing grouping variables: `Activity`kable(month_max)| Activity | Month | Max_Month |
|---|---|---|
| BenchPress | May | 190 |
| ShoulderPress | May | 100 |
| Squat | May | 215 |
| Deadlift | May | 290 |
| Squat | June | 215 |
| BenchPress | June | 195 |
| Deadlift | June | 300 |
| Squat | July | 205 |
| BenchPress | July | 185 |
| Deadlift | July | 235 |
| Squat | August | 235 |
| BenchPress | August | 185 |
| Deadlift | August | 315 |
| Squat | September | 245 |
| BenchPress | September | 205 |
| Deadlift | September | 325 |
| ShoulderPress | September | 100 |
| Squat | October | 185 |
| BenchPress | October | 185 |
| Deadlift | October | 295 |
| ShoulderPress | October | 95 |