SAPTO done in Rcpp
sapto_rcpp( RebateIncome, MaxOffset, LowerThreshold, TaperRate, SaptoEligible, SpouseIncome, IsMarried )
Arguments as in sapto.
sapto