Making Multiple Amortization Tables

MultipleAmortize.R

source("https://gist.githubusercontent.com/schaunwheeler/6380637/raw/02d345971e3513f69b30fe2ba262578ac3871fe2/amortize.r")
library(tidyverse)
set.seed(1028)
testdata <- tibble(principal=rnorm(20, 200000, 10000),
                   interest=runif(20, .01, .1),
                   months=rbinom(20, 360, .5))

# This will not work because function is not vectorized
# data_withtabs <- testdata %>%
#  mutate(AmTable=amortize(p_input=principal, i_input=interest, n_months=months))

am_tables <- pmap(list(testdata$principal, testdata$interest, testdata$months),
                  function(x, y, z) amortize(p_input=x, i_input=y, n_months = z))

glimpse(am_tables)