# Generated by using Rcpp::compileAttributes() -> do not edit by hand
# Generator token: 10BE3573-1514-4C36-9D1C-5A225CD40393
intersect_ellipses <- function(par, circle, approx = FALSE) {
.Call(`_eulerr_intersect_ellipses`, par, circle, approx)
}
optim_final_loss <- function(par, data, circle, loss_type = "squared_error", loss_aggregator_type = "sum") {
.Call(`_eulerr_optim_final_loss`, par, data, circle, loss_type, loss_aggregator_type)
}
optim_init <- function(par, d, disjoint, subset) {
.Call(`_eulerr_optim_init`, par, d, disjoint, subset)
}
choose_two <- function(x) {
.Call(`_eulerr_choose_two`, x)
}
discdisc <- function(d, r1, r2, overlap) {
.Call(`_eulerr_discdisc`, d, r1, r2, overlap)
}
bit_index_cpp <- function(n) {
.Call(`_eulerr_bit_index_cpp`, n)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.