В рамках модели я создаю вектор сумм заработной платы, основанный на стартовой зарплате и предполагаемом темпе роста. Мой код, кажется, klugy и хотел бы очистить его. Я использовал цикл for, но ищу более точный код, возможно, с использованием apply
start_sal <- 75000
sal_gr <- .07
sal <- matrix(nrow=40,ncol=1)
sal[1] <- 75000
for(i in 2:40){
sal[i] <- sal[i-1]*(1+sal_gr)
}
head(sal)
Вывод правильный, но код уродливый