The hardware and bandwidth for this mirror is donated by METANET, the Webhosting and Full Service-Cloud Provider.
If you wish to report a bug, or if you are interested in having us mirror your free-software or open-source project, please feel free to contact us at mirror[@]metanet.ch.
set.seed(42)
df <- data.frame(
cost = runif(50, 10, 100),
performance = runif(50, 0, 1)
)
head(df)
#> cost performance
#> 1 92.33254 0.33342721
#> 2 94.33679 0.34674825
#> 3 35.75256 0.39848541
#> 4 84.74029 0.78469278
#> 5 67.75710 0.03893649
#> 6 56.71864 0.74879539is_optimal <- pareto_2d(
x = df$cost,
y = df$performance,
x_bigger_better = FALSE,
y_bigger_better = TRUE
)
# How many optimal points did we find?
sum(is_optimal)
#> [1] 4result <- plot_pareto(
df,
x_col = "cost",
y_col = "performance",
x_bigger_better = FALSE,
y_bigger_better = TRUE,
show_all_points = TRUE
)
result$plotThese binaries (installable software) and packages are in development.
They may not be fully stable and should be used with caution. We make no claims about them.