| --- | |
| output: html_document | |
| editor_options: | |
| chunk_output_type: console | |
| --- | |
| ## Load Packages | |
| ```{r} | |
| setwd(here::here('streep_map_game/')) |
| #Create an explicit binomially distributed set of numbers | |
| n = 1000 | |
| frac = 0.9 | |
| x = rep(c(1,0),times = c(n*frac, n*(1-frac))) | |
| #Fit a Gaussian model and a binomial model to the same data | |
| gauss_mod = glm(x~1,family = gaussian) | |
| binom_mod = glm(x~1, family= binomial) | |
| #Compare AIC |
| # another method | |
| # remotes::install_github("ropenscilabs/reviewer") | |
| browseURL(reviewer::diff_rmd("analysis/paper/paper.qmd", | |
| # this gets the sha of the previous commit | |
| git2r::commits(n=2)[[2]]$sha)$raw) |
| # install the experimental parallel branch | |
| # remotes::install_github("zoonproject/zoon@parallel") | |
| library (zoon) | |
| # example workflow for 4 independent models that may take a while to run | |
| run_wf <- function () { | |
| workflow(occurrence = UKAnophelesPlumbeus, | |
| covariate = UKBioclim, | |
| process = Replicate(Background(n = 1000), 4), | |
| model = GBM(max.trees = 10000), |
| # require(devtools) | |
| # install_github('SevillaR/Andaclima') | |
| require(Andaclima) | |
| rm(list = ls()) | |
| stations <- getAndalusia_ACS() | |
| metainfo <- getMetaData(provincia = stations$province.code, | |
| estacion = stations$station.code , |
| install.packages('zoon') | |
| library(zoon) | |
| vignette('Building_a_module') | |
| ############# | |
| ## Simples ## | |
| ############# |
| --- | |
| title: "Untitled" | |
| author: "Jeff W. Hollister" | |
| date: "2/2/2016" | |
| output: beamer_presentation | |
| --- | |
| ```{r setup, include=FALSE} | |
| knitr::opts_chunk$set(echo = FALSE) |
A lot of important government documents are created and saved in Microsoft Word (*.docx). But Microsoft Word is a proprietary format, and it's not really useful for presenting documents on the web. So, I wanted to find a way to convert a .docx file into markdown.
On a mac you can use homebrew by running the command brew install pandoc.
| belief | y2015 | y2014 | |
|---|---|---|---|
| Improves the security posture of my organization | 0.75 | 0.71 | |
| Improves the security posture of the nations critical infrastructure | 0.63 | 0.64 | |
| Reduces the cost of detecting and preventing cyber attacks | 0.22 | 0.21 | |
| Improves situational awareness | 0.60 | 0.54 | |
| Fosters collaboration among peers and industry groups | 0.48 | 0.51 | |
| Enhances the timeliness of threat data | 0.11 | 0.16 | |
| Makes threat data more actionable | 0.21 | 0.24 |
| diverge0 <- function(p, ramp) { | |
| # p: a trellis object resulting from rasterVis::levelplot | |
| # ramp: the name of an RColorBrewer palette (as character), a character | |
| # vector of colour names to interpolate, or a colorRampPalette. | |
| require(RColorBrewer) | |
| require(rasterVis) | |
| if(length(ramp)==1 && is.character(ramp) && ramp %in% | |
| row.names(brewer.pal.info)) { | |
| ramp <- suppressWarnings(colorRampPalette(brewer.pal(11, ramp))) | |
| } else if(length(ramp) > 1 && is.character(ramp) && all(ramp %in% colors())) { |