tests/testthat/test-nemtrTests.R

In nemtr: Nonparametric Extended Median Test - Cumulative Summation Method

#' @importFrom testthat test_that expect_equal
#' @importFrom tidyr pivot_longer
#' @importFrom magrittr %>%
#'
#'

load(test_path("testdata", "testData.rda"))
load(test_path("testdata", "testDataLong.rda"))
load(test_path("testdata", "expOutput.rda"))
load(test_path("testdata", "nemt_plot.rda"))

df <- testData
dfL <- testDataLong

testthat::test_that("nemtr works", {

  testthat::expect_equal(nemt_plot, nemtr(testData, timing="hour", streams=c("rep1", "rep2", "rep3", "rep4", "rep5", "rep6", "rep7", "rep8", "rep9", "rep10"), type="wide", median0 = 2))
})