Continuando a saga Dallazuanna sua resposta pode ser escrita em uma linha, apenas encapisulando o x.....<div>Como diz o Walmes, "Homen de uma linha só...." </div><div>Isso ai...<br><br><div class="gmail_quote">Em 1 de junho de 2011 12:12, Gustavo Henrique de Carvalho <span dir="ltr"><<a href="mailto:gustavo.bio@gmail.com">gustavo.bio@gmail.com</a>></span> escreveu:<br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;">Hehehe, o único problema com a forma que o Henrique postou é que com<br>
ela a última observação do hi não é igual ao ht quanto esse não é<br>
divisível por 0.5.<br>
<br>
2011/6/1 Paulo Justiniano <<a href="mailto:paulojus@leg.ufpr.br">paulojus@leg.ufpr.br</a>>:<br>
<div><div></div><div class="h5">> é Benilton vc estava certo... pode até tardar, mas não falha!<br>
> Mesmo de casa nova..... não deixa passar<br>
><br>
> abracos<br>
><br>
> On Tue, 31 May 2011, Henrique Dallazuanna wrote:<br>
><br>
>> Samuel,<br>
>> Tente assim tbm:<br>
>><br>
>> x <- sapply(dados$ht, seq, from = 0, by = 0.5)<br>
>> transform(dados[rep(seq(nrow(dados)), times = sapply(x, length)),], hi =<br>
>> unlist(x))<br>
>><br>
>> 2011/5/31 Samuel Carvalho <<a href="mailto:samukajm@yahoo.com.br">samukajm@yahoo.com.br</a>><br>
>>      Boa noite caros(a) senhores(as) membros<br>
>> Por gentileza alguém poderia me auxliar em um código que a princípio<br>
>> parece ser simples mas nao consegui uma<br>
>> solução<br>
>> Abaixo mostro o codigo e a seguir venho comentando<br>
>> ### Codigo R<br>
>> dados<-data.frame(idfuste=seq(1,5), dap=c(8.5, 11.0, 10.5, 17.5, 12.5),<br>
>> ht=c(10, 13, 12.5, 18, 14))<br>
>> dados<br>
>> dados$hi<-seq(0.1, dados$ht, by=0.5)<br>
>> ###<br>
>> O que preciso é gerar uma sequencia para cada "idfuste" de 0.1 até a "ht"<br>
>> que corresponde aquele "idfuste",<br>
>> replicando também cada observação<br>
>> para cada "idfuste". A sequencia é de 0.5 em 0.5 até a altura total da<br>
>> árvore - 1 pois esta pode nao ser um<br>
>> número inteiro dividido por 0.5 sendo que a ultima observação de cada<br>
>> idfuste deve ser igual ao valor de ht<br>
>> Em resumo queria um data.frame de saída a partir dos dados de entrada,<br>
>> nesta estrutura<br>
>><br>
>> idfuste<br>
>> dap<br>
>> ht<br>
>> hi<br>
>> 1<br>
>> 8,5<br>
>> 10<br>
>> 0<br>
>> 1<br>
>> 8,5<br>
>> 10<br>
>> 0,5<br>
>> 1<br>
>> 8,5<br>
>> 10<br>
>> 1<br>
>> 1<br>
>> 8,5<br>
>> 10<br>
>> 1,5<br>
>> 1<br>
>> 8,5<br>
>> 10<br>
>> 2<br>
>> 1<br>
>> 8,5<br>
>> 10<br>
>> 2,5<br>
>> 1<br>
>> 8,5<br>
>> 10<br>
>> 3<br>
>> 1<br>
>> 8,5<br>
>> 10<br>
>> 3,5<br>
>> 1<br>
>> 8,5<br>
>> 10<br>
>> 4<br>
>> 1<br>
>> 8,5<br>
>> 10<br>
>> 4,5<br>
>> 1<br>
>> 8,5<br>
>> 10<br>
>> 5<br>
>> 1<br>
>> 8,5<br>
>> 10<br>
>> 5,5<br>
>> 1<br>
>> 8,5<br>
>> 10<br>
>> 6<br>
>> 1<br>
>> 8,5<br>
>> 10<br>
>> 6,5<br>
>> 1<br>
>> 8,5<br>
>> 10<br>
>> 7<br>
>> 1<br>
>> 8,5<br>
>> 10<br>
>> 7,5<br>
>> 1<br>
>> 8,5<br>
>> 10<br>
>> 8<br>
>> 1<br>
>> 8,5<br>
>> 10<br>
>> 8,5<br>
>> 1<br>
>> 8,5<br>
>> 10<br>
>> 9<br>
>> 1<br>
>> 8,5<br>
>> 10<br>
>> 9,5<br>
>> 1<br>
>> 8,5<br>
>> 10<br>
>> 10<br>
>> 2<br>
>> 11<br>
>> 13,2<br>
>> 0<br>
>> 2<br>
>> 11<br>
>> 13,2<br>
>> 0,5<br>
>> 2<br>
>> 11<br>
>> 13,2<br>
>> 1<br>
>> 2<br>
>> 11<br>
>> 13,2<br>
>> 1,5<br>
>> 2<br>
>> 11<br>
>> 13,2<br>
>> 2<br>
>> 2<br>
>> 11<br>
>> 13,2<br>
>> 2,5<br>
>> 2<br>
>> 11<br>
>> 13,2<br>
>> 3<br>
>> 2<br>
>> 11<br>
>> 13,2<br>
>> 3,5<br>
>> 2<br>
>> 11<br>
>> 13,2<br>
>> 4<br>
>> 2<br>
>> 11<br>
>> 13,2<br>
>> 4,5<br>
>> 2<br>
>> 11<br>
>> 13,2<br>
>> 5<br>
>> 2<br>
>> 11<br>
>> 13,2<br>
>> 5,5<br>
>> 2<br>
>> 11<br>
>> 13,2<br>
>> 6<br>
>> 2<br>
>> 11<br>
>> 13,2<br>
>> 6,5<br>
>> 2<br>
>> 11<br>
>> 13,2<br>
>> 7<br>
>> 2<br>
>> 11<br>
>> 13,2<br>
>> 7,5<br>
>> 2<br>
>> 11<br>
>> 13,2<br>
>> 8<br>
>> 2<br>
>> 11<br>
>> 13,2<br>
>> 8,5<br>
>> 2<br>
>> 11<br>
>> 13,2<br>
>> 9<br>
>> 2<br>
>> 11<br>
>> 13,2<br>
>> 9,5<br>
>> 2<br>
>> 11<br>
>> 13,2<br>
>> 10<br>
>> 2<br>
>> 11<br>
>> 13,2<br>
>> 10,5<br>
>> 2<br>
>> 11<br>
>> 13,2<br>
>> 11<br>
>> 2<br>
>> 11<br>
>> 13,2<br>
>> 11,5<br>
>> 2<br>
>> 11<br>
>> 13,2<br>
>> 12<br>
>> 2<br>
>> 11<br>
>> 13,2<br>
>> 12,5<br>
>> 2<br>
>> 11<br>
>> 13,2<br>
>> 13<br>
>> 2<br>
>> 11<br>
>> 13,2<br>
>> 13,2<br>
>> e assim por diante para todos idfustes<br>
>> Desde já agradeço<br>
>> Para quem é da area florestal estou tentando estruturar uma base de<br>
>> cubagem a partir de dados de parcelas<br>
>> Abraço e boa noite a todos<br>
>> Att,<br>
>> Samuel<br>
>><br>
>> ====================================<br>
>> Samuel P. C. Carvalho<br>
>> Mestre em Ciências Florestais [UFLA]<br>
>> Doutorando em Recursos Florestais [ESALQ/USP]<br>
>> =============================================<br>
>><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>
>><br>
>><br>
>><br>
>> --<br>
>> Henrique Dallazuanna<br>
>> Curitiba-Paraná-Brasil<br>
>> 25° 25' 40" S 49° 16' 22" O<br>
>><br>
><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>
><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>
</div></div></blockquote></div><br></div>