tests/testthat/test-analysis.R

In omarbenites/iskay: R-Shiny package for non-parametric data analysis

library(iskay)

context("Test for test_analysis")

test_that("test analysis friedman", {
  fp <- rprojroot::find_testthat_root_file("test_data", "grass.csv")
  datos <- read.csv(fp)
  out <- test_analysis(x= datos$trt, y =datos$evaluation , jud = datos$judge, test = "friedman")
  adt <- out$dt
  expect_equivalent(nrow(adt), 4)
  
})

test_that("test analysis kruskal", {
  fp <- rprojroot::find_testthat_root_file("test_data", "kruskal_corn.csv")
  datos <- read.csv(fp)
  
  as <- test_analysis(x= datos$method, y = datos$observation, test = "kruskal")
  adt <- as$dt
  expect_equivalent(ncol(adt), 8 )
  expect_equivalent(nrow(adt), 4)
  
})

test_that("test analysis median", {
  
  fp <- rprojroot::find_testthat_root_file("test_data", "medianTest_data.xlsx")
  datos <- readxl::read_excel(fp) %>% as.data.frame(stringsAsFactors=FALSE)
  as <- test_analysis(x= datos[,"Speaker"], y = datos[,"Likert"], test = "median")
  adt <- as$dt
  expect_equivalent(ncol(adt), 5)
  expect_equivalent(nrow(adt), 3)
  
})

test_that("test analysis Jonckheere-Tepstra", {
  fp <- rprojroot::find_testthat_root_file("test_data", "Jonkcherre_NaCl.xlsx")
  datos <- readxl::read_excel(fp)
  
  as <- test_analysis(x= datos$dataset.Juicio, y = datos$dataset.NaCl, hyp = "increasing", test = "jonckheere")
  adt <- as$dt 
  expect_equivalent(ncol(adt), NULL)
  expect_equivalent(nrow(adt), NULL)
  
})

test_that("test for durbin", {
  fp <- rprojroot::find_testthat_root_file("test_data", "durbin_toxico.xlsx")
  datos <- readxl::read_excel(fp)
  
  as <- test_analysis(x= datos$chemical, jud = datos$days, y =  datos$toxic, test = "durbin")
  adt <- as$dt 
  expect_equivalent(ncol(adt), 7)
  expect_equivalent(nrow(adt), 7)
  
})