Попытка установить подкадр данных и сохранить результаты в разных данных, используя цикл for.
apr_bands <- c(58.7,51.5, 25.4, 24.9, 39.9, 64.9, 59.9, 19.9, 67.9, 69.9,
9.9, 29.9, 49.9, 34.9, 44.9)
df_apr <- data.frame(matrix(NA, nrow = 212, ncol =4))
for(i in length(apr_bands))
{
df_apr <-int_bal %>% filter(APR == apr_bands[i]) %>% select(date1, week,
interest, balance) %>% group_by(week) %>% summarise(int = sum(interest),
bal = sum(balance)) %>% mutate(yield = (int/bal)*13*100)
}
df_apr