ribsy
ribsy
/ ABTestingGenerativeModel.R
Last active
July 15, 2022 14:34
This is a simple probabilistic programming example for AB testing security products. Its merely a simple starter example...with more to come. You can read more about this at https://www.soluble.ai/blog/security_budgets_at_risk
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| #' --- | |
| #' title: 3 Metrics For Getting Better Security ROI | |
| #' author: Richard Seiersen | |
| #' date: June 4, 2020 | |
| #' output: | |
| #' html_document: | |
| #' toc: true | |
| #' highlight: zenburn |
ribsy
/ ians_training_functions.R
Last active
July 15, 2022 14:33
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| my_packages <- c("tidyverse", "lubridate", "survival", "survminer", | |
| "ProbBayes", "Bolstad", "ggplot2", "devtools", | |
| "mc2d", "bayestestR", "scales", "knitr") | |
| not_installed <- | |
| my_packages[!(my_packages %in% installed.packages()[ , "Package"])] | |
| if (length(not_installed)){ | |
| msgVal = paste("Install packages: ",toString(not_installed)) | |
ribsy
/ manifesto_functions.R
Last active
May 25, 2023 12:38
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| my_packages <- c("tidyverse", "lubridate", "survival", "survminer", | |
| "ProbBayes", "Bolstad", "ggplot2", "devtools", | |
| "mc2d", "bayestestR", "scales", "knitr", "ggridges", | |
| "simstudy", "betareg", "data.table", "boot", "broom", | |
| "stats4","jsonlite","tidybayes","bayesplot", "BayesFactor", | |
| "rstanarm") | |
| not_installed <- | |
| my_packages[!(my_packages %in% installed.packages()[ , "Package"])] |
ribsy
/ chapter_two_scripts.R
Created
April 19, 2022 00:26
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| library(tidyverse) | |
| library(lubridate) | |
| library(survival) | |
| library(survminer) | |
| ############################# | |
| ### Making A Life Table In R! | |
| # Step 1: Get Data | |
| tmm <-read.csv( |
ribsy
/ chapter_three_scripts.R
Created
April 19, 2022 00:31
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| source("manifesto_functions.R") | |
| ############################# | |
| ### Phish In 15 Lines of Code | |
| ## Simple ABCs of Phishing | |
| # Make lot's of phish | |
| sim_phish <- 1000000 |
ribsy
/ chapter_four_scripts.R
Created
April 19, 2022 01:44
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| source("manifesto_functions.R") | |
| ################## | |
| ### Get Small Data | |
| #Engineer One and Two Remediation Rate Beliefs | |
| eng_one <- c(4,7) #Median and 90% Stretch | |
| eng_two <- c(2,4) |
ribsy
/ chapter_five_scripts.R
Created
April 19, 2022 01:46
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| source("manifesto_functions.R") | |
| ############################################## | |
| ### Introduction: Random Bombs and Horse Kicks | |
| # Bomb Narrative | |
| bombs <- tibble(hits = c(0,1,2,3,4,5), | |
| frequency = c(229, 211, 93, 35, 7, 1), | |
| ratio = frequency/sum(frequency)) | |
| bombs |
ribsy
/ chapter_six_scripts.R
Created
April 19, 2022 01:47
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| source("manifesto_functions.R") | |
| ########################### | |
| ### Non-Bayesian Wait Times | |
| # Number of product teams | |
| group_count = 10 | |
| # Empty Data Frame to hold results | |
| dt <- tibble() |
ribsy
/ chapter_seven_scripts.R
Created
April 19, 2022 02:00
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| source("manifesto_functions.R") | |
| ###################### | |
| ### Naive Escape Rates | |
| MakeBetaGraph(10, 100, xlab = "Rate", ylab = "Strength", | |
| tlab = "January Escape Rates", | |
| slab = "Mean and Highest Density Interval", xadj = .001) |
ribsy
/ chapter_eight_scripts.R
Created
April 19, 2022 02:01
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| source("manifesto_functions.R") | |
| ######################### | |
| ### Beta-Binomial Example | |
| # Make grid of 10K sequential possibilities between 0 to 1 | |
| plausible_rates <- data.frame( | |
| possible_grid = seq(from = 0, to = 1, length = 10000)) | |
OlderNewer