<div><span style="font-size: large; color: #0000ff;">Tem o data set deste arquivo para rodar?</span></div>
<div> </div>
<div> </div>
<div dir="ltr">Especificamente nesse problema, alguns autores tem utilizado com sucesso regressão isotonica. Veja Rodrigues e Chaves, Revista Brasileira de Biometria, 2010, 28:85-101</div>
<div class="gmail_extra"><br />
<div class="gmail_quote">Em 20 de julho de 2017 16:42, Adriele Giaretta Biase via R-br <span dir="ltr"><<a href="../../../undefined//compose?to=r-br@listas.c3sl.ufpr.br" target="_blank">r-br@listas.c3sl.ufpr.br</a>></span> escreveu:<br />
<blockquote class="gmail_quote" style="margin: 0 0 0 .8ex; border-left: 1px #ccc solid; padding-left: 1ex;">
<div dir="ltr"><br />
<div>
<p class="MsoNormal" style="line-height: normal;"><span style="font-size: 12pt; font-family: 'Times New Roman',serif;">Boa tarde pessoal,</span></p>
<p class="MsoNormal" style="line-height: normal;"><span style="font-size: 12pt; font-family: 'Times New Roman',serif;"><span> </span></span></p>
<p class="MsoNormal" style="line-height: normal;"><span style="font-size: 12pt; font-family: 'Times New Roman',serif;">estou trabalhando com um banco de dados que possuem várias coletas de pesos ao longo do tempo de vários bois.</span></p>
<p class="MsoNormal" style="line-height: normal;"><span style="font-size: 12pt; font-family: 'Times New Roman',serif;">O meu objetivo é deixar um ajuste simples (pode até ser um modelo não- linear ao invés de uma regressão simples), porém, preciso remover os possíveis pontos discrepantes que atrapalham o ajuste, de forma recursiva (automática). O algoritmo será executado em vários momentos, enquanto acompanha o crescimento do animal. O mais importante  seria a remoção dos <em>outiliers</em> do banco de dados.  Eu criei um algoritmo para fazer isso. </span></p>
<p class="MsoNormal" style="line-height: normal;"><span style="font-size: 12pt; font-family: 'Times New Roman',serif;">Gostaria de saber se alguém possui uma ideia melhor ou sugestão. Segue a função  criada.</span></p>
<p class="MsoNormal" style="line-height: normal;"><span style="font-size: 12pt; font-family: 'Times New Roman',serif;"> </span></p>
<p class="MsoNormal" style="line-height: normal;"><span style="font-family: 'Times New Roman', serif;"><span style="font-size: 12pt;"><strong>OBS:</strong> Muitos pontos discrepantes ainda ficam no banco, isso devido a um erro operacional da balança que pesa os animais. Precisaria de algo mais robusto para remover os pontos </span><span style="font-size: 16px;">destoantes de forma recursiva para todos os animais</span><span style="font-size: 12pt;">.</span></span></p>
<p class="MsoNormal" style="line-height: normal;"> </p>
<p class="MsoNormal" style="line-height: normal;"><span style="font-size: 12pt; font-family: 'Times New Roman',serif;"><span> </span></span></p>
<p class="MsoNormal" style="line-height: normal;"><span style="font-size: 12pt; font-family: 'Times New Roman',serif;">DADOS é um data.frame com as seguintes colunas: BRINCO (identificação ou numero do animal), DATA (dia da pesagem do peso do animal) e PESO (peso do animal correspondente ao dia)</span></p>
<p class="MsoNormal" style="line-height: normal;"><span style="font-size: 12pt; font-family: 'Times New Roman',serif;"><span> </span></span></p>
<p class="MsoNormal" style="line-height: normal;"><span style="font-size: 12pt; font-family: 'Times New Roman',serif;" lang="EN-US">fit_linear <- function(DADOS){</span></p>
<p class="MsoNormal" style="line-height: normal;"><span style="font-size: 12pt; font-family: 'Times New Roman',serif;" lang="EN-US">fit_aux = c()</span></p>
<p class="MsoNormal" style="line-height: normal;"><span style="font-size: 12pt; font-family: 'Times New Roman',serif;">BRINCO = as.numeric(as.vector(levels( as.factor(DADOS[,"BRINCO"])))) </span></p>
<p class="MsoNormal" style="line-height: normal;"><span style="font-size: 12pt; font-family: 'Times New Roman',serif;">pdf(file = "ajuste%03d.pdf")   # salvar os gráficos em pdf</span></p>
<p class="MsoNormal" style="line-height: normal;"><span style="font-size: 12pt; font-family: 'Times New Roman',serif;">for (i in BRINCO){</span></p>
<p class="MsoNormal" style="line-height: normal;"><span style="font-size: 12pt; font-family: 'Times New Roman',serif;">dados = subset(DADOS, BRINCO == i, selec =  c( BRINCO, DATA, PESO))</span></p>
<p class="MsoNormal" style="line-height: normal;"><span style="font-size: 12pt; font-family: 'Times New Roman',serif;">j=1</span></p>
<p class="MsoNormal" style="line-height: normal;"><span style="font-size: 12pt; font-family: 'Times New Roman',serif;">while (j<=30){</span></p>
<p class="MsoNormal" style="line-height: normal;"><span style="font-size: 12pt; font-family: 'Times New Roman',serif;">dias =  as.vector(as.numeric(as.factor(dados[,"DATA"]))) </span></p>
<p class="MsoNormal" style="line-height: normal;"><span style="font-size: 12pt; font-family: 'Times New Roman',serif;">pesos = as.numeric(as.vector(dados$PESO))</span></p>
<p class="MsoNormal" style="line-height: normal;"><span style="font-size: 12pt; font-family: 'Times New Roman',serif;">dad = cbind(dias, pesos)</span></p>
<p class="MsoNormal" style="line-height: normal;"><span style="font-size: 12pt; font-family: 'Times New Roman',serif;">mod <- lm(pesos~dias)</span></p>
<p class="MsoNormal" style="line-height: normal;"><span style="font-size: 12pt; font-family: 'Times New Roman',serif;" lang="EN-US">INFLUENTES = influence.measures(mod)</span></p>
<p class="MsoNormal" style="line-height: normal;"><span style="font-size: 12pt; font-family: 'Times New Roman',serif;" lang="EN-US">dados_analise = cbind(INFLUENTES$is.inf, dad)</span></p>
<p class="MsoNormal" style="line-height: normal;"><span style="font-size: 12pt; font-family: 'Times New Roman',serif;">dados_influentes = as.data.frame(dados_analise)</span></p>
<p class="MsoNormal" style="line-height: normal;"><span style="font-size: 12pt; font-family: 'Times New Roman',serif;">colnames(dados_influentes) = c("x1", "x2", "x3", "x4", "x5", "x6", "DATA", "PESO")</span></p>
<p class="MsoNormal" style="line-height: normal;"><span style="font-size: 12pt; font-family: 'Times New Roman',serif;">dados = subset(dados_influentes, (x1==FALSE & x2==FALSE & x3==FALSE & x4==FALSE & x5==FALSE & x6==FALSE), </span></p>
<p class="MsoNormal" style="line-height: normal;"><span style="font-size: 12pt; font-family: 'Times New Roman',serif;">               selec =  c(x1, x2, x3, x4, x5, x6, DATA, PESO))</span></p>
<p class="MsoNormal" style="line-height: normal;"><span style="font-size: 12pt; font-family: 'Times New Roman',serif;" lang="EN-US">j = j+1</span></p>
<p class="MsoNormal" style="line-height: normal;"><span style="font-size: 12pt; font-family: 'Times New Roman',serif;" lang="EN-US">}</span></p>
<p class="MsoNormal" style="line-height: normal;"><span style="font-size: 12pt; font-family: 'Times New Roman',serif;" lang="EN-US">res <- residuals(mod)</span></p>
<p class="MsoNormal" style="line-height: normal;"><span style="font-size: 12pt; font-family: 'Times New Roman',serif;" lang="EN-US">h <- hatvalues(mod)</span></p>
<p class="MsoNormal" style="line-height: normal;"><span style="font-size: 12pt; font-family: 'Times New Roman',serif;" lang="EN-US">P = length(mod$coefficient); N=length(peso); P; N; hc<-3*P/N;hc</span></p>
<p class="MsoNormal" style="line-height: normal;"><span style="font-size: 12pt; font-family: 'Times New Roman',serif;" lang="EN-US">limt <- list(c(DFB=2/sqrt(N),FDFits=2*sqrt(P/N),cov.r=3*P/N,</span></p>
<p class="MsoNormal" style="line-height: normal;"><span style="font-size: 12pt; font-family: 'Times New Roman',serif;" lang="EN-US"> Cook=qf(0.5,2,8, lower.tail = TRUE, log.p = FALSE),hat=3*P/N))</span></p>
<p class="MsoNormal" style="line-height: normal;"><span style="font-size: 12pt; font-family: 'Times New Roman',serif;" lang="EN-US">N=length(peso); P=length(mod$coefficient)</span></p>
<p class="MsoNormal" style="line-height: normal;"><span style="font-size: 12pt; font-family: 'Times New Roman',serif;" lang="EN-US">rs <- rstudent(mod)</span></p>
<p class="MsoNormal" style="line-height: normal;"><span style="font-size: 12pt; font-family: 'Times New Roman',serif;" lang="EN-US">h <- lm.influence(mod)$hat; lc <- 3*P/N</span></p>
<p class="MsoNormal" style="line-height: normal;"><span style="font-size: 12pt; font-family: 'Times New Roman',serif;" lang="EN-US">minrs=min(min(rs),-3)</span></p>
<p class="MsoNormal" style="line-height: normal;"><span style="font-size: 12pt; font-family: 'Times New Roman',serif;" lang="EN-US">maxrs=max(max(rs),3)</span></p>
<p class="MsoNormal" style="line-height: normal;"><span style="font-size: 12pt; font-family: 'Times New Roman',serif;" lang="EN-US">ymin=minrs-.1</span></p>
<p class="MsoNormal" style="line-height: normal;"><span style="font-size: 12pt; font-family: 'Times New Roman',serif;" lang="EN-US">ymax=maxrs+.1</span></p>
<p class="MsoNormal" style="line-height: normal;"><span style="font-size: 12pt; font-family: 'Times New Roman',serif;" lang="EN-US">maxh=max(max(h),lc)</span></p>
<p class="MsoNormal" style="line-height: normal;"><span style="font-size: 12pt; font-family: 'Times New Roman',serif;">minh=min(h)</span></p>
<p class="MsoNormal" style="line-height: normal;"><span style="font-size: 12pt; font-family: 'Times New Roman',serif;">xmin=minh-.1</span></p>
<p class="MsoNormal" style="line-height: normal;"><span style="font-size: 12pt; font-family: 'Times New Roman',serif;" lang="EN-US">xmax=maxh+.1</span></p>
<p class="MsoNormal" style="line-height: normal;"><span style="font-size: 12pt; font-family: 'Times New Roman',serif;" lang="EN-US">par(mfrow=c(1,1))</span></p>
<p class="MsoNormal" style="line-height: normal;"><span style="font-size: 12pt; font-family: 'Times New Roman',serif;" lang="EN-US">plot(c(xmin,xmax),c(ymin,ymax), type="n", xlab="h - leverage", ylab="RStudent", main= i)</span></p>
<p class="MsoNormal" style="line-height: normal;"><span style="font-size: 12pt; font-family: 'Times New Roman',serif;" lang="EN-US">abline(h=-2.5, col="red")</span></p>
<p class="MsoNormal" style="line-height: normal;"><span style="font-size: 12pt; font-family: 'Times New Roman',serif;" lang="EN-US">abline(h=2.5,col="red"); abline(v=lc, col="blue")</span></p>
<p class="MsoNormal" style="line-height: normal;"><span style="font-size: 12pt; font-family: 'Times New Roman',serif;" lang="EN-US">points(h,rs)</span></p>
<p class="MsoNormal" style="line-height: normal;"><span style="font-size: 12pt; font-family: 'Times New Roman',serif;" lang="EN-US">plot(dad,  main= i)</span></p>
<p class="MsoNormal" style="line-height: normal;"><span style="font-size: 12pt; font-family: 'Times New Roman',serif;" lang="EN-US">abline(mod,lty=2)</span></p>
<p class="MsoNormal" style="line-height: normal;"><span style="font-size: 12pt; font-family: 'Times New Roman',serif;" lang="EN-US">}</span></p>
<p class="MsoNormal" style="line-height: normal;"><span style="font-size: 12pt; font-family: 'Times New Roman',serif;" lang="EN-US">dev.off() </span></p>
<p class="MsoNormal" style="line-height: normal;"><span style="font-size: 12pt; font-family: 'Times New Roman',serif;">}</span></p>
<p class="MsoNormal" style="line-height: normal;"><span style="font-size: 12pt; font-family: 'Times New Roman',serif;"> </span></p>
<p class="MsoNormal" style="line-height: normal;"><span style="font-size: 12pt; font-family: 'Times New Roman',serif;">Agradeço,</span></p>
<p class="MsoNormal" style="line-height: normal;"><span style="font-size: 12pt; font-family: 'Times New Roman',serif;"> </span></p>
</div>
<span class="HOEnZb"><span class="HOEnZb"><span style="color: #888888;">-- <br /></span></span></span>
<div class="m_-8668372717783602070gmail_signature">
<div dir="ltr">
<div>
<div dir="ltr">
<div>
<div style="font-family: times,serif; margin: 0cm 0cm 0.0001pt; font-size: 16px;">Adriele Giaretta Biase.</div>
<div style="font-family: times,serif; margin: 0cm 0cm 0.0001pt; font-size: 16px;">Mestre em  Estatística e Experimentação Agropecuária - UFLA. <br />Doutora em Estatística e Experimentação Agronômica - ESALQ/ USP</div>
<div style="font-family: times,serif; margin: 0cm 0cm 0.0001pt; font-size: 16px;"><span style="font-size: 12pt;">Contato: (19) 98861-0619.</span></div>
</div>
</div>
</div>
</div>
</div>
</div>
<br /><br /></blockquote>
</div>
</div>