<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=Content-Type content="text/html; charset=windows-1252">
<META content="MSHTML 6.00.2900.3429" name=GENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=#ffffff>
<DIV><FONT face=Arial color=#0000ff>Como baixo este pacote seas, tentei baixar e 
diz que não existe para R14.0</FONT></DIV>
<BLOCKQUOTE 
style="PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
  <DIV style="FONT: 10pt arial">Olá Inajara<BR><BR>cole as colunas, ano, mes e 
  dia e depois converta para a classe date.<BR>exemplo:<BR><BR>x <- 
  expand.grid(ano=2000,mes=1, dia=1:31)<BR>## gerando dados de chuva<BR>x$Precip 
  <- sample(c(0,1), 31, replace=T)<BR><BR>## adicionando coluna "date" ao 
  dataframe<BR>x$date <- as.Date(do.call("paste", c(x[,1:3], 
  sep="-")))<BR><BR>require(seas)<BR><BR>CCS <- interarrival(x, 
  var="Precip",inv=T)<BR>## inv = T, a data de saída corresponde a data do 
  primeiro dia seco da sequencia de dias secos<BR>## a variável de interesse no 
  seu caso é a "dry"   
  <BR>CCS<BR>        date dry wet<BR>1 
  2000-01-02   1  NA<BR>2 2000-01-04   2   
  1<BR>3 2000-01-07   2   1<BR>4 2000-01-13   
  1   4<BR>5 2000-01-17   2   3<BR>6 
  2000-01-21   1   2<BR>7 2000-01-23   
  2   1<BR>8 2000-01-26   1   1<BR><BR><BR>[ 
  ]'s<BR><BR></DIV></BLOCKQUOTE></BODY></HTML>