knitr::opts_chunk$set( collapse = TRUE, comment = "#>" )
devtools::load_all()
prob <- create_cmop(probs$standard.100, distribution = "esqua") values <- fun_cyclone( prob$default, fluid = prob$fluid, delta = prob$delta, intervals = prob$intervals, cons.bound = prob$cons.bound) values
feas_ratios(prob, sample.size = 1e4)
res <- opt_mo(prob)
param_stat(res)
make_plot(res)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.