Skip to content

Instantly share code, notes, and snippets.

Kirill Sevastyanenko kirillseva

View GitHub Profile
@kirillseva
kirillseva / simulation.R
Last active Jul 12, 2017
People in a room giving dollars to random others
View simulation.R
library(animation)
library(gganimate)
library(ggplot2)
library(ggthemr)
library(magrittr)
library(tweenr)
library(reshape2)
## Configurable parameters
NUM_PEOPLE = 45
@kirillseva
kirillseva / rownames.R
Created Jun 13, 2016
I hate rownames
View rownames.R
R-STABLE> a <- data.frame(a=1:5, b=head(letters, 5))
R-STABLE> a
a b
1 1 a
2 2 b
3 3 c
4 4 d
5 5 e
R-STABLE> b <- a[c(1,3,5),]
R-STABLE> b
You can’t perform that action at this time.