Lucas e colegas, bom dia!

Tem que operar com as datas no formato interno do R, só transformando pra visualizar.

Defini as datas de corte nas vars data.ini e data.fim...

Alterei todos os valores de p1$num para '1', então se a soma estiver correta corresponderá ao número de eventos selecionados.

Aqui deu certo! ;D

####################

#Criando intervalo de datas

Data<-seq(from=as.Date('01/01/1980',format='%d/%m/%Y'),to=as.Date('31/12/1980',format='%d/%m/%Y'),by='day')

#transformando em data frame

p1 <- data.frame(Data)

p1$num <- 1

str(p1)

data.ini <- as.Date('11/11/1980',format='%d/%m/%Y')

data.fim <- as.Date('11/12/1980',format='%d/%m/%Y')

data.dif <- data.fim-data.ini+1; data.dif

#somando valores em um intervalo definido

sum(p1$num[p1$Data >= data.ini & p1$Data <= data.fim])

####################