## ----include = FALSE----------------------------------------------------------
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>",
  warning = FALSE,
  message = FALSE
)

## ----setup--------------------------------------------------------------------
library(serad)

## -----------------------------------------------------------------------------
get_serad_language()

## ----eval = FALSE-------------------------------------------------------------
# set_serad_language("en")

## ----eval = FALSE-------------------------------------------------------------
# set_serad_language("fr")

## ----eval = FALSE-------------------------------------------------------------
# options(serad.lang = "en")
# library(serad)

## -----------------------------------------------------------------------------
g(2, 1)
g(105, 100)
g(95, 100)

## -----------------------------------------------------------------------------
format_g(5.3654)
format_g(-5.3654)
format_g(5.3654, signe = FALSE)

## -----------------------------------------------------------------------------
set_serad_language("en")
format_g(5.3654)
format_g(-5.3654)

## -----------------------------------------------------------------------------
set_serad_language("fr")

## -----------------------------------------------------------------------------
format_pts(5.3654)
format_pts(-1.2)
format_pts(1.3654, signe = FALSE)
format_pts(5.3654, abrev = TRUE)

## -----------------------------------------------------------------------------
format_niv(365484)
format_delta(365484)
format_delta(-365484)

## -----------------------------------------------------------------------------
g_nom(1.04, 1)
g_nom(1.001, 1)
g_nom(0.95, 1)

## -----------------------------------------------------------------------------
g_nom_taux(4)
g_nom_taux(0)
g_nom_taux(-4)

## -----------------------------------------------------------------------------
g_nom_taux(4, titre = TRUE)
g_nom_taux(-4, titre = TRUE)

## -----------------------------------------------------------------------------
g_verbe(1.10, 1)
g_verbe(1.003, 1)
g_verbe(0.96, 1)

## -----------------------------------------------------------------------------
g_verbe_taux(10)
g_verbe_taux(0)
g_verbe_taux(-4)

## -----------------------------------------------------------------------------
g_verbe_taux(-0.1)
g_verbe_taux(-0.1, stable_sans_valeur = FALSE)

## -----------------------------------------------------------------------------
alahausse(1.004, 1)
alahausse(0.996, 1)
alahausse(1, 1.0004)

## -----------------------------------------------------------------------------
audessus(1.04, 1)
audessus(0.96, 1)

## -----------------------------------------------------------------------------
davantage(1.04, 1)
davantage(0.96, 1)

## -----------------------------------------------------------------------------
depasse(1.04, 1)
depasse(1.04, 1, sing = TRUE)
depasse(0.96, 1)

## -----------------------------------------------------------------------------
gETa_nom(1.1, 1, 0.99)
gETa_nom(0.96, 1, 1.01)
gETa_nom(1.00049, 1, 0.9996)

## -----------------------------------------------------------------------------
gETa_verbe(1.1, 1, 0.99)
gETa_verbe(0.96, 1, 1.01)
gETa_verbe(1.003, 1, 0.99, sing = FALSE)

## -----------------------------------------------------------------------------
set.seed(123)
gETa_verbe_taux(10, 1, alea = 1)
gETa_nom_taux(10, 1, alea = 1)

## -----------------------------------------------------------------------------
quelMois(3, 2023)
quelMois(3, 2023, majuscule = TRUE)
nextMois(12, 2023)
prevMois(1, 2023)

## -----------------------------------------------------------------------------
quelTrim(3, 2023)
quelTrim(3, 2023, majuscule = TRUE)
quelTrim(3, 2023, type = "chiffres")
nextTrim(4, 2023)
prevTrim(1, 2023)

## -----------------------------------------------------------------------------
whichMois("En Juil 98")
whichMois("March 2024")

## -----------------------------------------------------------------------------
col0 <- c("Y1T1", "Y1T2", "Y1trim3", "Y1T4", "Y2T1", "Y2-T2")
col1 <- c(12, 6, 2, 86, 19, 10)
col2 <- c(4, 8, 7, 34, 87, 14)
col3 <- c(10, 20, 3, 66, 90, 54)
col4 <- c(29, 12, 4, 16, 40, 94)
col5 <- c(58, 76, 1, 3, 34, 19)

df1 <- data.frame(col0, col1, col2, col3, col4, col5)

contributions(df1)

## -----------------------------------------------------------------------------
set_serad_language("en")
contributions(df1, lang = "en")
set_serad_language("fr")

## -----------------------------------------------------------------------------
col0 <- c("Y1T1", "Y1T2", "Y1trim3", "Y1T4", "Y2T1", "Y2-T2")
col1 <- c(12, 11, 7, 6, 9, 10)
col2 <- c(12, 11, 7, 6, 9, 14)
col3 <- c(12, 11, 3, 6, 9, 4)

df2 <- data.frame(col0, col1, col2, col3)

plushautniveau(df2)
plushautniveau(df2, vary = "col2")
plushautniveau(df2, vary = "col3")

## -----------------------------------------------------------------------------
set_serad_language("en")

g_nom(1.04, 1)
g_verbe(1.04, 1)
gETa_nom(1.1, 1, 0.99)
gETa_verbe(1.1, 1, 0.99)
format_g(5.4)
format_pts(2.3)
format_niv(365484)
quelMois(3, 2023)
quelTrim(3, 2023)

## -----------------------------------------------------------------------------
set_serad_language("fr")

## ----eval = FALSE-------------------------------------------------------------
# init_serad_fr()
# init_serad_en()

## ----eval = FALSE-------------------------------------------------------------
# serad0 <- init_serad_fr()
# 
# serad0$evo_simple <- tibble::tribble(
#   ~seuil, ~verbe_sing, ~verbe_plur, ~nom,
#   1,     "augmente", "augmentent", "une hausse",
#   0,     "est stable", "sont stables", "une stabilité",
#   -Inf,  "diminue", "diminuent", "une baisse"
# )
# 
# options(serad = serad0)

## ----eval = FALSE-------------------------------------------------------------
# serad0 <- init_serad_fr()
# 
# serad0$seuil$stable <- 0.1
# serad0$seuil$accel_hausse <- 40
# serad0$seuil$accel_baisse <- -40
# 
# options(serad = serad0)

## ----eval = FALSE-------------------------------------------------------------
# ?init_serad

## ----eval = FALSE-------------------------------------------------------------
# options(serad.lang = "en")
# library(serad)
# 
# # ou après chargement
# set_serad_language("en")