<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 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("<u></u>tamandua","itapagi","corrego")<u></u>,100))<br>
n.talhao<-sort(rep(c("144","<u></u>256","356","144","301","180"),<u></u>50))<br>
dados<-as.data.frame(cbind(<u></u>proj.talhao,n.talhao))<br>
dados$medida1<-rnorm(nrow(<u></u>dados),300)<br>
dados$medida2<-rnorm(nrow(<u></u>dados),300)<br>
dados$medida3<-rnorm(nrow(<u></u>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],<u></u>20)) #i=4<br>
for(i in 2:length(nopara))seqs=c(seqs,<u></u>sort(sample((nopara[i-1]+1):<u></u>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 href="mailto:alexandresantosbr@yahoo.com.br" target="_blank">alexandresantosbr@yahoo.com.<u></u>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("<u></u>tamandua","itapagi","corrego")<u></u>,100))<br>
n.talhao<-sort(rep(c("144","<u></u>256","356","144","301","180"),<u></u>50))<br>
dados<-as.data.frame(cbind(<u></u>proj.talhao,n.talhao))<br>
dados$medida1<-rnorm(nrow(<u></u>dados),300)<br>
dados$medida2<-rnorm(nrow(<u></u>dados),300)<br>
dados$medida3<-rnorm(nrow(<u></u>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>
==============================<u></u>==============================<u></u>==========<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@<u></u>yahoo.com.br</a><br>
<a href="mailto:alexandre.santos@cas.ifmt.edu.br" target="_blank">alexandre.santos@cas.ifmt.edu.<u></u>br</a><br>
Lattes: <a href="http://lattes.cnpq.br/1360403201088680" target="_blank">http://lattes.cnpq.br/<u></u>1360403201088680</a><br>
==============================<u></u>==============================<u></u>=========<br>
</blockquote></blockquote>
<br>
-- <br>
==============================<u></u>==============================<u></u>==========<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@<u></u>yahoo.com.br</a><br>
<a href="mailto:alexandre.santos@cas.ifmt.edu.br" target="_blank">alexandre.santos@cas.ifmt.edu.<u></u>br</a><br>
Lattes: <a href="http://lattes.cnpq.br/1360403201088680" target="_blank">http://lattes.cnpq.br/<u></u>1360403201088680</a><br></div></div>
==============================<u></u>==============================<u></u>==========<div class="HOEnZb"><div class="h5"><br>
<br>
______________________________<u></u>_________________<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/<u></u>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-<u></u>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 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 border="0" cellpadding="0" cellspacing="0" style="margin:0px;padding:0px;border:0px;outline:0px;font-weight:inherit;font-style:inherit;font-family:inherit;vertical-align:baseline;border-spacing:0px">
<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 align="left" valign="top" style="padding:0px;border:0px;outline:0px;font-style:inherit;font-family:inherit;vertical-align:top;line-height:1"><div style="margin:0px;padding:0px;border:0px;outline:0px;font-weight:inherit;font-style:inherit;font-family:inherit;vertical-align:baseline">
<img src="http://d13pix9kaak6wt.cloudfront.net/signature/me-badge.png" alt="Benilton Carvalho on about.me" width="48" height="48" style="margin:0px;padding:0px;border:0px;outline:0px;font-weight:inherit;font-style:inherit;font-family:inherit;vertical-align:baseline;display:block"></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 align="left" valign="middle" style="padding:0px;border:0px;outline:0px;font-style:inherit;font-family:inherit;vertical-align:middle;height:48px;line-height:0.9">
<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>