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