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)
)

Try the BayesianLaterality package in your browser

Any scripts or data that you put into this service are public.

BayesianLaterality documentation built on Aug. 19, 2023, 5:11 p.m.