Alexandre,<div>acho que isso pode resolver:</div><div><div>teste <- read.table("teste.txt",sep=";", header=T, colClasses=c("Date", "numeric","numeric","numeric","numeric","character","numeric","numeric","character", "numeric","numeric","numeric","numeric"))</div>
<div>str(teste)</div><div>head(teste)</div><div>teste$Data = format(as.Date(teste$Data,'%d-%m-%y'))</div><div>dim(teste)</div><div><br></div><div>summary(teste)</div><div><br></div><div>current = as.Date("1975-01-01")</div>
<div>final = as.Date("1977-10-10")</div><div>Data_1 <- data.frame(Data=seq(from=current,to = final, 1))</div><div><br></div><div>teste1 <- teste[!<a href="http://is.na">is.na</a>(teste$Data),]</div><div><br>
</div><div>teste1$Data <- as.factor(teste1$Data)</div><div>Data_1$Data <- as.factor(Data_1$Data)</div><div>Data_1$Var <- NA </div><div><br></div><div>dados.final <- merge(Data_1,teste1,by.x = "Data", by.y = "Data", all= TRUE)</div>
<div>dados.final <- dados.final[,-2]##retirando var</div><div>head(dados.final)</div><div><br></div><div>Att</div><div>Éder</div><br><div class="gmail_quote">Em 10 de junho de 2011 18:37, Alexandre Heinemann <span dir="ltr"><<a href="mailto:abh900@gmail.com">abh900@gmail.com</a>></span> escreveu:<br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;">Caros Colegas,<br><br>Estou com um problema de programação no R.<br><br>No seguinte arquivo: <a href="http://sharex.xpg.com.br/files/6386884446/teste.txt.html" target="_blank">http://sharex.xpg.com.br/files/6386884446/teste.txt.html</a>, a coluna 1 representa a data. Essa data <br>

não considera os dias 31 dos respectivos meses. Nessa coluna Data ha  NAs que representam datas inxistentes (30/2 e 29/2 <br>para os anos que esse não existe). Necessito eliminar as<br>linhas que possuem NA (somente para a coluna Data).<br>

<br>Após eliminar os NAs, necessito fazer um "merge" com um vetor criado abaixo Data_1. Esse vetor Data_1 representa <br>as datas "reais", ou seja, o ano com 365 e ou 366 dias. Esse merge deve ser feito em função da coluna teste$Data, com a finalidade<br>

de criar as datas referentes aos dias 31, preenchendo com NA as restantes.<br><br>A saída que eu espero é:<br><br>Data         prec_mm    tmax_C  tmin_C rad_W.m2              file_name  Lat  Long Cenario rad_MJ.m2 tmax_memo tmin_memo rad_memo<br>

1977-08-30 3.40726e-06 36.9722 23.0109 279.2510 lat_0.5_lon_46.2_P.dat -0.5 -46.2  P 24.127286  35.89341  22.94294 23.02423<br>1977-08-31 NA        NA    NA    NA    NA            NA   NA      NA    NA    NA      NA       NA         <br>

1977-09-01 3.87843e-04 36.8744 23.0071 263.9960 lat_0.5_lon_46.2_P.dat -0.5 -46.2  P 22.809254  36.51460  22.99073 23.90967<br><br>O arquivo no qual estou trabalhando tem  1517400  linhas.<br><br><br><a href="http://sharex.xpg.com.br/files/6386884446/teste.txt.html" target="_blank">http://sharex.xpg.com.br/files/6386884446/teste.txt.html</a> (download)<br>

teste <- read.table("teste.txt",sep=";", header=T, colClasses=c("Date", "numeric","numeric","numeric","numeric","character","numeric","numeric","character", "numeric","numeric","numeric","numeric"))<br>

str(teste)<br>head(teste)<br>teste$Data = format(as.Date(teste$Data,'%d-%m-%y'))<br>dim(teste)<br><br>current = as.Date("1975-01-01")<br>final = as.Date("1977-10-10")<br>Data_1 <- seq(from=current,to = final, 1)<br>

length(Data_1)<br><br>Obrigado,<br><font color="#888888"><br>Alexandre<br>
</font><br>_______________________________________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a><br>
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br>
<br></blockquote></div><br></div>