### travail individuel longitudinal (1re partie)
### Camille Pouliot

### Analyse des données du service de vélopartage BIXI

## fonction 1

### summary.rentals(x)
##
## calcul des statistiques :  le nombre de locations,
## le nombre de locations effectuées par des membres BIXI,
## la proportion de locations effectuées par des membres
## BIXI.
##
## Arguments
##
## x : data frame produit la par la fonction importData
##
## valeur
##
## vecteur nommé contenant les statistiques requises
## dans l'ordre

summary.rentals <- function(x)

{

  NOMBRE_DE_LOCATIONS <- nrow(x)   # nombre de locations
  NOMBRE_DE_LOCATIONS_MEMBRES <- nrow(subset(x, is_member == "1"))
  # nombre de locations éffectuées par
  # des membres de BIXI

  PROPORTION_DE_LOCATIONS_MEMBRES <- NOMBRE_DE_LOCATIONS_MEMBRES / NOMBRE_DE_LOCATIONS
  # proportion de locations effectuées
  # par des membres BIXI
   c("NOMBRE_DE_LOCATIONS" =  NOMBRE_DE_LOCATIONS , "NOMBRE_DE_LOCATIONS_MEMBRES" =  NOMBRE_DE_LOCATIONS_MEMBRES, "PROPORTION_DE_LOCATIONS_MEMBRES" = PROPORTION_DE_LOCATIONS_MEMBRES)

}


## fonction 2

### revenues(x, FUN)
##
## calcul des revenues totaux avant taxes liés à
## des locations pour une structure de tarifs donnée.
##
## Arguments
##
## x : data frame produit la par la fonction importData
## FUN : fonction qui calcule les revenus associés à la
## durée d'une location en secondes
##
## valeur
##
## le montant total des revenus en dollars

revenues <- function(x, FUN)

{

  sum (FUN(x$duration_sec)) # revenus total associés à la durée d'une location en secondes


}

## fonction 3

### tariff_A2018r1(x)
##
## calcul les revenus avant taxes selon la
## structure de tarification A2018r1
##
## Arguments
##
## x : vecteur de durées de location en secondes
##
## valeur
##
## vecteur de montants de revenus en dollars

tariff_A2018 <- function(x)
{
  if (x < 1800)
  {
    tariff = 0.55 + 0.00108*x
  }
  else if (x >= 1800)
  {
    tariff = 0.55 + 0.00108*x + 0.00298*(x-1800)
  }

  if (tariff >= 10)
    return(10)

  tariff
}

tariff_A2018r1 <- function(x)
{
  sapply(x,tariff_A2018)
}