context("Tester les fonctions qui permettent d'ajouter l'évolution de valorisation")
test_that("Fonction test mois suivant", {
serie_mois_test <- c(1,2,4,6:12)
mois_suivant_manque <- analyseVVS::mois_suivant_manquant(serie_mois_test)
expect_true(mois_suivant_manque[2])
expect_true(mois_suivant_manque[3])
expect_false(mois_suivant_manque[1])
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.