tests/testthat/test-predict_asymmetry.R

data <- dplyr::tibble(
  listening = c(-20),
  handedness = "left",
  stringsAsFactors = FALSE
)

df <- predict_dominance(data)

expect_equal(
  df$probability,
  c(0.476309298919027, 0.523690701080972, 0)
)
osorensen/asymm documentation built on Aug. 25, 2023, 3:45 p.m.