tests/testthat/test-cvifnser.R

In pobsteta/gftools: Geographic Data Analysis and Modeling for Forests

context("test-cvifnser.R")

test_that("Tableau1 de la foret de Chaux", {
  skip_on_os("windows")
  skip_on_appveyor()
  skip_on_travis()
  test <- as.data.frame(gftools::CvIFNSER(fichier = system.file("extdata/shapes/FOREST/forest_chaux.shp", package = "gftools"), enreg = F, tableau = 1))
  df <- data.frame(
    c(
      "Totale", "Chene sessile", "Hetre", "Charme", "Chene pedoncule", "Pin sylvestre", "Bouleau verruqueux", "Chene rouge", "Tremble", "Epicea commun", "Aulne glutineux",
      "Douglas", "Merisier", "Erable sycomore", "Robinier faux acacia", "Pin weymouth", "Sapin pectine", "Pommier sauvage", "Noisetier coudrier", "PER", "PB", "BM", "GB",
      "Chene sessile GB + BM", "Hetre GB + BM"
    ),
    c(c(rep(x = 1, each = 25))),
    c(90, 57, 48, 48, 39, 12, 20, 5, 9, 2, 3, 1, 3, 1, 1, 1, 1, 1, 2, 73, 56, 73, 67, 83, 50),
    c(
      22.8440555678477, 0.112289424302574, 0.109594378999002, 0.083529295064812, 0.0830716563792546, 0.0931507609057785, 0.0401912334480798, 0.107390025099407,
      0.0559548621502291, 0.107795701576759, 0.0645370921108719, 0.179410012174682, 0.0377479926976617, 0.0800181974826466, 0.0566693572823917, 0.0522206700986908,
      0.0331303372801932, 0.0278488226106719, 0.00995284477925278, 0.0580028368872413, 0.0633332710500958, 0.0911200766668293, 0.125543577605898, 0.0670788043762389,
      0.077175081438422
    ),
    c(
      9.04641711750502, 0.0596342926793035, 0.0831015593692473, 0.0579650446812948, 0.0523882985724351, 0.0729077175247287, 0.0337592515559013, 0.0930475599204977,
      0.0549443420899724, 0.0831844860033962, 0.0852404056043333, NA, 0.0201403580262863, NA, NA, NA, NA, NA, 0.00709163101515642, 0.047791514844793, 0.0473823894960346,
      0.0559657372399009, 0.0638792053501595, 0.040468031718272, 0.0557731898095108
    ),
    c(
      0.396007490466692, 0.531076662381076, 0.758264795405283, 0.693948687539128, 0.630639869912573, 0.782685152711468, 0.839965551182013, 0.866445089610203,
      0.981940442323963, 0.77168648458735, 1.32079712327128, NA, 0.533547788556552, NA, NA, NA, NA, NA, 0.712523019543045, 0.823951334271816, 0.748143727781811,
      0.614197653109244, 0.508820973309261, 0.603290891878312, 0.722683912604773
    ),
    c(
      0.444447395888655, 0.0173592629064921, 0.00493830439876284, 0.00771522795844093, 0.00493830439876284, 0.00624933464633716, 0.00771522795844093, 0.0249952180103074,
      0.0187683457514435, 0.04897538743424, 0.00624933464633716, 0.179410012174682, 0.0178182059599503, 0.0800181974826466, 0.0566693572823917, 0.0522206700986908,
      0.0331303372801932, 0.0278488226106719, 0.00493830439876284, 0.00493830439876284, 0.0181378193792217, 0.0178182059599503, 0.0284301568779262, 0.0207426622012994,
      0.0178182059599503
    ),
    c(
      42.9106001505509, 0.291857395817118, 0.34147352852635, 0.23726432584613, 0.226939403050291, 0.222209316431291, 0.128190576381337, 0.240713812033064, 0.174393543205369,
      0.166616015719278, 0.162367430534318, 0.179410012174682, 0.0580925162077604, 0.0800181974826466, 0.0566693572823917, 0.0522206700986908, 0.0331303372801932,
      0.0278488226106719, 0.0149673851597427, 0.194726480638116, 0.296333083244347, 0.268607070726492, 0.301944377876033, 0.212164981492649, 0.268607070726492
    ),
    c(
      42.4661527546622, 0.274498132910626, 0.336535224127588, 0.229549097887689, 0.222001098651528, 0.215959981784954, 0.120475348422896, 0.215718594022757,
      0.155625197453925, 0.117640628285038, 0.156118095887981, 0, 0.0402743102478101, 0, 0, 0, 0, 0, 0.0100290807609799, 0.189788176239353, 0.278195263865126, 0.250788864766542,
      0.273514220998107, 0.191422319291349, 0.250788864766542
    ),
    c(
      0.953576091841698, 0.00789875502444246, 0.0119946769179782, 0.00836653353758357, 0.00838884153139371, 0.0210466451694516, 0.00754879813485109, 0.0416121338245435,
      0.0183147806966575, 0.0588203141425189, 0.0492135711214947, NA, 0.0116280411280518, NA, NA, NA, NA, NA, 0.00501454038048995, 0.00559357372367548, 0.0063317381307442,
      0.00655029409023521, 0.00780408702355131, 0.00444194355479545, 0.00788752014454191
    ),
    c(
      2055.96500110629, 6.40049718524672, 5.2605301919521, 4.00940616311098, 3.23979459879093, 1.11780913086934, 0.803824668961596, 0.536950125497035, 0.503593759352062,
      0.215591403153518, 0.193611276332616, 0.179410012174682, 0.113243978092985, 0.0800181974826466, 0.0566693572823917, 0.0522206700986908, 0.0331303372801932,
      0.0278488226106719, 0.0199056895585056, 4.23420709276862, 3.54666317880537, 6.65176559667854, 8.41141969959514, 5.56754076322783, 3.8587540719211
    )
  )
  colnames(df) <- c("libelle", "vars", "n", "mean", "sd", "cv", "min", "max", "range", "se", "sum")
  colnames(test) <- c("libelle", "vars", "n", "mean", "sd", "cv", "min", "max", "range", "se", "sum")
  df$libelle <- as.character(df$libelle)
  rownames(test) <- NULL
  rownames(df) <- NULL
  expect_equal(test, df)
})

test_that("Tableau2 de la foret de Chaux", {
  skip_on_os("windows")
  skip_on_appveyor()
  skip_on_travis()
  test <- as.data.frame(gftools::CvIFNSER(fichier = system.file("extdata/shapes/FOREST/forest_chaux.shp", package = "gftools"), enreg = F, tableau = 2))
  df <- data.frame(
    c(rep(x = "2005 - 2016", each = 18)),
    c(
      "Aulne glutineux", "Bouleau verruqueux", "Charme", "Chene pedoncule", "Chene rouge", "Chene sessile", "Douglas", "Epicea commun", "Erable sycomore",
      "Hetre", "Merisier", "Noisetier coudrier", "Pin sylvestre", "Pin weymouth", "Pommier sauvage", "Robinier faux acacia", "Sapin pectine", "Tremble"
    ),
    c(rep(x = 1, each = 18)),
    c(3, 20, 48, 39, 5, 57, 1, 2, 1, 48, 3, 2, 12, 1, 1, 1, 1, 9),
    c(
      0.0645370921108719, 0.0401912334480798, 0.083529295064812, 0.0830716563792546, 0.107390025099407, 0.112289424302574, 0.179410012174682, 0.107795701576759,
      0.0800181974826466, 0.109594378999002, 0.0377479926976617, 0.00995284477925278, 0.0931507609057785, 0.0522206700986908, 0.0278488226106719, 0.0566693572823917,
      0.0331303372801932, 0.0559548621502291
    ),
    c(
      0.0852404056043333, 0.0337592515559013, 0.0579650446812948, 0.0523882985724351, 0.0930475599204977, 0.0596342926793035, NA, 0.0831844860033962, NA,
      0.0831015593692473, 0.0201403580262863, 0.00709163101515642, 0.0729077175247287, NA, NA, NA, NA, 0.0549443420899724
    ),
    c(
      1.32079712327128, 0.839965551182013, 0.693948687539128, 0.630639869912573, 0.866445089610203, 0.531076662381076, NA, 0.77168648458735, NA, 0.758264795405283,
      0.533547788556552, 0.712523019543045, 0.782685152711468, NA, NA, NA, NA, 0.981940442323963
    ),
    c(
      0.00624933464633716, 0.00771522795844093, 0.00771522795844093, 0.00493830439876284, 0.0249952180103074, 0.0173592629064921, 0.179410012174682, 0.04897538743424,
      0.0800181974826466, 0.00493830439876284, 0.0178182059599503, 0.00493830439876284, 0.00624933464633716, 0.0522206700986908, 0.0278488226106719, 0.0566693572823917,
      0.0331303372801932, 0.0187683457514435
    ),
    c(
      0.162367430534318, 0.128190576381337, 0.23726432584613, 0.226939403050291, 0.240713812033064, 0.291857395817118, 0.179410012174682, 0.166616015719278,
      0.0800181974826466, 0.34147352852635, 0.0580925162077604, 0.0149673851597427, 0.222209316431291, 0.0522206700986908, 0.0278488226106719, 0.0566693572823917,
      0.0331303372801932, 0.174393543205369
    ),
    c(
      0.156118095887981, 0.120475348422896, 0.229549097887689, 0.222001098651528, 0.215718594022757, 0.274498132910626, 0, 0.117640628285038, 0, 0.336535224127588,
      0.0402743102478101, 0.0100290807609799, 0.215959981784954, 0, 0, 0, 0, 0.155625197453925
    ),
    c(
      0.0492135711214947, 0.00754879813485109, 0.00836653353758357, 0.00838884153139371, 0.0416121338245435, 0.00789875502444246, NA, 0.0588203141425189, NA,
      0.0119946769179782, 0.0116280411280518, 0.00501454038048995, 0.0210466451694516, NA, NA, NA, NA, 0.0183147806966575
    ),
    c(
      0.193611276332616, 0.803824668961596, 4.00940616311098, 3.23979459879093, 0.536950125497035, 6.40049718524672, 0.179410012174682, 0.215591403153518,
      0.0800181974826466, 5.2605301919521, 0.113243978092985, 0.0199056895585056, 1.11780913086934, 0.0522206700986908, 0.0278488226106719, 0.0566693572823917,
      0.0331303372801932, 0.503593759352062
    )
  )
  colnames(df) <- c("Periode", "libelle", "vars", "n", "mean", "sd", "cv", "min", "max", "range", "se", "sum")
  colnames(test) <- c("Periode", "libelle", "vars", "n", "mean", "sd", "cv", "min", "max", "range", "se", "sum")
  df$Periode <- as.character(df$Periode)
  df$libelle <- as.character(df$libelle)
  rownames(test) <- NULL
  rownames(df) <- NULL
  expect_equal(test, df)
})

test_that("Tableau3 de la foret de Chaux", {
  skip_on_os("windows")
  skip_on_appveyor()
  skip_on_travis()
  test <- head(as.data.frame(gftools::CvIFNSER(fichier = system.file("extdata/shapes/FOREST/forest_chaux.shp", package = "gftools"), enreg = F, tableau = 3)))
  df <- data.frame(
    c(rep(x = "2005 - 2016", each = 6)),
    c(rep(x = "Aulne glutineux", each = 6)),
    c(10, 15, 20, 35, 40, 45),
    c(rep(x = 1, each = 6)),
    c(2, 1, 1, 1, 1, 1),
    c(0.0139645626047781, 0.0151218467985442, 0.0249945111519604, 0.0839817529474631, 0.0187683457514435, 0.0228156944736482),
    c(0.0109109800156273, NA, NA, NA, NA, NA),
    c(0.781333459874638, NA, NA, NA, NA, NA),
    c(0.00624933464633716, 0.0151218467985442, 0.0249945111519604, 0.0839817529474631, 0.0187683457514435, 0.0228156944736482),
    c(0.021679790563219, 0.0151218467985442, 0.0249945111519604, 0.0839817529474631, 0.0187683457514435, 0.0228156944736482),
    c(0.0154304559168819, 0, 0, 0, 0, 0),
    c(0.00771522795844093, NA, NA, NA, NA, NA),
    c(0.0279291252095562, 0.0151218467985442, 0.0249945111519604, 0.0839817529474631, 0.0187683457514435, 0.0228156944736482)
  )
  colnames(df) <- c("Periode", "libelle", "Classe", "vars", "n", "mean", "sd", "cv", "min", "max", "range", "se", "sum")
  colnames(test) <- c("Periode", "libelle", "Classe", "vars", "n", "mean", "sd", "cv", "min", "max", "range", "se", "sum")
  df$Periode <- as.character(df$Periode)
  df$libelle <- as.character(df$libelle)
  rownames(test) <- NULL
  rownames(df) <- NULL
  expect_equal(test, df)
})

test_that("Fichier null", {
  expect_error(gftools::CvIFNSER(fichier = NULL, enreg = F, tableau = 1))
})

test_that("Fichier incorrect", {
  expect_error(gftools::CvIFNSER(fichier = "", enreg = F, tableau = 1))
})

test_that("Enregistrement du tableau1", {
  skip_on_os("windows")
  skip_on_appveyor()
  skip_on_travis()
  expect_message(
    gftools::CvIFNSER(fichier = system.file("extdata/shapes/FOREST/forest_chaux.shp", package = "gftools"), enreg = T, tableau = 1),
    "Result is saved in:"
  )
})

test_that("Enregistrement du tableau2", {
  skip_on_os("windows")
  skip_on_appveyor()
  skip_on_travis()
  expect_message(
    gftools::CvIFNSER(fichier = system.file("extdata/shapes/FOREST/forest_chaux.shp", package = "gftools"), enreg = T, tableau = 2),
    "Result is saved in:"
  )
})

test_that("Enregistrement du tableau3", {
  skip_on_os("windows")
  skip_on_appveyor()
  skip_on_travis()
  expect_message(
    gftools::CvIFNSER(fichier = system.file("extdata/shapes/FOREST/forest_chaux.shp", package = "gftools"), enreg = T, tableau = 3),
    "Result is saved in:"
  )
})