R/fun_pack.R

In Jaak0v/pakiet: Analiza i wizualizacja danych dotyczacych ruchu drogowego

#' Obliczenia emisji spalin
#'
#' @param dane dataframe
#' @param kategoria character
#' @param euro character
#' @param mode character
#' @param substancja character
#'
#' @return dataframe
#' @import dplyr tidyverse ggplot2 magrittr
#' @export
#'
#' @examples
fun_pack <- function(dane = input,
                     kategoria = "Passenger Cars",
                     #paliwo = "Petrol",
                     #segment = "Mini",
                     euro = "Euro 5",
                     #technologia = "",
                     mode = "",
                     substancja = c("CO", "EC")) {
  out <- wskazniki %>%
    filter(Category %in% kategoria) %>%
    filter(Euro.Standard %in% euro) %>%
    filter(Pollutant %in% substancja) %>%
    filter(Mode %in% mode)
    #filter(Fuel %in% paliwo)
    #filter(Segment %in% segment)

  out <- inner_join(x = out, y = input, by = c("Segment","Fuel","Technology"))

  out <- na.omit(out) %>%
    mutate(Emisja = Nat * ((Alpha * Procent ^ 2 + Beta * Procent + Gamma + (Delta/Procent))/
                             (Epsilon * Procent ^ 2 + Zita * Procent + Hta) * (1-Reduction))
    ) %>%
    select(Category, Fuel, Euro.Standard, Technology, Pollutant, Mode, Segment, Emisja, Nat)

  out <<- out
  return(out)
}