ribsy

source("manifesto_functions.R")

### OPTIONAL A/B Case Study
### Code Slide #1

# Declare list to hold configurations
base_configs <- list()

# Amount of simulation
base_configs["n_draws"] <- 100000

ribsy

source("manifesto_functions.R")

################
### Introduction

patches <- 0:20
average <- 23/4
plot(p, dpois(patches, average), type="h", lwd=3, 
     ylab="Probability Of Emergency Patch",
     xlab="Count Of Emergency Patches")

ribsy

source("helper_functions.R")

#30MB File Upload
options(shiny.maxRequestSize = 30*1024^2)

ui <- dashboardPage(
  title="Vuln Burndown",
  
  dashboardHeader(title = "Vulnerability Burndown"),

ribsy

# Package names
packages <- c("readr", "tidyverse", "lubridate", "survival", "survminer", "shiny", "shinydashboard","reactable","shinyalert")

# Install packages not yet installed
installed_packages <- packages %in% rownames(installed.packages())
if (any(installed_packages == FALSE)) {
  install.packages(packages[!installed_packages])
}

ribsy

library(tidyverse)
library(bayestestR)
library(bayesAB)

# See Manifesto Functions at www.themetricsmanifesto.com
# Put in your same working director
source("manifesto_functions.R")


bayesPhishArrive <- function(prior_vals = c(5,1), total_vals = c(87,12)){