tests/testthat/test-nominalAsBinet.R

In NIMAA: Nominal Data Mining Analysis

test_that("weighted edgelist to incidence matrix works", {
  el1 <- data.frame(
    nominal_var_1 = c("d", "e", "e", "b", "a", "a"),
    nominal_var_2 = c("J", "N", "O", "R", "R", "L")
     )
  el2 <- data.frame(
    nominal_var_1 = c("d", "e", "e", "b", "a", "a"),
    nominal_var_2 = c("J", "N", "O", "R", "R", "L"),
       numeric_val = c(4, 5, 5, 8, 7, 7)
     )
  inc_mat1 <- nominalAsBinet(el1)
  inc_mat2 <- nominalAsBinet(el2)
  expect_equal(diag(inc_mat1), c(1, 1, NA, 1))
  expect_equal(diag(inc_mat2), c(4, 5, NA, 7))

})