[R-br] [OFF-Topic] Dados climáticos de Paris durante maratona de 20 km

[walmes .]

Jackson,

Excelente. Com suas dicas eu consegui tirar os dados que eu precisava.
Abaixo segue um CMR, para quem se sentir curioso, que lê as tabelas por
meio da url correspondente aos dias da maratona e no final calcula algumas
estatísticas canditadas à relacionar com o desempenho dos atletas.

Grato.
Walmes.

#-----------------------------------------------------------------------------
# Lê tabelas de clima nos dias da maratona de Paris.

ini <- "http://www.wunderground.com/history/airport/LFPB/"
fim <- "/DailyHistory.html??format=1&format=1"
dia <- c("2012/10/14")

# padrão do endereço das tabelas
url <- paste(ini, dia, fim, sep="")

da <- read.table(url, sep=",", header=TRUE,
                 na.string=c("N/A","-","","-9999"))
str(da)

#----------------------------------------------------------------------------
## Datas do evento.

## http://www.20kmparis.com/web/affiches.asp

dias <- c("2012/10/14","2011/10/9","2010/10/10",
          "2009/10/11","2008/10/12","2007/10/17",
          "2006/10/15","2005/10/16","2004/10/17")

lercada <- function(dia){
    ini <- "http://www.wunderground.com/history/airport/LFPB/"
    fim <- "/DailyHistory.html??format=1&format=1"
    url <- paste(ini, dia, fim, sep="")
    da <- read.table(url, sep=",", header=TRUE,
                     na.string=c("N/A","-","","-9999"))
    cat(dia, "\t ok!\n")
    return(da)
}

L <- lapply(dias, lercada)
sapply(L, class)
sapply(L, dim)
sapply(L, names)

names(L) <- 2012:2004

#-----------------------------------------------------------------------------

require(plyr)

M <- ldply(L)
str(M)
names(M)[1] <- "ano"

aggregate(cbind(TemperatureC,Humidity)~ano, data=M, max)
aggregate(cbind(TemperatureC,Humidity)~ano, data=M, mean)
aggregate(cbind(TemperatureC,Humidity)~ano, data=M, median)

#-----------------------------------------------------------------------------

==========================================================================
Walmes Marques Zeviani
LEG (Laboratório de Estatística e Geoinformação, 25.450418 S, 49.231759 W)
Departamento de Estatística - Universidade Federal do Paraná
fone: (+55) 41 3361 3573
skype: walmeszeviani
homepage: http://www.leg.ufpr.br/~walmes
linux user number: 531218
==========================================================================
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20131004/12c92111/attachment.html>