# \donttest{
simulated <- X2Y2.sim(N = 50, border = 0.2)
EAT_model <- EAT(data = simulated, x = c(1,2), y = c(3, 4))
EAT_scores <- efficiencyEAT(data = simulated, x = c(1, 2), y = c(3, 4), object = EAT_model,
scores_model = "BCC.OUT", digits = 2, na.rm = TRUE)
efficiencyJitter(object = EAT_model, df_scores = EAT_scores, scores_model = "BCC.OUT")
# }
Run the code above in your browser using DataLab