#' FUNCTION: evaluate_original_data_per_dbms
#'
#' Evaluate the data prior to performing a reduction technique.
#' @export
evaluate_original_data_per_dbms <- function(d) {
d <- d %>% collect_dbms_data()
original_numerator <- d %>% transform_killed_count()
original_denominator <- d %>% transform_total_count()
dt <- dplyr::left_join(original_numerator, original_denominator, by = c("dbms" = "dbms"))
dt <- dt %>% transform_mutation_score()
return(dt)
}
#' FUNCTION: evaluate_original_data_per_schema
#'
#' Evaluate the data prior to performing a reduction technique on a per schema basis.
#' @export
evaluate_original_data_per_schema <- function(d) {
d <- d %>% collect_schema_data()
original_numerator <- d %>% transform_killed_count()
original_denominator <- d %>% transform_total_count()
dt <- join_schema_operator(original_numerator, original_denominator)
dt <- dt %>% transform_mutation_score()
return(dt)
}
#' FUNCTION: evaluate_reduction_technique
#'
#' Evaluate the effectiveness of a reduction technique given the original (pre-reduction data) and the reduced data
#' @export
evaluate_reduction_technique <- function(o, r) {
reduced_numerator <- r %>% transform_reduced_killed_count()
reduced_denominator <- r %>% transform_reduced_total_count()
original_numerator <- o %>% transform_original_killed_count()
original_denominator <- o %>% transform_original_total_count()
reduced_time <- r %>% summarize_reduced_time()
original_time <- o %>% summarize_original_time()
dt <- join_numerator_denominator_time_data(reduced_numerator, reduced_denominator, original_numerator, original_denominator, reduced_time, original_time)
dt <- dt %>% transform_cost_reduction() %>%
transform_reduced_mutation_score() %>%
transform_original_mutation_score() %>%
transform_error()
return(dt)
}
#' FUNCTION: evaluate_reduction_technique_across
#'
#' Evaluate the effectiveness of a reduction technique given the original (pre-reduction data) and the reduced data
#' @export
evaluate_reduction_technique_across <- function(o, r, s) {
reduced_numerator <- r %>% transform_reduced_killed_count()
reduced_denominator <- r %>% transform_reduced_total_count()
original_numerator <- o %>% transform_original_killed_count()
original_denominator <- o %>% transform_original_total_count()
reduced_time <- r %>% summarize_reduced_time()
original_time <- o %>% summarize_original_time()
dt <- join_numerator_denominator_time_data(reduced_numerator, reduced_denominator, original_numerator, original_denominator, reduced_time, original_time)
dt <- dt %>% transform_cost_reduction() %>%
transform_reduced_mutation_score() %>%
transform_original_mutation_score() %>%
transform_add_step(s) %>%
transform_error()
return(dt)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.