<div dir="ltr"><div>Senhores, bom dia!</div><div><br></div><div>Alexandre, você falou em 6 áreas, mas seu código está definido 5. Sugiro verificar acrescentando as linhas que seguem ao seu código:</div><div><font face="courier new, monospace">areas <- as.vector(unique(dados$ab)); areas</font></div>
<div><font face="courier new, monospace">table(dados$proj.talhao, dados$n.talhao)</font></div><div><font face="courier new, monospace"><br></font></div><div>Tendo verificado, adicione também as linhas que seguem e veja se produz o resultado desejado.</div>
<div><font face="courier new, monospace">{set.seed(765); dados$medidas<-rnorm(nrow(dados),300)}</font></div><div><font face="courier new, monospace">sapply(areas, function(x) sample(dados[as.character(dados$ab)==x,3],20))</font></div>
<div><font face="courier new, monospace"><br></font></div><div><font face="courier new, monospace">Atte.,</font></div><div><font face="courier new, monospace"><br></font></div><div>Éder Comunello <<a href="mailto:comunello.eder@gmail.com" target="_blank">c</a><a href="mailto:omunello.eder@gmail.com" target="_blank">omunello.eder@gmail.com</a>> <br>
</div><div class="gmail_extra"><div><div dir="ltr">Dourados, MS - [22 16.5'S, 54 49'W]<br></div></div>
<br><br><div class="gmail_quote">Em 9 de maio de 2014 20:15, ASANTOS <span dir="ltr"><<a href="mailto:alexandresantosbr@yahoo.com.br" target="_blank">alexandresantosbr@yahoo.com.br</a>></span> escreveu:<br><blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left-width:1px;border-left-color:rgb(204,204,204);border-left-style:solid;padding-left:1ex">
<div text="#000000" bgcolor="#FFFFFF">
Pessoal,<br>
<br>
Comecei a evoluir um pouco, mas a programação em R tem sido a
limitação, segue CRM:<div class=""><br>
<br>
proj.talhao<-sort(rep(c("tamandua","itapagi","corrego"),100))<br>
n.talhao<-sort(rep(c("144","256","356","144","301","180"),50))<br>
dados<-as.data.frame(cbind(proj.talhao,n.talhao))<br>
dados$medidas<-rnorm(nrow(dados),300)<br>
head(dados)<br>
<br></div>
dados$ab<- interaction(dados$proj.talhao, dados$n.talhao)## Fiz a
interação dos objetos pois existe dois proj.talhao cada um com
numeração diferente n.talhao (totalizando 6 áreas<br>
diferentes)<br>
<br>
dados$num<-as.numeric(dados$ab)## Atribui uma numeração a cada
área diferente <br>
<br>
head(dados)<br>
<br>
RES<-NULL<br>
<br>
for (i in 1:length(dados$num)){ ## E é aqui que esta pegando, como
fazer para que a mostragem seja a cada mudança de número (ou área)<br>
<br>
samp <- sample(dados[,3], replace=F)<br>
RES <- rbind(RES, c(dados$ab,samp))<br>
<br>
}<br>
<br>
<br>
<br>
Obrigado,<br>
<br>
Alexandre<br>
<br>
<div>Em 09/05/2014 19:28, ASANTOS escreveu:<br>
</div><div><div class="h5">
<blockquote type="cite">
Ricardo não é bem isso, seria<br>
<br>
sample(row.names(dados), 20) a cada mudança de n.talhao (se fosse
númerico ate tenho algumas idéias) no código:<br>
<br>
<br>
proj.talhao<-sort(rep(c("tamandua","itapagi","corrego"),100))<br>
n.talhao<-sort(rep(c("144","256","356","144","301","180"),50))<br>
dados<-as.data.frame(cbind(proj.talhao,n.talhao))<br>
dados$medidas<-rnorm(nrow(dados),300)<br>
head(dados)<br>
<br>
<br>
<div>Em 09/05/2014 17:49, Ricardo Solar
escreveu:<br>
</div>
<blockquote type="cite">
<div dir="ltr">Olá, não sei se entendi bem o que quer, mas você
pode mandar ele fazer o sample de row.names
<div><br>
</div>
<div>> use_talhao <- sample(row.names(dados), 20)</div>
<div>> dados2 <- dados[use_talhao,]<br>
<br>
para fazer isso por talhão, se esse for o caso, use um for,
ou algo do tipo.</div>
<div><br>
Abs</div>
</div>
<div class="gmail_extra"><br clear="all">
<div>
<div dir="ltr"><font color="#666666">==========================================<br>
Dr. Ricardo Ribeiro de Castro Solar (<a href="http://lattes.cnpq.br/9924177207371692" target="_blank">Curriculum Vitœ</a>)</font>
<div><font color="#666666">Pesquisador Associado (PNPD -
Capes) </font></div>
<div><font color="#666666">Programa de Pós-Graduação em
Ciências Biológicas<br>
</font>
<div><font color="#666666"><a href="http://photographyandconservation.wordpress.com/" target="_blank">Visit my blog!</a> / </font><a href="http://www.redeamazoniasustentavel.org" target="_blank">Rede Amazônia Sustentável</a>
<div> <span style="color:rgb(102,102,102)">Skype:
rrsolar</span></div>
<div><font color="#666666">Universidade Estadual de
Montes Claros - MG<br>
</font>
<div>
<div><font color="#666666">==========================================
</font></div>
</div>
</div>
</div>
</div>
</div>
</div>
<br>
<br>
<div class="gmail_quote">2014-05-09 18:37 GMT-03:00 ASANTOS <span dir="ltr"><<a href="mailto:alexandresantosbr@yahoo.com.br" target="_blank">alexandresantosbr@yahoo.com.br</a>></span>:<br>
<blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left-width:1px;border-left-color:rgb(204,204,204);border-left-style:solid;padding-left:1ex"> Boa
noite listeiros,<br>
<br>
<br>
Criei o seguinte data frame:<br>
<br>
proj.talhao<-sort(rep(c("tamandua","itapagi","corrego"),100))<br>
n.talhao<-sort(rep(c("144","256","356","144","301","180"),50))<br>
dados<-as.data.frame(cbind(proj.talhao,n.talhao))<br>
dados$medidas<-rnorm(nrow(dados),300)<br>
head(dados)<br>
<br>
<br>
Agora gostaria de solicitar a função sample() para 20
valores sem reposição a cada alteração de n.talhao em cada
proj.talhao, que são caracteres, então neste caso o que eu
poderia utilizar?<br>
<br>
<br>
Obrigado<br>
<br>
-- <br>
======================================================================<br>
Alexandre dos Santos<br>
Proteção Florestal<br>
IFMT - Instituto Federal de Educação, Ciência e Tecnologia
de Mato Grosso<br>
Campus Cáceres<br>
Caixa Postal 244<br>
Avenida dos Ramires, s/n<br>
Bairro: Distrito Industrial<br>
Cáceres - MT CEP: 78.200-000<br>
Fone: <a href="tel:%28%2B55%29%2065%208132-8112" value="+556581328112" target="_blank">(+55) 65 8132-8112</a>
(TIM) <a href="tel:%28%2B55%29%2065%209686-6970" value="+556596866970" target="_blank">(+55) 65 9686-6970</a>
(VIVO)<br>
<a href="mailto:e-mails%3Aalexandresantosbr@yahoo.com.br" target="_blank">e-mails:alexandresantosbr@yahoo.com.br</a><br>
<a href="mailto:alexandre.santos@cas.ifmt.edu.br" target="_blank">alexandre.santos@cas.ifmt.edu.br</a><br>
Lattes: <a href="http://lattes.cnpq.br/1360403201088680" target="_blank">http://lattes.cnpq.br/1360403201088680</a><br>
======================================================================<br>
<br>
_______________________________________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br" target="_blank">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>
Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>)
e forneça código mínimo reproduzível.<br>
</blockquote>
</div>
<br>
</div>
<br>
<fieldset></fieldset>
<br>
<pre>_______________________________________________
R-br mailing list
<a href="mailto:R-br@listas.c3sl.ufpr.br" target="_blank">R-br@listas.c3sl.ufpr.br</a>
<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>
Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.</pre>
</blockquote>
<br>
<pre cols="72">--
======================================================================
Alexandre dos Santos
Proteção Florestal
IFMT - Instituto Federal de Educação, Ciência e Tecnologia de Mato Grosso
Campus Cáceres
Caixa Postal 244
Avenida dos Ramires, s/n
Bairro: Distrito Industrial
Cáceres - MT CEP: 78.200-000
Fone: <a href="tel:%28%2B55%29%2065%208132-8112" value="+556581328112" target="_blank">(+55) 65 8132-8112</a> (TIM) <a href="tel:%28%2B55%29%2065%209686-6970" value="+556596866970" target="_blank">(+55) 65 9686-6970</a> (VIVO)
<a href="mailto:e-mails:alexandresantosbr@yahoo.com.br" target="_blank">e-mails:alexandresantosbr@yahoo.com.br</a>
<a href="mailto:alexandre.santos@cas.ifmt.edu.br" target="_blank">alexandre.santos@cas.ifmt.edu.br</a>
Lattes: <a href="http://lattes.cnpq.br/1360403201088680" target="_blank">http://lattes.cnpq.br/1360403201088680</a>
======================================================================
</pre>
<br>
<fieldset></fieldset>
<br>
<pre>_______________________________________________
R-br mailing list
<a href="mailto:R-br@listas.c3sl.ufpr.br" target="_blank">R-br@listas.c3sl.ufpr.br</a>
<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>
Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.</pre>
</blockquote>
<br>
<pre cols="72">--
======================================================================
Alexandre dos Santos
Proteção Florestal
IFMT - Instituto Federal de Educação, Ciência e Tecnologia de Mato Grosso
Campus Cáceres
Caixa Postal 244
Avenida dos Ramires, s/n
Bairro: Distrito Industrial
Cáceres - MT CEP: 78.200-000
Fone: <a href="tel:%28%2B55%29%2065%208132-8112" value="+556581328112" target="_blank">(+55) 65 8132-8112</a> (TIM) <a href="tel:%28%2B55%29%2065%209686-6970" value="+556596866970" target="_blank">(+55) 65 9686-6970</a> (VIVO)
<a href="mailto:e-mails:alexandresantosbr@yahoo.com.br" target="_blank">e-mails:alexandresantosbr@yahoo.com.br</a>
<a href="mailto:alexandre.santos@cas.ifmt.edu.br" target="_blank">alexandre.santos@cas.ifmt.edu.br</a>
Lattes: <a href="http://lattes.cnpq.br/1360403201088680" target="_blank">http://lattes.cnpq.br/1360403201088680</a>
======================================================================
</pre>
</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>
Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br></blockquote></div><br></div></div>