<HTML><HEAD>
<META content="text/html; charset=ISO-8859-1" http-equiv=Content-Type></HEAD>
<BODY dir=ltr bgColor=#ffffff text=#000000>
<DIV dir=ltr>
<DIV style="FONT-SIZE: 10pt; FONT-FAMILY: 'Arial'; COLOR: #000000">
<DIV>Alexandre,</DIV>
<DIV> </DIV>
<DIV>Pela descrição sua também acho que a resposta é essa. A solução do Benilton
produz os mesmos resultados fazendo uma pequena alteração.</DIV>
<DIV>Sds</DIV>
<DIV> </DIV>
<DIV>###</DIV>
<DIV> </DIV>
<DIV>dados$nobs=1:length(dados$ab) #só pra conferir</DIV>
<DIV>str(dados$ab) # na verdade vc não tem 15 níveis, só 5 com casos</DIV>
<DIV>dados$abf=factor(dados$ab) # eliminar níveis não usados</DIV>
<DIV>nopar=table(dados$abf) # casos por fator</DIV>
<DIV>nopara=cumsum(nopar) # acumular casos</DIV>
<DIV>tam=40 #amostra</DIV>
<DIV>set.seed(765)</DIV>
<DIV>seqs=sort(sample(1:nopara[1],tam)) # o sort só ordena</DIV>
<DIV>for(i in
2:length(nopara))seqs=c(seqs,sort(sample((nopara[i-1]+1):nopara[i],tam)))</DIV>
<DIV>res1= dados[seqs,]</DIV>
<DIV> </DIV>
<DIV>set.seed(765)</DIV>
<DIV>res2 = do.call(rbind, lapply(split(dados, dados$abf), function(x)
x[sample(nrow(x), tam),]))</DIV>
<DIV> </DIV>
<DIV>res2o=res2[ order(res2$nobs), ]</DIV>
<DIV>res2o==res1 #iguais</DIV>
<DIV> </DIV>
<DIV>###</DIV>
<DIV
style='FONT-SIZE: small; TEXT-DECORATION: none; FONT-FAMILY: "Calibri"; FONT-WEIGHT: normal; COLOR: #000000; FONT-STYLE: normal; DISPLAY: inline'>
<DIV style="FONT: 10pt tahoma">
<DIV><FONT face=Arial></FONT> </DIV>
<DIV style="BACKGROUND: #f5f5f5">
<DIV style="font-color: black"><B>From:</B> <A
title=alexandresantosbr@yahoo.com.br
href="mailto:alexandresantosbr@yahoo.com.br">ASANTOS</A> </DIV>
<DIV><B>Sent:</B> Tuesday, May 20, 2014 4:27 PM</DIV>
<DIV><B>To:</B> <A title=r-br@listas.c3sl.ufpr.br
href="mailto:r-br@listas.c3sl.ufpr.br">r-br@listas.c3sl.ufpr.br</A> </DIV>
<DIV><B>Subject:</B> Re: [R-br] Função usando sample</DIV></DIV></DIV>
<DIV> </DIV></DIV>
<DIV
style='FONT-SIZE: small; TEXT-DECORATION: none; FONT-FAMILY: "Calibri"; FONT-WEIGHT: normal; COLOR: #000000; FONT-STYLE: normal; DISPLAY: inline'>Obrigado
Benilton,<BR><BR> Mas no caso de meus
dados reais não posso usar:<BR><BR>
<DIV> </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 href="mailto:alexandresantosbr@yahoo.com.br" target=_blank
moz-do-not-send="true">alexandresantosbr@yahoo.com.br</A>></SPAN>
escreveu:<BR>
<BLOCKQUOTE class=gmail_quote
style="PADDING-LEFT: 1ex; MARGIN: 0px 0px 0px 0.8ex; BORDER-LEFT: #ccc 1px solid">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><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="PADDING-LEFT: 1ex; MARGIN: 0px 0px 0px 0.8ex; BORDER-LEFT: #ccc 1px solid">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
href="mailto:alexandresantosbr@yahoo.com.br" target=_blank
moz-do-not-send="true">alexandresantosbr@yahoo.com.br</A>>
escreveu:<BR>
<BLOCKQUOTE class=gmail_quote
style="PADDING-LEFT: 1ex; MARGIN: 0px 0px 0px 0.8ex; BORDER-LEFT: #ccc 1px solid">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 href="tel:%28%2B55%29%2065%208132-8112"
target=_blank moz-do-not-send="true" value="+556581328112">(+55) 65
8132-8112</A> (TIM) <A
href="tel:%28%2B55%29%2065%209686-6970" target=_blank
moz-do-not-send="true" value="+556596866970">(+55) 65 9686-6970</A>
(VIVO)<BR><A href="mailto:e-mails%3Aalexandresantosbr@yahoo.com.br"
target=_blank
moz-do-not-send="true">mailto:e-mails%3Aalexandresantosbr@yahoo.com.br</A><BR>
<A href="mailto:alexandre.santos@cas.ifmt.edu.br" target=_blank
moz-do-not-send="true">alexandre.santos@cas.ifmt.edu.br</A><BR>Lattes:
<A href="http://lattes.cnpq.br/1360403201088680" target=_blank
moz-do-not-send="true">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 href="tel:%28%2B55%29%2065%208132-8112"
target=_blank moz-do-not-send="true" value="+556581328112">(+55) 65
8132-8112</A> (TIM) <A href="tel:%28%2B55%29%2065%209686-6970"
target=_blank moz-do-not-send="true" value="+556596866970">(+55) 65
9686-6970</A> (VIVO)<BR><A
href="mailto:e-mails%3Aalexandresantosbr@yahoo.com.br" target=_blank
moz-do-not-send="true">mailto:e-mails%3Aalexandresantosbr@yahoo.com.br</A><BR>
<A href="mailto:alexandre.santos@cas.ifmt.edu.br" target=_blank
moz-do-not-send="true">alexandre.santos@cas.ifmt.edu.br</A><BR>Lattes: <A
href="http://lattes.cnpq.br/1360403201088680" target=_blank
moz-do-not-send="true">http://lattes.cnpq.br/1360403201088680</A><BR></DIV></DIV>======================================================================
<DIV class=HOEnZb>
<DIV
class=h5><BR><BR>_______________________________________________<BR>R-br
mailing list<BR><A href="mailto:R-br@listas.c3sl.ufpr.br" target=_blank
moz-do-not-send="true">R-br@listas.c3sl.ufpr.br</A><BR><A
href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br"
target=_blank
moz-do-not-send="true">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
moz-do-not-send="true">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> </DIV>-- <BR>
<DIV dir=ltr><A
style="FONT-SIZE: 14px; TEXT-DECORATION: none; BORDER-TOP: 0px; FONT-FAMILY: proxima-nova-1,proxima-nova-2,tahoma,helvetica,verdana,sans-serif; BORDER-RIGHT: 0px; VERTICAL-ALIGN: baseline; BORDER-BOTTOM: 0px; COLOR: rgb(43,130,173); OUTLINE-WIDTH: 0px; PADDING-BOTTOM: 0px; PADDING-TOP: 0px; OUTLINE-STYLE: none; PADDING-LEFT: 0px; MARGIN: 0px; BORDER-LEFT: 0px; OUTLINE-COLOR: invert; LINE-HEIGHT: 18px; PADDING-RIGHT: 0px"
href="http://about.me/benilton" target=_blank moz-do-not-send="true">
<TABLE
style="BORDER-TOP: 0px; FONT-FAMILY: inherit; BORDER-RIGHT: 0px; VERTICAL-ALIGN: baseline; BORDER-BOTTOM: 0px; COLOR: rgb(43,130,173); OUTLINE-WIDTH: 0px; PADDING-BOTTOM: 0px; PADDING-TOP: 0px; OUTLINE-STYLE: none; PADDING-LEFT: 0px; MARGIN: 0px; BORDER-SPACING: 0px; BORDER-LEFT: 0px; OUTLINE-COLOR: invert; PADDING-RIGHT: 0px"
cellSpacing=0 cellPadding=0 border=0>
<TBODY
style="BORDER-TOP: 0px; FONT-FAMILY: inherit; BORDER-RIGHT: 0px; VERTICAL-ALIGN: baseline; BORDER-BOTTOM: 0px; OUTLINE-WIDTH: 0px; PADDING-BOTTOM: 0px; PADDING-TOP: 0px; OUTLINE-STYLE: none; PADDING-LEFT: 0px; MARGIN: 0px; BORDER-LEFT: 0px; OUTLINE-COLOR: invert; PADDING-RIGHT: 0px">
<TR
style="BORDER-TOP: 0px; FONT-FAMILY: inherit; BORDER-RIGHT: 0px; VERTICAL-ALIGN: baseline; BORDER-BOTTOM: 0px; OUTLINE-WIDTH: 0px; PADDING-BOTTOM: 0px; PADDING-TOP: 0px; OUTLINE-STYLE: none; PADDING-LEFT: 0px; MARGIN: 0px; BORDER-LEFT: 0px; OUTLINE-COLOR: invert; PADDING-RIGHT: 0px">
<TD
style="FONT-SIZE: 0px; BORDER-TOP: 0px; HEIGHT: 30px; FONT-FAMILY: inherit; BORDER-RIGHT: 0px; VERTICAL-ALIGN: baseline; BORDER-BOTTOM: 0px; OUTLINE-WIDTH: 0px; PADDING-BOTTOM: 0px; PADDING-TOP: 0px; OUTLINE-STYLE: none; PADDING-LEFT: 0px; BORDER-LEFT: 0px; OUTLINE-COLOR: invert; PADDING-RIGHT: 0px"
colSpan=3> </TD></TR>
<TR
style="BORDER-TOP: 0px; FONT-FAMILY: inherit; BORDER-RIGHT: 0px; VERTICAL-ALIGN: baseline; BORDER-BOTTOM: 0px; OUTLINE-WIDTH: 0px; PADDING-BOTTOM: 0px; PADDING-TOP: 0px; OUTLINE-STYLE: none; PADDING-LEFT: 0px; MARGIN: 0px; BORDER-LEFT: 0px; OUTLINE-COLOR: invert; PADDING-RIGHT: 0px">
<TD
style="BORDER-TOP: 0px; FONT-FAMILY: inherit; BORDER-RIGHT: 0px; VERTICAL-ALIGN: top; BORDER-BOTTOM: 0px; OUTLINE-WIDTH: 0px; PADDING-BOTTOM: 0px; PADDING-TOP: 0px; OUTLINE-STYLE: none; PADDING-LEFT: 0px; BORDER-LEFT: 0px; OUTLINE-COLOR: invert; LINE-HEIGHT: 1; PADDING-RIGHT: 0px"
vAlign=top align=left>
<DIV
style="BORDER-TOP: 0px; FONT-FAMILY: inherit; BORDER-RIGHT: 0px; VERTICAL-ALIGN: baseline; BORDER-BOTTOM: 0px; OUTLINE-WIDTH: 0px; PADDING-BOTTOM: 0px; PADDING-TOP: 0px; OUTLINE-STYLE: none; PADDING-LEFT: 0px; MARGIN: 0px; BORDER-LEFT: 0px; OUTLINE-COLOR: invert; PADDING-RIGHT: 0px"><IMG
style="BORDER-TOP: 0px; FONT-FAMILY: inherit; BORDER-RIGHT: 0px; VERTICAL-ALIGN: baseline; BORDER-BOTTOM: 0px; OUTLINE-WIDTH: 0px; PADDING-BOTTOM: 0px; PADDING-TOP: 0px; OUTLINE-STYLE: none; PADDING-LEFT: 0px; MARGIN: 0px; BORDER-LEFT: 0px; DISPLAY: block; OUTLINE-COLOR: invert; PADDING-RIGHT: 0px"
alt="Benilton Carvalho on about.me"
src="http://d13pix9kaak6wt.cloudfront.net/signature/me-badge.png"
width=48 height=48 moz-do-not-send="true"></DIV></TD>
<TD
style="FONT-SIZE: 0px; BORDER-TOP: 0px; FONT-FAMILY: inherit; BORDER-RIGHT: 0px; WIDTH: 8px; VERTICAL-ALIGN: baseline; BORDER-BOTTOM: 0px; OUTLINE-WIDTH: 0px; PADDING-BOTTOM: 0px; PADDING-TOP: 0px; OUTLINE-STYLE: none; PADDING-LEFT: 0px; BORDER-LEFT: 0px; OUTLINE-COLOR: invert; PADDING-RIGHT: 0px"> </TD>
<TD
style="BORDER-TOP: 0px; HEIGHT: 48px; FONT-FAMILY: inherit; BORDER-RIGHT: 0px; VERTICAL-ALIGN: middle; BORDER-BOTTOM: 0px; OUTLINE-WIDTH: 0px; PADDING-BOTTOM: 0px; PADDING-TOP: 0px; OUTLINE-STYLE: none; PADDING-LEFT: 0px; BORDER-LEFT: 0px; OUTLINE-COLOR: invert; LINE-HEIGHT: 0.9; PADDING-RIGHT: 0px"
vAlign=middle align=left>
<DIV
style="FONT-SIZE: 18px; BORDER-TOP: 0px; FONT-FAMILY: proxima-nova-1,proxima-nova,helvetica,arial,sans-serif; BORDER-RIGHT: 0px; VERTICAL-ALIGN: baseline; BORDER-BOTTOM: 0px; FONT-WEIGHT: bold; COLOR: rgb(51,51,51); OUTLINE-WIDTH: 0px; PADDING-BOTTOM: 0px; PADDING-TOP: 0px; OUTLINE-STYLE: none; PADDING-LEFT: 0px; MARGIN: 0px; BORDER-LEFT: 0px; OUTLINE-COLOR: invert; LINE-HEIGHT: 1; PADDING-RIGHT: 0px">Benilton
Carvalho</DIV>
<DIV
style="FONT-SIZE: 12px; BORDER-TOP: 0px; FONT-FAMILY: proxima-nova-1,proxima-nova,helvetica,arial,sans-serif; BORDER-RIGHT: 0px; VERTICAL-ALIGN: baseline; BORDER-BOTTOM: 0px; OUTLINE-WIDTH: 0px; PADDING-BOTTOM: 0px; PADDING-TOP: 0px; OUTLINE-STYLE: none; PADDING-LEFT: 0px; MARGIN: 2px 0px 0px; BORDER-LEFT: 0px; OUTLINE-COLOR: invert; PADDING-RIGHT: 0px">about.me/benilton</DIV></TD></TR>
<TR
style="BORDER-TOP: 0px; FONT-FAMILY: inherit; BORDER-RIGHT: 0px; VERTICAL-ALIGN: baseline; BORDER-BOTTOM: 0px; OUTLINE-WIDTH: 0px; PADDING-BOTTOM: 0px; PADDING-TOP: 0px; OUTLINE-STYLE: none; PADDING-LEFT: 0px; MARGIN: 0px; BORDER-LEFT: 0px; OUTLINE-COLOR: invert; PADDING-RIGHT: 0px">
<TD
style="FONT-SIZE: 0px; BORDER-TOP: 0px; HEIGHT: 20px; FONT-FAMILY: inherit; BORDER-RIGHT: 0px; VERTICAL-ALIGN: baseline; BORDER-BOTTOM: 0px; OUTLINE-WIDTH: 0px; PADDING-BOTTOM: 0px; PADDING-TOP: 0px; OUTLINE-STYLE: none; PADDING-LEFT: 0px; BORDER-LEFT: 0px; OUTLINE-COLOR: invert; PADDING-RIGHT: 0px"
colSpan=3> </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>
<P>
<HR>
_______________________________________________<BR>R-br mailing
list<BR>R-br@listas.c3sl.ufpr.br<BR>https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br<BR>Leia
o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça código mínimo
reproduzível.</DIV></DIV></DIV></BODY></HTML>