<font face="trebuchet ms,sans-serif">Organizar idéias: Primeiro fazer um split() da seguência 1:nrow(da) por nível de parcela. Dentro de cada vetor fazer um sample() dos números. Concatenar todos os vetores e usá-lo para acessar o data.frame. Tudo sem um for(). Segue a versão mais simples:<br>
<br>dados <- data.frame(parcela=rep(1:5, each=5), obs=rep(1:5,5), y=rnorm(25), z=rnorm(25))<br>id <- seq_len(nrow(dados))<br>id<br>id.spl <- split(id, f=dados$parcela)<br>id.spl<br>id.sam <- lapply(id.spl, sample, size=5, replace=TRUE)<br>
id.sam<br>id.sam <- do.call(c, id.sam)<br>id.sam<br>dados2 <- dados[id.sam,]<br>dados2<br><br>À disposição.<br>Walmes.<br><br clear="all"></font><span style="font-family:trebuchet ms,sans-serif">==========================================================================</span><br style="font-family:trebuchet ms,sans-serif">
<span style="font-family:trebuchet ms,sans-serif">Walmes Marques Zeviani</span><br style="font-family:trebuchet ms,sans-serif"><span style="font-family:trebuchet ms,sans-serif">LEG (Laboratório de Estatística e Geoinformação, 25.450418 S, 49.231759 W)</span><br style="font-family:trebuchet ms,sans-serif">
<span style="font-family:trebuchet ms,sans-serif">Departamento de Estatística - Universidade Federal do Paraná</span><br style="font-family:trebuchet ms,sans-serif"><span style="font-family:trebuchet ms,sans-serif">fone: (+55) 41 3361 3573</span><br style="font-family:trebuchet ms,sans-serif">
<span style="font-family:trebuchet ms,sans-serif">VoIP: (3361 3600) 1053 1173</span><br style="font-family:trebuchet ms,sans-serif"><span style="font-family:trebuchet ms,sans-serif">e-mail: <a href="mailto:walmes@ufpr.br" target="_blank">walmes@ufpr.br</a></span><br style="font-family:trebuchet ms,sans-serif">
<span style="font-family:trebuchet ms,sans-serif">twitter: @walmeszeviani</span><br style="font-family:trebuchet ms,sans-serif"><span style="font-family:trebuchet ms,sans-serif">homepage: <a href="http://www.leg.ufpr.br/%7Ewalmes" target="_blank">http://www.leg.ufpr.br/~walmes</a></span><br style="font-family:trebuchet ms,sans-serif">
<span style="font-family:trebuchet ms,sans-serif">linux user number: 531218</span><br style="font-family:trebuchet ms,sans-serif"><span style="font-family:trebuchet ms,sans-serif">==========================================================================</span><br>