Nothing
test_relop_theta_join <- function() {
d1 <- data.frame(AUC = 0.6, R2 = 0.2)
d2 <- data.frame(AUC2 = 0.4, R2 = 0.3)
optree <- theta_join_se(local_td(d1), local_td(d2), "AUC >= AUC2")
res <- ex_data_table(optree, tables = list(d1 = d1, d2 = d2))
invisible(NULL)
}
test_relop_theta_join()
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.