x = readLines("http://developer.r-project.org/R.svnlog.2007")
rx = x[grep("^r",x)]
who = gsub("
","",sapply(strsplit(rx,"\\|"),"[",2))
twho = table(who)
twho["ripley"]/sum(twho)
74% of all commits!
Ben Bolker wrote:> x = readLines("http://developer.r-project.org/R.svnlog.2007") > rx = x[grep("^r",x)] > who = gsub(" ","",sapply(strsplit(rx,"\\|"),"[",2)) > twho = table(who) > twho["ripley"]/sum(twho) > > 74% of all commits!And 99% of all 'This is not a bug/You have not read the posting guide' messages! Which is a good thing. Barry