Compare Pastes
Differences between the pastes
#231980 (05.11.2021 03:23)
and
#238833 (29.11.2021 22:01).
| 1 | ```{r}
| |
| 2 | attach(vacc) | |
| 3 | uniweek <- unique(brushed_atvacc$YearWeekISO) | |
| 4 | ||
| 5 | for (i in 1:length(uniweek)) {
| |
| 6 | weekTot <- brushed_atvacc[brushed_atvacc$YearWeekISO==uniweek[i],] | |
| 7 | week_tdose <- weekTot$TotalDose | |
| 8 | tdose[i] <- sum(week_tdose) | |
| 9 | } |