R/pph17p1b.R

pph17p1b <- function(pkp) {
  if (pkp < 0) {
    pph <- 0
  } else {
    pph <- pkp * 28 / 100
  }
  return(pph)
}
yht/KalkulatorPajak documentation built on May 30, 2019, 8:08 p.m.