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 postin
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!
__
R-devel@r-project.org mailing list
https://stat.e
