inst/tinytest/test_relop_theta_join.R

In WinVector/rqdatatable: 'rquery' for 'data.table'

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()