df <-
df %>%
group_by( ein ) %>%
mutate( num.ceos = sum( grepl( "CEO", title.standard ) ),
pay.rank = rank(TOT.COMP)
pay.pct = TOT.COMP/max(TOT.COMP, na.rm=T) ) %>%
ungroup()
# number of DTKs n=n()
# pay rank
# pay pct total
# hour rank
# hour pct total
# number of paid members? # what is paid? more than zero, or more than X?
# number of FTE members? # FTE is hours > 30
# number of ceos
# number of board pres
# number of board treas
# number of board sec
# number of board members
### rev > X?