R/join.R

In mccurdyc/mrstudyr: A tool for retrospectively studying mutant reduction techniques for mutation testing

#' FUNCTION: join_numerator_denominator_time_data
#'
#' Join together six tables containing the numerator and denominator counts as well as the mutation analysis time for the reduced and original mutant sets
#' @export

join_numerator_denominator_time_data <- function(rn, rd, on, od, rt, ot) {
  rnd <- dplyr::left_join(rn, rd, by = c("dbms" = "dbms", "schema" = "schema"))
  ron <- dplyr::left_join(rnd, on, by = c("dbms" = "dbms", "schema" = "schema"))
  rond <- dplyr::left_join(ron, od, by = c("dbms" = "dbms", "schema" = "schema"))
  rondr <- dplyr::left_join(rond, rt, by = c("dbms" = "dbms", "schema" = "schema"))
  rondt <- dplyr::left_join(rondr, ot, by = c("dbms" = "dbms", "schema" = "schema"))
  return(rondt)
}

#' FUNCTION: join_total_keep_ignore_data
#'
#' Join together the total, keep and ignore mutant data after performing across-schema hill-climbing.
#' @export

join_total_keep_ignore_data <- function(tc, kc, ic) {
  dt <- dplyr::left_join(tc, kc, by = c("dbms" = "dbms", "trial" = "trial", "operator" = "operator"))
  dt <- dplyr::left_join(dt, ic, by = c("dbms" = "dbms", "trial" = "trial", "operator" = "operator"))
  return(dt)
}

#' FUNCTION: join_summarized_keep_ignore_data
#'
#' Join the summarized, model data for percentage of mutants kept and ignored per-operator.
#' @export

join_summarized_keep_ignore_data <- function(a, b) {
  dt <- dplyr::left_join(a, b, by = c("dbms" = "dbms",  "operator" = "operator"))
  return(dt)
}

#' FUNCTION: join_hill_climbing_size_data
#'
#' Join the data collected from different step sizes of the hill climbing reduction technique.
#' @export

join_hill_climbing_size_data <- function(s, m, l, step_size_small, step_size_medium, step_size_large) {
  # v <- v %>% dplyr::mutate(step_size = step_size_very_small)
  s <- s %>% dplyr::mutate(step_size = step_size_small)
  m <- m %>% dplyr::mutate(step_size = step_size_medium)
  l <- l %>% dplyr::mutate(step_size = step_size_large)
  dt <- rbind(s, m, l)
  # dt <- rbind(v, s, m, l)
  return(dt)
}

#' FUNCTION: join_schema_operator
#'
#' Join summarized data per-schema.
#' @export

join_schema_operator <- function(a, b) {
  dt <- dplyr::left_join(a, b, by = c("dbms" = "dbms",  "schema" = "schema"))
  return(dt)
}

#' FUNCTION: join_operator
#'
#' Join summarized data per-operator.
#' @export

join_operator <- function(a, b) {
  dt <- dplyr::left_join(a, b, by = c("dbms" = "dbms"))
  return(dt)
}

#' FUNCTION: join_technique_data
#'
#' Join together the data collected from each experiment campaign for each reduction technique.
#' @export

join_technique_data <- function(da, db, dc) {
  dt <- dplyr::bind_rows(da, db, dc)
  return(dt)
}

#' FUNCTION: join_by_technique
#'
#' Join two dataframes by the technique.
#' @export

join_by_technique <- function(a, b) {
  dt <- dplyr::left_join(a, b, by = c("dbms", "technique"))
  return(dt)
}

#' FUNCTION: join_by_technique_trial
#'
#' Join two dataframes by the technique and trial.
#' @export

join_by_technique_trial <- function(a, b) {
  dt <- dplyr::left_join(a, b, by = c("dbms", "technique", "trial"))
  return(dt)
}