tests/testthat/test-entropy-function.R
In avilesd/productConfig: Tools to analyze behavioral patterns from Product Configurators
context("0.2 Testing Entropy Function")
test_that("results are numerically equal", {
camera2_config <- read.csv("C:/Users/diego/Google Drive/KIT/Seminar_eC_HCI/R/camera2_config.csv")
entropy_matrix <- readRDS("C:/Users/diego/Google Drive/KIT/Seminar_eC_HCI/R/productConfig/data/entropy_matrix1.rds")
testVector <- c(0.06410176, 0.20608266, 0.01347882, 0.08125553, 0.35867045, 0.27641078)
expect_equal(entropy_matrix, testVector)
})
avilesd/productConfig documentation built on May 11, 2019, 4:08 p.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
context("0.2 Testing Entropy Function")
test_that("results are numerically equal", {
camera2_config <- read.csv("C:/Users/diego/Google Drive/KIT/Seminar_eC_HCI/R/camera2_config.csv")
entropy_matrix <- readRDS("C:/Users/diego/Google Drive/KIT/Seminar_eC_HCI/R/productConfig/data/entropy_matrix1.rds")
testVector <- c(0.06410176, 0.20608266, 0.01347882, 0.08125553, 0.35867045, 0.27641078)
expect_equal(entropy_matrix, testVector)
})
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.