Olá Inajara
cole as colunas, ano, mes e
dia e depois converta para a classe date.
exemplo:
x <-
expand.grid(ano=2000,mes=1, dia=1:31)
## gerando dados de chuva
x$Precip
<- sample(c(0,1), 31, replace=T)
## adicionando coluna "date" ao
dataframe
x$date <- as.Date(do.call("paste", c(x[,1:3],
sep="-")))
require(seas)
CCS <- interarrival(x,
var="Precip",inv=T)
## inv = T, a data de saída corresponde a data do
primeiro dia seco da sequencia de dias secos
## a variável de interesse no
seu caso é a "dry"
CCS
date dry wet
1
2000-01-02 1 NA
2 2000-01-04 2
1
3 2000-01-07 2 1
4 2000-01-13
1 4
5 2000-01-17 2 3
6
2000-01-21 1 2
7 2000-01-23
2 1
8 2000-01-26 1 1
[
]'s