SAPTO done in Rcpp

sapto_rcpp(RebateIncome, MaxOffset, LowerThreshold, TaperRate,
  SaptoEligible, SpouseIncome, IsMarried)

Arguments

RebateIncome, MaxOffset, LowerThreshold, TaperRate, SaptoEligible, SpouseIncome, IsMarried

Arguments as in sapto.