tests/testthat/test-equal-pvalue-matrix.R

In avilesd/productConfig: Tools to analyze behavioral patterns from Product Configurators

context("3.Testing legacy pow_fun with new pvMatrix")



test_that("results are identical", {
  # laptop #
  camera2_config <- read.csv("C:/Users/diego/Google Drive/KIT/Seminar_eC_HCI/R/camera2_config.csv")
  # CIP Pool #camera2_config <- read.csv("U:/Development/BA_files/camera2_config.csv")
  all.users <- getAllUserIds(camera2_config)
  randomRounds <- sample(c("first","last","all"), 1)
  amountUsers <- sample(1:length(all.users), 1)
  randomUsers <- sample(all.users, amountUsers)

legacyPV <- unname(powerful_function(camera2_config, randomUsers, rounds=randomRounds, FUN=pvalue_matrix))
renewedPV <- unname(pvMatrix(camera2_config, randomUsers, rounds=randomRounds))

  expect_identical(legacyPV, renewedPV)

})