# \donttest{
simulated <- X2Y2.sim(N = 50, border = 0.2)
EAT_model <- EAT(data = simulated, x = c(1,2), y = c(3, 4))
rankingEAT(object = EAT_model,
barplot = TRUE,
threshold = 70,
digits = 2)
# }
Run the code above in your browser using DataLab