# NOT RUN {
empirical <- data.frame(
"key" = c("false_negative_alignment_hits", "false_discovery"),
"value" = c("<0.0010", "<0.05"),
stringsAsFactors = FALSE
)
algorithmic <- data.frame(
"key" = c("false_positive_mutation_calls", "false_discovery"),
"value" = c("<0.00005", "0.005"),
stringsAsFactors = FALSE
)
compose_error(empirical, algorithmic) %>% convert_json()
# }
Run the code above in your browser using DataLab