Samuel, <div><br></div><div>Tente assim tbm:</div><div><br></div><div><span class="Apple-style-span" style="color: rgb(0, 0, 255); font-family: 'Lucida Console'; font-size: 11px; line-height: 13px; white-space: pre-wrap; ">x <- sapply(dados$ht, seq, from = 0, by = 0.5)</span></div>
<div><meta http-equiv="Content-Type" content="text/html; charset=utf-8"><span class="Apple-style-span" style="color: rgb(0, 0, 255); font-family: 'Lucida Console'; 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="gmail_quote">2011/5/31 Samuel Carvalho <span dir="ltr"><<a href="mailto:samukajm@yahoo.com.br">samukajm@yahoo.com.br</a>></span><br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;">
<div><div style="color:#000;background-color:#fff;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 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><br clear="all"><br>-- <br>Henrique Dallazuanna<br>Curitiba-Paraná-Brasil<br>25° 25' 40" S 49° 16' 22" O<br>
</div>