#' @export get_pvfs <- function(remaining_prob_vec, interest_vec, sal_vec) PVFS <- double(length = length(sal_vec)) for (i in 1:length(sal_vec)) remaining_prob_og <- remaining_prob_veci:length(remaining_prob_vec) remaining_prob <- remaining_prob_og / remaining_prob_og1 interest <- interest_veci sal <- sal_veci:length(sal_vec) sal_adjusted <- sal * remaining_prob PVFSi <- npv(interest, sal_adjusted) return(PVFS)
recur_grow.Rd#' @export get_pvfs <- function(remaining_prob_vec, interest_vec, sal_vec) PVFS <- double(length = length(sal_vec)) for (i in 1:length(sal_vec)) remaining_prob_og <- remaining_prob_veci:length(remaining_prob_vec) remaining_prob <- remaining_prob_og / remaining_prob_og1 interest <- interest_veci sal <- sal_veci:length(sal_vec) sal_adjusted <- sal * remaining_prob PVFSi <- npv(interest, sal_adjusted)return(PVFS)