usage.R
In evaluator: Quantified Risk Assessment Toolkit

## ----setup, include=FALSE-----------------------------------------------------
library(tibble)
library(dplyr)
library(pander)

## ----quick_start, eval=FALSE--------------------------------------------------
#  base_dir <- "~/evaluator"
#  source("~/evaluator/run_analysis.R")

## ----import, eval=FALSE-------------------------------------------------------
#  domains <- readr::read_csv("~/evaluator/inputs/domains.csv")
#  import_spreadsheet("~/evaluator/inputs/survey.xlsx", domains, output_dir = "~/evaluator/inputs")

## ----validate, eval=FALSE-----------------------------------------------------
#  qualitative_scenarios <- readr::read_csv("~/evaluator/inputs/qualitative_scenarios.csv")
#  mappings <- readr::read_csv("~/evaluator/inputs/qualitative_mappings.csv")
#  capabilities <- readr::read_csv("~/evaluator/inputs/capabilities.csv")
#  validate_scenarios(qualitative_scenarios, capabilities, domains, mappings)

## ----encode, eval = FALSE-----------------------------------------------------
#  quantitative_scenarios <- encode_scenarios(qualitative_scenarios,
#                                             capabilities, mappings)

## ----simulate, eval = FALSE---------------------------------------------------
#  simulation_results <- run_simulations(quantitative_scenarios,
#                                        iterations = 100L)
#  saveRDS(simulation_results, file = "~/evaluator/results/simulation_results.rds")

## ----summarize, eval=FALSE----------------------------------------------------
#  summarize_to_disk(simulation_results = simulation_results,
#                    results_dir = "~/evaluator/results")

## ----data_files, eval = TRUE, echo=FALSE--------------------------------------
tibble::tribble(
    ~"Data File", ~Purpose,
    "simulation_results.rds", "Full details of each simulated scenario",
    "scenario_summary.rds", "Simulation results, summarized at the scenario level",
    "domain_summary.rds", "Simulation results, summarized at the domain level"
) %>% pander::pander(., justify = "left")

## ----analyze, eval=FALSE------------------------------------------------------
#  # Explorer
#  explore_scenarios(input_directory = "~/evaluator/inputs",
#                    results_directory = "~/evaluator/results")
#  
#  # Risk Dashboard
#  risk_dashboard(input_directory = "~/evaluator/inputs",
#                 output_directory = "~/evaluator/results",
#                 "~/evaluator/risk_dashboard.html")
#  
#  # Sample Report
#  generate_report(input_directory = "~/evaluator/inputs",
#                  results_directory = "~/evaluator/results",
#                  "~/evaluator/risk_report.html") %>% rstudioapi::viewer()