<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>