<html><head><style type='text/css'>p { margin: 0; }</style></head><body><div style='font-family: times new roman,new york,times,serif; font-size: 12pt; color: #000000'>Bom dia.<br><br>Estou precisando somar os valores de uma coluna em um intervalo pre-definido por mim. Por exemplo: tenho alguns valores referentes a algumas datas. Preciso somar alguns valores no período compreendio entre 11/11/1980 e 11/12/1980, conforme exemplo abaixo.<br>Tentei fazer algumas coisas (abaixo) mas aparece o erro (tb abaixo).<br>Só para lembrar, utilizo a data no formato americano e quando a faço a transformação, ela fica como character.<br>Obriagdo pela ajuda<br>Lucas<br><br><br>#Criando intervalo de datas<br>Data<-seq(from =as.Date('01/01/1980',format='%d/%m/%Y'),to=as.Date('31/12/1980',format='%d/%m/%Y'),by='day')<br>#transformando em data frame<br>p1 <- data.frame(Data)<br>#colocando a data no formato americano que eu utilizo<br>p1$Data <- as.Date(p1$Data, "%d/%m/%Y")<br>p1$Data <- strftime(p1$Data, "%m/%d/%Y")<br>#criando tabela de valores<br>p1$num <- 1:366<br><br>#somando valores em um intervalo definido<br>soma <- with(p1, sum(p1[p1$Data >= 11/11/1980 & p1$Data <= 11/12/1980, p1$num]))<br>Error in `[.data.frame`(p1, p1$Data >= 11/11/1980 & p1$Data <= 11/12/1980, :<br> undefined columns selected<br><br>sum(which(p1$num[p1$Data >= '11/11/1980'] & p1$num[p1$Data <= '11/12/1980']))<br>erro: longer object length is not a multiple of shorter object length<br><br><div><span name="x"></span>Lucas F. de Souza<br>Eng. Agrícola - CONAB<br>M.Sc. Produção Vegetal - UENF<br>Doutorando Engenharia de Sistemas Agrícolas - ESALQ/USP<br>tel: (19) 8160-7068<span name="x"></span><br></div><br></div></body></html>