simulated <- Y1.sim(N = 50, nX = 1)
model <- EAT(data = simulated,
x = 1,
y = 2)
frontier <- frontier(object = model,
FDH = TRUE,
observed.data = TRUE,
rwn = TRUE)
plot(frontier)
Run the code above in your browser using DataLab