<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META content="text/html; charset=iso-8859-1" http-equiv=Content-Type>
<META name=GENERATOR content="MSHTML 8.00.6001.23532">
<STYLE></STYLE>
</HEAD>
<BODY 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 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 class=gmail_extra><BR><BR>produzível.</DIV></BLOCKQUOTE></BODY></HTML>