Skip to content

Instantly share code, notes, and snippets.

View kztakuro's full-sized avatar
🐶

Takuro Kazumi kztakuro

🐶
  • Cyberagent, Inc.
View GitHub Profile
summary_se = function(data, measurevar, idvar, betweenvars) {
require('dplyr')
require('lazyeval')
summarized = data %>%
group_by_(.dots=c(idvar, betweenvars)) %>%
dplyr::summarise_(.dots = list(
MeasureVar = interp( ~mean( MEASUREVAR, na.rm=TRUE), MEASUREVAR = as.name(measurevar) )
)) %>%
ungroup() %>%
@kztakuro
kztakuro / cyberagent_advent_calendar2015_21.md
Last active December 21, 2015 10:45
CyberAgent エンジニア Advent Calendar 2015 21日目
@kztakuro
kztakuro / cyberagent_advent_calendar2014_21.md
Last active November 25, 2015 08:58
CyberAgent エンジニア Advent Calendar 2014 21日目