R/kalkulator_netto.R

In bluemetrica-training/nasz_pakiet: Konwersja jednostek

#' Kalkulator netto brutto
#'
#' @param kwota_brutto z umowy zlecenie studenta do lat 26
#'
#' @return kwota netto
#' @export 
#'
#' @examples policz_netto(100)
policz_netto <- function(kwota_brutto) {
  # umowa zlecenie nieoskładkowana 18%, 20% kosztów
  podatek = kwota_brutto * 0.8 * 0.18 # po odjeciu kosztów przychodu
  return(kwota_brutto - podatek) # funkcja zawsze coś zwraca
}