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 <bbol...@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]]
______________________________________________ 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.
