tests/testthat/test_RunMoMo_Delay.R

In EuroMOMOnetwork/MOMO: MOMOpack for R

context("RunMoMo different delay correction")

# # delay="2017-12"
# test_that("Check Complete (with MFILE/HFILE), delay='2017-12'", {
#   SetOpts(
#     DoA=as.Date("2013-12-31"),
#     DoPR=as.Date("2008-1-1"),
#     WStart=1,
#     WEnd=52,
#     country = "Denmark",
#     source = "SSI",
#     MFILE = "DoD_DoR.txt",
#     HFILE = "holidays.txt",
#     INPUTDIR = system.file("testdata",package="MOMO"),
#     WDIR = tempdir(),
#     back = 3,
#     WWW = 290,
#     Ysum = 2013,
#     Wsum = 40,
#     USEglm2 = TRUE,
#     useAUTOMN = TRUE,
#     datesISO = FALSE,
#     plotGraphs = FALSE,
#     delayVersion = "2017-12")
#
#   RunMoMo()
#
#   res <- data.table::fread(file.path(opts$WDIR,"MOMOv4-3-Denmark-2013-52","EUROMOMO-COMPLETE-Denmark-2013-52","EUROMOMOv4-3-COMPLETE-Denmark-2013-52.txt"))
#   expectedRes <- data.table::fread(system.file("testdata", "2017-12_EUROMOMOv4-3-COMPLETE-Denmark-2013-52.txt", package = "MOMO"))
#   expectedRes <- expectedRes[wk2 != max(wk2)]
#   expect_equal(1,1)
#   #expect_equal(res,expectedRes)
# })
#
# # delay="2017-12"
# test_that("Check Complete (with MFILE/HFILE), delay='2017-12'", {
#   # MDATA <- data.table::fread(file.path(system.file("testdata",package="MOMO"),"DoD_DoR.txt"))
#   # MDATA[,wk2:=RAWmisc::YearWeek(DoD)]
#   # MDATA[,.(n=.N),keyby=.(wk2)]
#   # MDATA[DoR<="2013-12-31",.(n=.N),keyby=.(wk2)]
#   #
#   # SetOpts(
#   #   DoA=as.Date("2013-12-31"),
#   #   DoPR=as.Date("2008-1-1"),
#   #   WStart=1,
#   #   WEnd=52,
#   #   country = "Denmark",
#   #   source = "SSI",
#   #   MFILE = "DoD_DoR.txt",
#   #   HFILE = "holidays.txt",
#   #   INPUTDIR = system.file("testdata",package="MOMO"),
#   #   WDIR = tempdir(),
#   #   back = 3,
#   #   WWW = 290,
#   #   Ysum = 2013,
#   #   Wsum = 40,
#   #   USEglm2 = TRUE,
#   #   useAUTOMN = TRUE,
#   #   datesISO = FALSE,
#   #   plotGraphs = FALSE,
#   #   removeDataAfterDoA = FALSE,
#   #   delayVersion = "2017-12")
#   #
#   # RunMoMo()
#   #
#   # res <- data.table::fread(file.path(opts$WDIR,"MOMOv4-3-Denmark-2013-52","EUROMOMO-COMPLETE-Denmark-2013-52","EUROMOMOv4-3-COMPLETE-Denmark-2013-52.txt"))
#   # res <- res[group=="Total"]
#   # expectedRes <- data.table::fread(system.file("testdata", "2017-12_EUROMOMOv4-3-COMPLETE-Denmark-2013-52.txt", package = "MOMO"))
#   # expectedRes <- expectedRes[wk2 != max(wk2) & group=="Total"]
#
#   #expect_equal(res,expectedRes)
#   expect_equal(1,1)
# })
#