é que ainda tô em hotel...rs 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 > >
-- 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
