Matthew Lincoln mdlincoln

## counts.csv

          
            year
            nationality
            artists_strict

            
              1550
              Flemish
              67

            
              1550
              Dutch
              38

            
              1551
              Flemish
              66

            
              1551
              Dutch
              38

            
              1552
              Flemish
              70

            
              1552
              Dutch
              37

            
              1553
              Flemish
              72

            
              1553
              Dutch
              37

            
              1554
              Flemish
              76

## yday_months.R
yday_months_x <- scale_x_discrete(breaks = cumsum(c(31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31)), labels = month.name)

## replace_each.R
#' Replace all matching values
#'
#' @param v Vector whose values are to be replaced
#' @param pairs A named vector of replacements
#' @export
#' @examples
#' x <- c("a", "a", "b", "c")
#' p <- c("a" = "alpha", "b" = "beta")
#' replace_each(x, p)
replace_each <- function(v, pairs) {

## pick-your-poison.R
msg <- function(..., prob = 0.25) {
  if (runif(1) > prob) {
    return(invisible())
  }

  messages <- c(...)
  message(sample(messages, 1))
}

encourage <- function() {

## rotate_labels.R
theme(axis.text.x = element_text(angle = 45, hjust = 1))

## mogrify.sh
convert image -density 300 -units pixelsperinch outimage

## gist:f2b660851b14f3a455f9
<?
/////////////////////
// slack2html
// by @levelsio
/////////////////////
//
/////////////////////
// WHAT DOES THIS DO?
/////////////////////
//

## spaces.sh
# Friends don't let friends use
# two spaces after a period
sed -e 's/\.  /. /g'

## europop.R
library(devtools)

install_github("mdlincoln/europop")

library(europop)
library(dplyr)
library(rgdal)
library(ggplot2)
library(animation)

## range_simulation.R
library(ggplot2)
library(dplyr)
library(animation)

load(url("http://matthewlincoln.net/assets/docs/sim_data.rda"))

saveGIF({
  # We want one frame per replication
  for(i in 1:max(bm_raw_sims$r)) {
year	nationality	artists_strict
1550	Flemish	67
1550	Dutch	38
1551	Flemish	66
1551	Dutch	38
1552	Flemish	70
1552	Dutch	37
1553	Flemish	72
1553	Dutch	37
1554	Flemish	76
	#' Replace all matching values
	#'
	#' @param v Vector whose values are to be replaced
	#' @param pairs A named vector of replacements
	#' @export
	#' @examples
	#' x <- c("a", "a", "b", "c")
	#' p <- c("a" = "alpha", "b" = "beta")
	#' replace_each(x, p)
	replace_each <- function(v, pairs) {
	msg <- function(..., prob = 0.25) {
	if (runif(1) > prob) {
	return(invisible())
	}

	messages <- c(...)
	message(sample(messages, 1))
	}

	encourage <- function() {
	<?
	/////////////////////
	// slack2html
	// by @levelsio
	/////////////////////
	//
	/////////////////////
	// WHAT DOES THIS DO?
	/////////////////////
	//
	# Friends don't let friends use
	# two spaces after a period
	sed -e 's/\. /. /g'
	library(devtools)

	install_github("mdlincoln/europop")

	library(europop)
	library(dplyr)
	library(rgdal)
	library(ggplot2)
	library(animation)