<html>
<head>
<meta content="text/html; charset=ISO-8859-1"
http-equiv="Content-Type">
</head>
<body 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:<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>
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 class="moz-cite-prefix">Em 09/05/2014 19:28, ASANTOS escreveu:<br>
</div>
<blockquote cite="mid:536D64A6.6000502@yahoo.com.br" type="cite">
<meta content="text/html; charset=ISO-8859-1"
http-equiv="Content-Type">
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 class="moz-cite-prefix">Em 09/05/2014 17:49, Ricardo Solar
escreveu:<br>
</div>
<blockquote
cite="mid:CAA6CCihoH8x-kiYOoUdQUxCSU705imA71_ovWmcrqijNkTh9eA@mail.gmail.com"
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
moz-do-not-send="true"
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 moz-do-not-send="true"
href="http://photographyandconservation.wordpress.com/"
target="_blank">Visit my blog!</a> / </font><a
moz-do-not-send="true"
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 moz-do-not-send="true"
href="mailto:alexandresantosbr@yahoo.com.br"
target="_blank">alexandresantosbr@yahoo.com.br</a>></span>:<br>
<blockquote class="gmail_quote" style="margin:0 0 0
.8ex;border-left:1px #ccc 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 moz-do-not-send="true"
href="tel:%28%2B55%29%2065%208132-8112"
value="+556581328112" target="_blank">(+55) 65 8132-8112</a>
(TIM) <a moz-do-not-send="true"
href="tel:%28%2B55%29%2065%209686-6970"
value="+556596866970" target="_blank">(+55) 65 9686-6970</a>
(VIVO)<br>
<a moz-do-not-send="true"
href="mailto:e-mails%3Aalexandresantosbr@yahoo.com.br"
target="_blank">e-mails:alexandresantosbr@yahoo.com.br</a><br>
<a moz-do-not-send="true"
href="mailto:alexandre.santos@cas.ifmt.edu.br"
target="_blank">alexandre.santos@cas.ifmt.edu.br</a><br>
Lattes: <a moz-do-not-send="true"
href="http://lattes.cnpq.br/1360403201088680"
target="_blank">http://lattes.cnpq.br/1360403201088680</a><br>
======================================================================<br>
<br>
_______________________________________________<br>
R-br mailing list<br>
<a moz-do-not-send="true"
href="mailto:R-br@listas.c3sl.ufpr.br" target="_blank">R-br@listas.c3sl.ufpr.br</a><br>
<a moz-do-not-send="true"
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 moz-do-not-send="true"
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 class="mimeAttachmentHeader"></fieldset>
<br>
<pre wrap="">_______________________________________________
R-br mailing list
<a moz-do-not-send="true" class="moz-txt-link-abbreviated" href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a>
<a moz-do-not-send="true" class="moz-txt-link-freetext" href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a>
Leia o guia de postagem (<a moz-do-not-send="true" class="moz-txt-link-freetext" href="http://www.leg.ufpr.br/r-br-guia">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.</pre>
</blockquote>
<br>
<pre class="moz-signature" 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: (+55) 65 8132-8112 (TIM) (+55) 65 9686-6970 (VIVO)
<a moz-do-not-send="true" class="moz-txt-link-abbreviated" href="mailto:e-mails:alexandresantosbr@yahoo.com.br">e-mails:alexandresantosbr@yahoo.com.br</a>
<a moz-do-not-send="true" class="moz-txt-link-abbreviated" href="mailto:alexandre.santos@cas.ifmt.edu.br">alexandre.santos@cas.ifmt.edu.br</a>
Lattes: <a moz-do-not-send="true" class="moz-txt-link-freetext" href="http://lattes.cnpq.br/1360403201088680">http://lattes.cnpq.br/1360403201088680</a>
======================================================================
</pre>
<br>
<fieldset class="mimeAttachmentHeader"></fieldset>
<br>
<pre wrap="">_______________________________________________
R-br mailing list
<a class="moz-txt-link-abbreviated" href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a>
<a class="moz-txt-link-freetext" href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a>
Leia o guia de postagem (<a class="moz-txt-link-freetext" href="http://www.leg.ufpr.br/r-br-guia">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.</pre>
</blockquote>
<br>
<pre class="moz-signature" 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: (+55) 65 8132-8112 (TIM) (+55) 65 9686-6970 (VIVO)
<a class="moz-txt-link-abbreviated" href="mailto:e-mails:alexandresantosbr@yahoo.com.br">e-mails:alexandresantosbr@yahoo.com.br</a>
<a class="moz-txt-link-abbreviated" href="mailto:alexandre.santos@cas.ifmt.edu.br">alexandre.santos@cas.ifmt.edu.br</a>
Lattes: <a class="moz-txt-link-freetext" href="http://lattes.cnpq.br/1360403201088680">http://lattes.cnpq.br/1360403201088680</a>
======================================================================
</pre>
</body>
</html>