R help - Aug 2010 - navel-gazing

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)))

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]]