[R] navel-gazing

[Brian Diggs]

Since Peter Dalgaard is splitting his considerable contributions between 
"Peter Dalgaard" and "peter dalgaard", I made the following changes 
(which shouldn't be a problem unless e e cummings becomes a regular poster):

# from base::chartr documentation
capwords <- function(s, strict = FALSE) {
     cap <- function(s) paste(toupper(substring(s,1,1)),
                   {s <- substring(s,2); if(strict) tolower(s) else s},
                              sep = "", collapse = " " )
     sapply(strsplit(s, split = " "), cap, USE.NAMES = !is.null(names(s)))
}

cnames <- capwords(sapply(zz[3:(length(zz)-1)],namefun))



On 8/17/2010 10:00 AM, Henrique Dallazuanna wrote:
> Ben,
>
> I change the line:
>
> z<- getURL(paste(baseurl,list,"/", month,"/author.html",sep=""))
>
> to
>
> z<- getURL(paste(baseurl,list,"/", month,"/author.html",sep=""),
> ssl.verifypeer = FALSE)
>
> because don't work for me.
>
> Nice!
>
> On Tue, Aug 17, 2010 at 1:47 PM, Ben Bolker<bbolker at gmail.com>  wrote:
>
>> month<- "2010-August"
>> list<- "r-help"
>> ##list<- "r-sig-ecology"
>> ##list<- "r-sig-mixed-models"
>> ## month<- "2010q3"
>> n<- 50
>> baseurl<- "https://stat.ethz.ch/pipermail/"
>> library(RCurl)
>> z<- getURL(paste(baseurl,list,"/",month,"/author.html",sep=""))
>> zz<- strsplit(z,"<LI>")[[1]]
>> namefun<- function(x) {
>>   gsub("\\n","",gsub("^.+<I>","",gsub("</I>.+$","",x)))
>> }
>>
>> cnames<- sapply(zz[3:(length(zz)-1)],namefun)
>> rr<- rev(sort(table(cnames)))
>>
>>
>> library(lattice)
>> dotplot(~rev(rr[1:n]),xlab="Number of posts")
>>
>> dotplot(~rev(rr[1:n]),xlab="Number of posts",
>>         scales=list(x=list(log=10)))
>>
>> ______________________________________________
>> R-help at r-project.org mailing list
>> https://stat.ethz.ch/mailman/listinfo/r-help
>> PLEASE do read the posting guide
>> http://www.R-project.org/posting-guide.html
>> and provide commented, minimal, self-contained, reproducible code.
>>
>
>
>

--
Brian Diggs
Senior Research Associate, Department of Surgery, Oregon Health & 
Science University