<div dir="ltr">Ok.<div>Vou enviar por meio do seu e-mail particular.</div><div>Luiz Roberto</div></div><div class="gmail_extra"><br clear="all"><div><div>Luiz Roberto Martins Pinto<br>Prof. Pleno/DCET/UESC</div><div>Laboratório de Estatística Computacional</div>
<div>Universidade Estadual de Santa Cruz</div><div>Ilhéus-Bahia<br><br><a href="mailto:luizroberto.uesc@gmail.com" target="_blank">luizroberto.uesc@gmail.com</a><br>skype: lrmpinto</div>
<div><a href="http://lattes.cnpq.br/2732314327604831" target="_blank">http://lattes.cnpq.br/2732314327604831</a> <br><br><br></div></div>
<br><br><div class="gmail_quote">Em 24 de outubro de 2013 00:13, Mauro Sznelwar <span dir="ltr"><<a href="mailto:sznelwar@uol.com.br" target="_blank">sznelwar@uol.com.br</a>></span> escreveu:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
<u></u>





<div bgcolor="#ffffff">
<div><font color="#0000ff"><font face="Arial">Eu não consegui abirir o arquivo de 
dados que colocou no datafilehost. Poderia me enviar anexado? Ou colocar no Mega 
Upload para baixar?</font><br></font></div>
<blockquote style="BORDER-LEFT:#000000 2px solid;PADDING-LEFT:5px;PADDING-RIGHT:0px;MARGIN-LEFT:5px;MARGIN-RIGHT:0px"><div class="im">
  <div dir="ltr">O código abaixo toma partes de  scripts do PDF dos pacotes 
  ff e ffbase. 
  <div><br></div>
  <div>Eu testei com seus dados  e deu certo. Mas na hora de copiar e colar 
  para o e-mail, houve erros... Acho que agora está certo.</div>
  <div>Mas ressalto, isso é só uma regressão linear. Não sei como calcular o 
  two-way anova a partir disso.. somente uma anova comum. Mas estou certo de que 
  tem jeito... </div>
  <div><br></div>
  <div>
  <div>
  <div><br></div>
  <div>
  <div>#####################################</div>
  <div><br></div>
  <div>require(ff)</div>
  <div>require(ffbase)</div>
  <div>require(biglm)</div>
  <div><br></div>
  <div>load("RCBD_Data.Rdata")</div>
  <div><br></div>
  <div>dados.ff = as.ffdf(Data)</div>
  <div>rm(Data)</div>
  <div>gc()</div>
  <div><br></div>
  <div>form = y ~ factor(Treat) + factor(block)</div>
  <div><br></div>
  <div>for (i in chunk(dados.ff, by=25000)){<br></div>
  <div>  if (i[1]==1){</div>
  <div>    message("first chunk is: ", i[[1]],":",i[[2]])</div>
  <div>    biglmfit <- biglm(form, 
  data=dados.ff[i,,drop=FALSE])</div>
  <div>  }else{</div>
  <div>    message("next chunk is: ", i[[1]],":",i[[2]])</div>
  <div>    biglmfit <- update(biglmfit, 
  dados.ff[i,,drop=FALSE])</div>
  <div>  }</div>
  <div>}</div>
  <div><br></div>
  <div>summary(biglmfit)</div></div></div></div></div>
  </div><div class="gmail_extra"><br><br>produzível.</div></blockquote></div>
<br>_______________________________________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br">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/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-guia</a>) e forneça código mínimo reproduzível.<br></blockquote></div><br></div>