Permalink
Switch branches/tags
Nothing to show
Find file Copy path
Fetching contributors…
Cannot retrieve contributors at this time
8 lines (6 sloc) 235 Bytes
ct_male_contrib <- table(X$Contributed.to.CPAN[X$Gender=="male"])
ct_female_contrib <- table(X$Contributed.to.CPAN[X$Gender=="female"])
list(
ct_male_contrib/sum(ct_male_contrib) * 100
ct_female_contrib/sum(ct_female_contrib) * 100
)