<html>
<head>
<meta content="text/html; charset=ISO-8859-1"
http-equiv="Content-Type">
</head>
<body text="#000000" bgcolor="#FFFFFF">
Obrigado Benilton,<br>
<br>
Mas no caso de meus dados reais não posso usar:<br>
<br>
<div>
<br>
</div>
res = do.call(rbind, lapply(split(dados, dados$n.talhao),
function(x) x[sample(nrow(x), 20),]))<br>
<br>
<br>
Pois eu tenho n.talhao com os mesmos números, mas diferentes
proj.talhao, o que constitui uma área diferente, cada um, mas a
associação de n.talhao e proj.talhao é que caracterizam
verdadeiramente áreas diferentes, sendo:<br>
<br>
dados$ab<- interaction(dados$proj.talhao, dados$n.talhao)<br>
<br>
mas quando aplico sua função sobre o objeto dados$ab, tenho o erro:<br>
<br>
d, lapply(split(dados, dados$ab), function(x) x[sample(nrow(x),
40),]))<br>
Erro em sample.int(length(x), size, replace, prob) : <br>
impossível tomar uma amostra maior que a população quando 'replace
= FALSE'<br>
<br>
<br>
CRM:<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$medida1<-rnorm(nrow(dados),300)<br>
dados$medida2<-rnorm(nrow(dados),300)<br>
dados$medida3<-rnorm(nrow(dados),300)<br>
dados$ab<- interaction(dados$proj.talhao, dados$n.talhao)<br>
head(dados)<br>
##<br>
<br>
<br>
<br>
<div class="moz-cite-prefix">Em 20/05/2014 15:04, Benilton Carvalho
escreveu:<br>
</div>
<blockquote
cite="mid:CAO-arWPsq1xLs+XH6pG6UJm9fWiw-DbeffEPeTCuYNg_89-59g@mail.gmail.com"
type="cite">
<div dir="ltr">a funcao q passei faz exatamente o que vc
descreve... entretanto, o seu conjunto de dados de exemplo nao
parece adequado para o problema q vc quer resolver. benilton</div>
<div class="gmail_extra"><br>
<br>
<div class="gmail_quote">
Em 20 de maio de 2014 15:08, ASANTOS <span dir="ltr"><<a
moz-do-not-send="true"
href="mailto:alexandresantosbr@yahoo.com.br"
target="_blank">alexandresantosbr@yahoo.com.br</a>></span>
escreveu:<br>
<blockquote class="gmail_quote" style="margin:0 0 0
.8ex;border-left:1px #ccc solid;padding-left:1ex">
Obrigado Robert e Benilton,<br>
<br>
<br>
Mas na verdade ainda não resolveu, vou tentar
explicar de outro modo, tenho 15 áreas hipotéticas (str
(dados$ab)), sendo:
<div class=""><br>
<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$medida1<-rnorm(nrow(dados),300)<br>
dados$medida2<-rnorm(nrow(dados),300)<br>
dados$medida3<-rnorm(nrow(dados),300)<br>
dados$ab<- interaction(dados$proj.talhao,
dados$n.talhao)<br>
head(dados)<br>
##<br>
<br>
<br>
</div>
Porém para uma mesma variável resposta tenho vetores de
tamanhos diferentes e quero compará-los, gostaria de sortear
ao acaso um mesmo número de dados das 15 áreas (por exemplo
40 dados) para fazer as análises e não ter problemas com
desbalanceamento, para tanto preciso de uma função do tipo a
cada modificação em dados$ab realizar a função sample
(nomesdasáreas, 40),<br>
<br>
<br>
Obrigado<br>
<br>
<br>
<br>
Em 20/05/2014 11:02, Robert Iquiapaza escreveu:
<div>
<div class="h5"><br>
<blockquote class="gmail_quote" style="margin:0 0 0
.8ex;border-left:1px #ccc solid;padding-left:1ex">
Será disso que vc precisa?<br>
##<br>
str(dados$ab)<br>
dados$nobs=1:length(dados$ab) #só pra conferir<br>
nopar=table(dados$ab)<br>
nopar=nopar[nopar!=0]<br>
nopara=cumsum(nopar)<br>
seqs=sort(sample(1:nopara[1],20)) #i=4<br>
for(i in 2:length(nopara))seqs=c(seqs,sort(sample((nopara[i-1]+1):nopara[i],20)))<br>
seqs<br>
length(seqs)<br>
dados[seqs,]<br>
<br>
###<br>
Sds<br>
Robert<br>
<br>
<br>
Em 20 de maio de 2014 11:23, ASANTOS <<a
moz-do-not-send="true"
href="mailto:alexandresantosbr@yahoo.com.br"
target="_blank">alexandresantosbr@yahoo.com.br</a>>
escreveu:<br>
<blockquote class="gmail_quote" style="margin:0 0 0
.8ex;border-left:1px #ccc solid;padding-left:1ex">
Boa tarde Pessoal,<br>
<br>
Ainda não consegui solucionar meu problema
usando uma função com<br>
sample:<br>
<br>
Tenho os seguintes dados artificiais:<br>
<br>
#<br>
set.seed(765)<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$medida1<-rnorm(nrow(dados),300)<br>
dados$medida2<-rnorm(nrow(dados),300)<br>
dados$medida3<-rnorm(nrow(dados),300)<br>
dados$ab<- interaction(dados$proj.talhao,
dados$n.talhao)<br>
head(dados)<br>
##<br>
<br>
<br>
E gostaria que a cada alteração em cada área umas
das 5 áreas do objeto<br>
dados$ab fossem amostradas 20 linhas e o resultado
fosse armazenado como:<br>
<br>
proj.talhao n.talhao medida1 medida2 medida3
ab<br>
1 corrego 144 299.8956 300.5377 300.7281
corrego.144<br>
2 corrego 144 300.7179 298.9645 301.9793
corrego.144<br>
3 corrego 144 300.5074 302.8484 298.4562
corrego.144<br>
<br>
Onde tenho somente as linhas sorteadas com todos os
identificadores<br>
originais,<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>
</blockquote>
</blockquote>
<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>
</div>
</div>
======================================================================
<div class="HOEnZb">
<div class="h5"><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>
</div>
</div>
</blockquote>
</div>
<br>
<br clear="all">
<div><br>
</div>
-- <br>
<div dir="ltr"><a moz-do-not-send="true"
href="http://about.me/benilton"
style="margin:0px;padding:0px;border:0px;outline:0px;font-size:14px;font-family:proxima-nova-1,proxima-nova-2,Tahoma,Helvetica,Verdana,sans-serif;vertical-align:baseline;color:rgb(43,130,173);text-decoration:none;line-height:18.200000762939453px"
target="_blank">
<table
style="margin:0px;padding:0px;border:0px;outline:0px;font-weight:inherit;font-style:inherit;font-family:inherit;vertical-align:baseline;border-spacing:0px"
cellpadding="0" cellspacing="0" border="0">
<tbody
style="margin:0px;padding:0px;border:0px;outline:0px;font-weight:inherit;font-style:inherit;font-family:inherit;vertical-align:baseline">
<tr
style="margin:0px;padding:0px;border:0px;outline:0px;font-weight:inherit;font-style:inherit;font-family:inherit;vertical-align:baseline">
<td colspan="3"
style="padding:0px;border:0px;outline:0px;font-style:inherit;font-size:0px;font-family:inherit;vertical-align:baseline;height:30px"> </td>
</tr>
<tr
style="margin:0px;padding:0px;border:0px;outline:0px;font-weight:inherit;font-style:inherit;font-family:inherit;vertical-align:baseline">
<td
style="padding:0px;border:0px;outline:0px;font-style:inherit;font-family:inherit;vertical-align:top;line-height:1"
valign="top" align="left">
<div
style="margin:0px;padding:0px;border:0px;outline:0px;font-weight:inherit;font-style:inherit;font-family:inherit;vertical-align:baseline"><img
moz-do-not-send="true"
src="http://d13pix9kaak6wt.cloudfront.net/signature/me-badge.png"
alt="Benilton Carvalho on about.me"
style="margin:0px;padding:0px;border:0px;outline:0px;font-weight:inherit;font-style:inherit;font-family:inherit;vertical-align:baseline;display:block"
width="48" height="48"></div>
</td>
<td
style="padding:0px;border:0px;outline:0px;font-style:inherit;font-size:0px;font-family:inherit;vertical-align:baseline;width:8px"> </td>
<td
style="padding:0px;border:0px;outline:0px;font-style:inherit;font-family:inherit;vertical-align:middle;height:48px;line-height:0.9"
valign="middle" align="left">
<div
style="margin:0px;padding:0px;border:0px;outline:0px;font-weight:bold;font-style:inherit;font-size:18px;font-family:proxima-nova-1,Proxima-Nova,Helvetica,Arial,sans-serif;vertical-align:baseline;line-height:1;color:rgb(51,51,51)">Benilton
Carvalho</div>
<div style="margin:2px 0px
0px;padding:0px;border:0px;outline:0px;font-weight:inherit;font-style:inherit;font-size:12px;font-family:proxima-nova-1,Proxima-Nova,Helvetica,Arial,sans-serif;vertical-align:baseline">about.me/benilton</div>
</td>
</tr>
<tr
style="margin:0px;padding:0px;border:0px;outline:0px;font-weight:inherit;font-style:inherit;font-family:inherit;vertical-align:baseline">
<td colspan="3"
style="padding:0px;border:0px;outline:0px;font-style:inherit;font-size:0px;font-family:inherit;vertical-align:baseline;height:20px"> </td>
</tr>
</tbody>
</table>
</a></div>
</div>
<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>