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@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@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.
>



-- 
Henrique Dallazuanna
Curitiba-Paraná-Brasil
25° 25' 40" S 49° 16' 22" O

	[[alternative HTML version deleted]]

