<html><body><div style="color:#000; background-color:#fff; font-family:times new roman, new york, times, serif;font-size:12pt"><div><span>Obrigado caros pela gentileza de sempre. Vou verificar as sugestões<br></span></div><span>[]'s<br></span><div><span>Samuel</span></div><div> </div><div style="font-family: courier,monaco,monospace,sans-serif;"><font size="3"><b>====================================</b></font></div><div style="font-family: courier,monaco,monospace,sans-serif;"><font size="3"><b>Samuel P. C. Carvalho<br></b><font color="#000000" size="2">Mestre em Ciências Florestais [UFLA]</font></font></div><div style="font-family: courier,monaco,monospace,sans-serif;"><font color="#000000" size="2">Doutorando em Recursos Florestais [ESALQ/USP]</font></div><div style="font-family: courier,monaco,monospace,sans-serif;"><font size="2">=============================================</font></div><div><br></div><div style="font-family: times new
roman,new york,times,serif; font-size: 12pt;"><div style="font-family: times new roman,new york,times,serif; font-size: 12pt;"><font face="Arial" size="2"><hr size="1"><b><span style="font-weight: bold;">De:</span></b> Henrique Dallazuanna <wwwhsd@gmail.com><br><b><span style="font-weight: bold;">Para:</span></b> r-br@listas.c3sl.ufpr.br; Samuel Carvalho <samukajm@yahoo.com.br><br><b><span style="font-weight: bold;">Enviadas:</span></b> Terça-feira, 31 de Maio de 2011 23:10<br><b><span style="font-weight: bold;">Assunto:</span></b> Re: [R-br] modifica dataframe<br></font><br><div id="yiv399138190">Samuel, <div><br></div><div>Tente assim tbm:</div><div><br></div><div><span class="yiv399138190Apple-style-span" style="color: rgb(0, 0, 255); font-size: 11px; line-height: 13px; white-space: pre-wrap;">x <- sapply(dados$ht, seq, from = 0, by = 0.5)</span></div>
<div><span class="yiv399138190Apple-style-span" style="color: rgb(0, 0, 255); font-size: 11px; line-height: 13px; white-space: pre-wrap;">transform(dados[rep(seq(nrow(dados)), times = sapply(x, length)),], hi = unlist(x))</span><br>
<br><div class="yiv399138190gmail_quote">2011/5/31 Samuel Carvalho <span dir="ltr"><<a rel="nofollow" ymailto="mailto:samukajm@yahoo.com.br" target="_blank" href="mailto:samukajm@yahoo.com.br">samukajm@yahoo.com.br</a>></span><br><blockquote class="yiv399138190gmail_quote" style="margin: 0pt 0pt 0pt 0.8ex; border-left: 1px solid rgb(204, 204, 204); padding-left: 1ex;">
<div><div style="color: rgb(0, 0, 0); background-color: rgb(255, 255, 255); font-family: times new roman,new york,times,serif; font-size: 12pt;"><div><span>Boa noite caros(a) senhores(as) membros</span></div><div><span>Por gentileza alguém poderia me auxliar em um código que a princípio parece ser simples mas nao consegui uma solução</span></div>
<div><span>Abaixo mostro o codigo e a seguir venho comentando</span></div><div><span>### Codigo R</span></div><div><span>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)</span></div><div><span>### <br></span></div><div><span>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</span></div>
<div><span>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<br></span></div><div><span>Em resumo queria um data.frame de saída a partir dos dados de entrada, nesta estrutura</span></div>
<div><br><span></span></div><div>
</div><table width="256" border="0" cellpadding="0" cellspacing="0"><colgroup><col style="width: 48pt;" width="64" span="4">
</colgroup><tbody><tr style="min-height: 15pt;" height="20">
<td style="min-height: 15pt; width: 48pt;" width="64" height="20">idfuste</td>
<td style="width: 48pt;" width="64">dap</td>
<td style="width: 48pt;" width="64">ht</td>
<td style="width: 48pt;" width="64">hi</td>
</tr>
<tr style="min-height: 15pt;" height="20">
<td style="min-height: 15pt;" height="20">1</td>
<td>8,5</td>
<td>10</td>
<td>0</td>
</tr>
<tr style="min-height: 15pt;" height="20">
<td style="min-height: 15pt;" height="20">1</td>
<td>8,5</td>
<td>10</td>
<td>0,5</td>
</tr>
<tr style="min-height: 15pt;" height="20">
<td style="min-height: 15pt;" height="20">1</td>
<td>8,5</td>
<td>10</td>
<td>1</td>
</tr>
<tr style="min-height: 15pt;" height="20">
<td style="min-height: 15pt;" height="20">1</td>
<td>8,5</td>
<td>10</td>
<td>1,5</td>
</tr>
<tr style="min-height: 15pt;" height="20">
<td style="min-height: 15pt;" height="20">1</td>
<td>8,5</td>
<td>10</td>
<td>2</td>
</tr>
<tr style="min-height: 15pt;" height="20">
<td style="min-height: 15pt;" height="20">1</td>
<td>8,5</td>
<td>10</td>
<td>2,5</td>
</tr>
<tr style="min-height: 15pt;" height="20">
<td style="min-height: 15pt;" height="20">1</td>
<td>8,5</td>
<td>10</td>
<td>3</td>
</tr>
<tr style="min-height: 15pt;" height="20">
<td style="min-height: 15pt;" height="20">1</td>
<td>8,5</td>
<td>10</td>
<td>3,5</td>
</tr>
<tr style="min-height: 15pt;" height="20">
<td style="min-height: 15pt;" height="20">1</td>
<td>8,5</td>
<td>10</td>
<td>4</td>
</tr>
<tr style="min-height: 15pt;" height="20">
<td style="min-height: 15pt;" height="20">1</td>
<td>8,5</td>
<td>10</td>
<td>4,5</td>
</tr>
<tr style="min-height: 15pt;" height="20">
<td style="min-height: 15pt;" height="20">1</td>
<td>8,5</td>
<td>10</td>
<td>5</td>
</tr>
<tr style="min-height: 15pt;" height="20">
<td style="min-height: 15pt;" height="20">1</td>
<td>8,5</td>
<td>10</td>
<td>5,5</td>
</tr>
<tr style="min-height: 15pt;" height="20">
<td style="min-height: 15pt;" height="20">1</td>
<td>8,5</td>
<td>10</td>
<td>6</td>
</tr>
<tr style="min-height: 15pt;" height="20">
<td style="min-height: 15pt;" height="20">1</td>
<td>8,5</td>
<td>10</td>
<td>6,5</td>
</tr>
<tr style="min-height: 15pt;" height="20">
<td style="min-height: 15pt;" height="20">1</td>
<td>8,5</td>
<td>10</td>
<td>7</td>
</tr>
<tr style="min-height: 15pt;" height="20">
<td style="min-height: 15pt;" height="20">1</td>
<td>8,5</td>
<td>10</td>
<td>7,5</td>
</tr>
<tr style="min-height: 15pt;" height="20">
<td style="min-height: 15pt;" height="20">1</td>
<td>8,5</td>
<td>10</td>
<td>8</td>
</tr>
<tr style="min-height: 15pt;" height="20">
<td style="min-height: 15pt;" height="20">1</td>
<td>8,5</td>
<td>10</td>
<td>8,5</td>
</tr>
<tr style="min-height: 15pt;" height="20">
<td style="min-height: 15pt;" height="20">1</td>
<td>8,5</td>
<td>10</td>
<td>9</td>
</tr>
<tr style="min-height: 15pt;" height="20">
<td style="min-height: 15pt;" height="20">1</td>
<td>8,5</td>
<td>10</td>
<td>9,5</td>
</tr>
<tr style="min-height: 15pt;" height="20">
<td style="min-height: 15pt;" height="20">1</td>
<td>8,5</td>
<td>10</td>
<td>10</td>
</tr>
<tr style="min-height: 15pt;" height="20">
<td style="min-height: 15pt;" height="20">2</td>
<td>11</td>
<td>13,2</td>
<td>0</td>
</tr>
<tr style="min-height: 15pt;" height="20">
<td style="min-height: 15pt;" height="20">2</td>
<td>11</td>
<td>13,2</td>
<td>0,5</td>
</tr>
<tr style="min-height: 15pt;" height="20">
<td style="min-height: 15pt;" height="20">2</td>
<td>11</td>
<td>13,2</td>
<td>1</td>
</tr>
<tr style="min-height: 15pt;" height="20">
<td style="min-height: 15pt;" height="20">2</td>
<td>11</td>
<td>13,2</td>
<td>1,5</td>
</tr>
<tr style="min-height: 15pt;" height="20">
<td style="min-height: 15pt;" height="20">2</td>
<td>11</td>
<td>13,2</td>
<td>2</td>
</tr>
<tr style="min-height: 15pt;" height="20">
<td style="min-height: 15pt;" height="20">2</td>
<td>11</td>
<td>13,2</td>
<td>2,5</td>
</tr>
<tr style="min-height: 15pt;" height="20">
<td style="min-height: 15pt;" height="20">2</td>
<td>11</td>
<td>13,2</td>
<td>3</td>
</tr>
<tr style="min-height: 15pt;" height="20">
<td style="min-height: 15pt;" height="20">2</td>
<td>11</td>
<td>13,2</td>
<td>3,5</td>
</tr>
<tr style="min-height: 15pt;" height="20">
<td style="min-height: 15pt;" height="20">2</td>
<td>11</td>
<td>13,2</td>
<td>4</td>
</tr>
<tr style="min-height: 15pt;" height="20">
<td style="min-height: 15pt;" height="20">2</td>
<td>11</td>
<td>13,2</td>
<td>4,5</td>
</tr>
<tr style="min-height: 15pt;" height="20">
<td style="min-height: 15pt;" height="20">2</td>
<td>11</td>
<td>13,2</td>
<td>5</td>
</tr>
<tr style="min-height: 15pt;" height="20">
<td style="min-height: 15pt;" height="20">2</td>
<td>11</td>
<td>13,2</td>
<td>5,5</td>
</tr>
<tr style="min-height: 15pt;" height="20">
<td style="min-height: 15pt;" height="20">2</td>
<td>11</td>
<td>13,2</td>
<td>6</td>
</tr>
<tr style="min-height: 15pt;" height="20">
<td style="min-height: 15pt;" height="20">2</td>
<td>11</td>
<td>13,2</td>
<td>6,5</td>
</tr>
<tr style="min-height: 15pt;" height="20">
<td style="min-height: 15pt;" height="20">2</td>
<td>11</td>
<td>13,2</td>
<td>7</td>
</tr>
<tr style="min-height: 15pt;" height="20">
<td style="min-height: 15pt;" height="20">2</td>
<td>11</td>
<td>13,2</td>
<td>7,5</td>
</tr>
<tr style="min-height: 15pt;" height="20">
<td style="min-height: 15pt;" height="20">2</td>
<td>11</td>
<td>13,2</td>
<td>8</td>
</tr>
<tr style="min-height: 15pt;" height="20">
<td style="min-height: 15pt;" height="20">2</td>
<td>11</td>
<td>13,2</td>
<td>8,5</td>
</tr>
<tr style="min-height: 15pt;" height="20">
<td style="min-height: 15pt;" height="20">2</td>
<td>11</td>
<td>13,2</td>
<td>9</td>
</tr>
<tr style="min-height: 15pt;" height="20">
<td style="min-height: 15pt;" height="20">2</td>
<td>11</td>
<td>13,2</td>
<td>9,5</td>
</tr>
<tr style="min-height: 15pt;" height="20">
<td style="min-height: 15pt;" height="20">2</td>
<td>11</td>
<td>13,2</td>
<td>10</td>
</tr>
<tr style="min-height: 15pt;" height="20">
<td style="min-height: 15pt;" height="20">2</td>
<td>11</td>
<td>13,2</td>
<td>10,5</td>
</tr>
<tr style="min-height: 15pt;" height="20">
<td style="min-height: 15pt;" height="20">2</td>
<td>11</td>
<td>13,2</td>
<td>11</td>
</tr>
<tr style="min-height: 15pt;" height="20">
<td style="min-height: 15pt;" height="20">2</td>
<td>11</td>
<td>13,2</td>
<td>11,5</td>
</tr>
<tr style="min-height: 15pt;" height="20">
<td style="min-height: 15pt;" height="20">2</td>
<td>11</td>
<td>13,2</td>
<td>12</td>
</tr>
<tr style="min-height: 15pt;" height="20">
<td style="min-height: 15pt;" height="20">2</td>
<td>11</td>
<td>13,2</td>
<td>12,5</td>
</tr>
<tr style="min-height: 15pt;" height="20">
<td style="min-height: 15pt;" height="20">2</td>
<td>11</td>
<td>13,2</td>
<td>13</td>
</tr>
<tr style="min-height: 15pt;" height="20">
<td style="min-height: 15pt;" height="20">2</td>
<td>11</td>
<td>13,2</td>
<td>13,2</td>
</tr>
</tbody></table><div><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 cubagem a partir de dados de parcelas<br>Abraço e boa noite a todos<br>
Att,<br>Samuel<br> <span></span></div><div style="font-family: courier,monaco,monospace,sans-serif;"><font size="3"><b>====================================</b></font></div><div style="font-family: courier,monaco,monospace,sans-serif;">
<font size="3"><b>Samuel P. C. Carvalho<br></b><font color="#000000" size="2">Mestre em Ciências Florestais [UFLA]</font></font></div><div style="font-family: courier,monaco,monospace,sans-serif;"><font color="#000000" size="2">Doutorando em Recursos Florestais [ESALQ/USP]</font></div>
<div style="font-family: courier,monaco,monospace,sans-serif;"><font size="2">=============================================</font></div></div></div><br>_______________________________________________<br>
R-br mailing list<br>
<a rel="nofollow" ymailto="mailto:R-br@listas.c3sl.ufpr.br" target="_blank" href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a><br>
<a rel="nofollow" target="_blank" href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br>
<br></blockquote></div><br><br clear="all"><br>-- <br>Henrique Dallazuanna<br>Curitiba-Paraná-Brasil<br>25° 25' 40" S 49° 16' 22" O<br>
</div>
</div><br><br></div></div></div></body></html>