Skip to content

Instantly share code, notes, and snippets.

@szilard

szilard/dsla_raffle.R

Created August 9, 2014 08:01
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save szilard/78500494d7cd422dceda to your computer and use it in GitHub Desktop.
Save szilard/78500494d7cd422dceda to your computer and use it in GitHub Desktop.
Download ZIP
DSLA raffles
Raw
dsla_raffle.R
library(dplyr)
read.csv("members_export.csv") %>%
mutate(pcrnk = percent_rank(CONFIRM_TIME), wdbl = ifelse(LinkedIn!="",2,1),
w = (3-2*pcrnk)*wdbl) %>%
sample_n(30, weight = w) %>%
mutate(name = paste(First.Name,Last.Name)) %>% select(name)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment