Пост #238833

```{r}
attach(vacc)
uniweek <- unique(brushed_atvacc$YearWeekISO)

for (i in 1:length(uniweek)) {
  weekTot <- brushed_atvacc[brushed_atvacc$YearWeekISO==uniweek[i],]
  week_tdose <- weekTot$TotalDose
  tdose[i] <- sum(week_tdose)
}
```