Value of PCC's dividend compared to membership cost

pcc-membership.R

CostOfMembership = 60;
AnnualPccSpend = 57 * 12; # chosen to make the two options equivalent

i = 0.07; # interest rate of investing this money
T = 5; # time period we care about, in years

FV_investingMembershipCost = CostOfMembership * (1 + i)^T;

singleYearPPrime = function(x, r, t) {
  return(2 / 100 * x * (1 + r)^t); # https://en.wikipedia.org/wiki/Compound_interest#Periodic_compounding
}

FV_beingAMember = sum(
  unlist(
    Map(function(t) { return (singleYearPPrime(AnnualPccSpend, i, t)); }, 1:T)
  )
);

# Results:
#   FV_beingAMember = 84.18
#   FV_investingMembershipCost = 84.15