
Gerar os intervalos e usar cut() com tapply() ### Criando o objeto com datas e a variável climática x <- as.Date("1994-01-01") times <- 1:2865 datas <- x+times datas <- as.data.frame(datas)##Cria o vetor data de 01/01/1994 a 5/11/2001 variavel <- rnorm(2865)## Simula a variável medida no dia dados <- cbind(datas,variavel)##Cria o objeto str(dados) # sequência do dia 1 de cada mês min(dados$data) max(dados$data) x1 <- seq(from=as.Date("1994-01-01"), to=as.Date("2001-11-30"), "month") str(x1) # sequência do dia 15 de cada mês x2 <- seq(as.Date("1994-01-15"), as.Date("2001-11-30"), "month") str(x2) # sequência de datas para corte x <- sort(c(x1,x2)) str(x) xx <- cut(dados$data, x) str(xx) tapply(dados$variavel, xx, length) tapply(dados$variavel, xx, mean) À disposição. Walmes. ========================================================================== 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 VoIP: (3361 3600) 1053 1173 e-mail: walmes@ufpr.br twitter: @walmeszeviani homepage: http://www.leg.ufpr.br/~walmes linux user number: 531218 ==========================================================================