Permalink
Cannot retrieve contributors at this time
| # | |
| # data.dr-sec.R, 10 Apr 20 | |
| # Data from: | |
| # Data-Driven Security: Analysis, Visualization and Dashboards | |
| # Jay Jacobs and Bob Rudis | |
| # | |
| # Example from: | |
| # Evidence-based Software Engineering: based on the publicly available data | |
| # Derek M. Jones | |
| # | |
| # TAG virus_reports UFO_reports | |
| source("ESEUR_config.r") | |
| par(mar=MAR_default+c(0.0, 0.7, 0, 0)) | |
| pal_col=rainbow(2) | |
| ip_ufo=read.csv(paste0(ESEUR_dir, "communicating/county-data.csv.xz"), as.is=TRUE) | |
| plot(ip_ufo$ufo2010, ip_ufo$ipaddr, log="xy", col=pal_col[2], | |
| xlab="UFO reports", ylab="Virus infections reported\n\n") | |
| ufo_mod=glm(log(ipaddr) ~ log(ufo2010), data=ip_ufo, | |
| subset=(ipaddr > 0) & (ufo2010 > 0)) | |
| # summary(ufo_mod) | |
| x_bounds=1:500 | |
| pred=predict(ufo_mod, newdata=data.frame(ufo2010=x_bounds)) | |
| lines(x_bounds, exp(pred), col=pal_col[1]) | |