<div dir="ltr"><div><font face="arial, helvetica, sans-serif">Samuel, boa tarde!</font></div><div><font face="arial, helvetica, sans-serif"><br></font></div><div><font face="arial, helvetica, sans-serif">Segue uma sugestão,</font></div>
<div><font face="courier new, monospace"><br></font></div><font face="courier new, monospace">### <code r></font><br><div><div><font face="courier new, monospace">dados <- data.frame(h=c(18.79, 12.34, 14.11, 15.24, 13.82, 14.54, 13.77, 13.99, 10.00, 16.80, 10.49, 20.00, 14.19, 14.09, 14.65, 12.22, 16.21, 13.90, 16.29, 15.39), parc=rep(1:4, each=5), arv=rep(1:5, 4))</font></div>
<div><font face="courier new, monospace"><br></font></div><div><font face="courier new, monospace">{set.seed(765); sorteio  <- lapply(10:1, function(x) unlist(sample(seq(dados[,1]),x)))}</font></div><div><font face="courier new, monospace">sorteio</font></div>
<div><font face="courier new, monospace">datasets <- lapply(sorteio, function(x) dados[unlist(x),]); datasets</font></div><div><font face="courier new, monospace">medias   <- sapply(sorteio, function(x) c(colMeans(dados[unlist(x),]), n=length(x))); medias</font></div>
<div><font face="courier new, monospace">soma     <- sapply(sorteio, function(x) c(colSums(dados[unlist(x),]), n=length(x))); soma</font></div><div><font face="courier new, monospace">### </code></font></div><div>
<br></div></div><div class="gmail_extra"><br clear="all"><div><div dir="ltr">Éder Comunello <<a href="mailto:comunello.eder@gmail.com" target="_blank">c</a><a href="mailto:omunello.eder@gmail.com" target="_blank">omunello.eder@gmail.com</a>> <br>
Dourados, MS - [22 16.5'S, 54 49'W]<br></div></div>
<br><br></div></div>