| library('devtools') | |
| library('utils') | |
| library('httr') | |
| update_github <- | |
| function(ask = TRUE, ...){ | |
| installed <- installed.packages() | |
| oldVersion <- installed[,'Version'] | |
| urls <- sapply(names(oldVersion), function(x){ | |
| d <- packageDescription(x) |
| #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 |
Notes:
I've tried to break up in to separate pieces, but it's not always possible: e.g. knowledge of data structures and subsetting are tidy intertwined.
Level of Bloom's taxonomy listed in square brackets, e.g. http://bit.ly/15gqPEx. Few categories currently assess components higher in the taxonomy.
| --- | |
| output: html_document | |
| editor_options: | |
| chunk_output_type: console | |
| --- | |
| ## Load Packages | |
| ```{r} | |
| setwd(here::here('streep_map_game/')) |
| # Function to rarefy point data in any number of dimensions. The goal here is to | |
| # take a large data set and reduce it in size in such a way as to approximately maximize the | |
| # difference between points. For instance, if you have 2000 points but suspect a lot of | |
| # spatial autocorrelation between them, you can pass in your data frame, the names (or indices) | |
| # of the lat/lon columns, and the number 200, and you get back 200 points from your original data | |
| # set that are chosen to be as different from each other as possible given a randomly chosen | |
| # starting point | |
| # Input is: | |
| # |
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.
| # 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) |
| 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())) { |