mdlincoln

row_rep <- function(df, n) {
  df[rep(1:nrow(df), times = n),]
}

mdlincoln

<?
/////////////////////
// slack2html
// by @levelsio
/////////////////////
//
/////////////////////
// WHAT DOES THIS DO?
/////////////////////
//

mdlincoln

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

mdlincoln

library(devtools)

install_github("mdlincoln/europop")

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

mdlincoln

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)) {

mdlincoln

doc_data <- function(d) {
  # Get column names and types
  vartype <- vapply(d, typeof, FUN.VALUE = character(1))
  
  # Write individual item description templates
  items <- paste0("#\'   \\item{\\code{", names(vartype), "}}{", vartype, ". ###}", collapse = "\n")
  
  # Return the full documentation template
  paste0("#\' DATASET TITLE
#\' 

mdlincoln

mdlincoln

library(igraph)
library(dplyr)

# Assume you have a dataframe "objects" with columns "object_id", "artist_id", "date"
# Create an identical table that just gives a new variable name to "artist_id"
flipped_objects <- objects %>% rename(artist_id = artist2_id)

# Join the tables together (essentially joining objects to itself, creating every combination
# of artist that share an object_id and date
edges <- objects %>%

mdlincoln

Keybase proof

I hereby claim:

• I am mdlincoln on github.
• I am mdlincoln (https://keybase.io/mdlincoln) on keybase.
• I have a public key whose fingerprint is 5271 D84C 193A 4B9B 945C D4AA D3AB 2911 2CAD 6E14

To claim this, I am signing this object:

mdlincoln

Keybase proof

I hereby claim:

• I am mdlincoln on github.
• I am mdlincoln (https://keybase.io/mdlincoln) on keybase.
• I have a public key whose fingerprint is 5271 D84C 193A 4B9B 945C D4AA D3AB 2911 2CAD 6E14

To claim this, I am signing this object: