pph17p1b <- function(pkp) { if (pkp < 0) { pph <- 0 } else { pph <- pkp * 28 / 100 } return(pph) }
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.