R/delay_propr.R

In ZiggerZZ/Rproject: Probabylity analysis of SNCF train delays

#' Proportion of Delay times
#'
#' @param gareD the name of the departure railway station.
#' Must be one of the stations in the dataframe \code{SNCF_regularite}.
#' @param gareA the name of the arrival railway station.
#' Must be one of the stations in the dataframe \code{SNCF_regularite}.
#' @param month the month which will be considered in the function
#' @import dplyr
#'
#' @return it will return a dataframe with different types of delay times as names of the column and the proportion of each type in the specific month, between two selected stations
#'
#' @export
#'
#' @examples delay_propr("PARIS MONTPARNASSE", "NANTES", 12)
delay_propr <- function(gareD,gareA,month){
  trainpack::SNCF_regularite %>%filter(gare_d_arrivee == gareA & gare_de_depart == gareD & mois == month) %>%
    summarise(proportion_trains_en_retard_15min = sum(nombre_trains_en_retard_15min)/(sum(nombre_de_trains_annules)+sum(nombre_trains_en_retard_60min)+sum(nombre_trains_en_retard_30min)+sum(nombre_trains_en_retard_15min)),
              proportion_trains_en_retard_30min = sum(nombre_trains_en_retard_30min)/(sum(nombre_de_trains_annules)+sum(nombre_trains_en_retard_60min)+sum(nombre_trains_en_retard_30min)+sum(nombre_trains_en_retard_15min)),
              proportion_trains_en_retard_60min = sum(nombre_trains_en_retard_60min)/(sum(nombre_de_trains_annules)+sum(nombre_trains_en_retard_60min)+sum(nombre_trains_en_retard_30min)+sum(nombre_trains_en_retard_15min)),
              proportion_trains_annules = sum(nombre_de_trains_annules)/(sum(nombre_de_trains_annules)+sum(nombre_trains_en_retard_60min)+sum(nombre_trains_en_retard_30min)+sum(nombre_trains_en_retard_15min)))
}