data(data)
str(data)
summary(data)
if (requireNamespace("ggplot2", quietly = TRUE)) {
ggplot2::ggplot(data, ggplot2::aes(x = x1)) +
ggplot2::geom_point(ggplot2::aes(y = y), alpha = 0.6) +
ggplot2::geom_line(ggplot2::aes(y = yD), color = "red") +
ggplot2::labs(
x = "Input x1",
y = "Output",
title = "Simulated DMUs and theoretical frontier"
) +
ggplot2::theme_minimal()
}
Run the code above in your browser using DataLab