Permalink
Cannot retrieve contributors at this time
# | |
# office-faults.R, 29 Feb 20 | |
# Data from: | |
# Showing How Security Has (And Hasn't) Improved, After Ten Years Of Trying | |
# Dan Kaminsky and Michael Eddington and Adam Cecchetti | |
# | |
# Example from: | |
# Evidence-based Software Engineering: based on the publicly available data | |
# Derek M. Jones | |
# | |
# TAG Office_faults fuzzing | |
source("ESEUR_config.r") | |
library("plyr") | |
library("SpadeR") | |
library("ggplot2") | |
library("iNEXT") # defines its own ChaoSpecies function | |
major_count=function(df) | |
{ | |
W_df=subset(df, TargetName == "Word") | |
return(count(W_df$MajorHash)) | |
} | |
pal_col=rainbow(5) | |
fuzz=read.csv(paste0(ESEUR_dir, "reliability/fuzzmark-office-pdf-11-Mar-2011.tsv.xz"), sep="\t", as.is=TRUE) | |
y2003=subset(fuzz, Year == 2003) | |
y2007=subset(fuzz, Year == 2007) | |
y2010=subset(fuzz, Year == 2010) | |
w03=major_count(y2003) | |
w07=major_count(y2007) | |
w10=major_count(y2010) | |
office_releases=list("y2003"=w03$freq, "2007"=w07$freq, "y2010"=w10$freq) | |
w03_pred=ChaoSpecies(w03$freq, datatype = "abundance") | |
w07_pred=ChaoSpecies(w07$freq, datatype = "abundance") | |
w10_pred=ChaoSpecies(w10$freq, datatype = "abundance") | |
off_pop=iNEXT(office_releases, endpoint=5e4) | |
t=ggiNEXT(off_pop, type=1)+ | |
scale_x_continuous(expand=c(0,0))+ | |
scale_y_continuous(expand=c(0,0))+ | |
theme(legend.position=c(0.15, 0.85), | |
panel.background=element_rect(fill="white", | |
color="grey50")) | |
plot(t) | |