<html><head></head><body><div class="yahoo-style-wrap" style="font-family:Helvetica Neue, Helvetica, Arial, sans-serif;font-size:13px;"><div dir="ltr" data-setdir="false"><b><font size="3">Prezados, boa tarde.</font></b></div><div dir="ltr" data-setdir="false"><b><font size="3"><br></font></b></div><div dir="ltr" data-setdir="false"><b><font size="3">No modelo de efeitos aleatórios estimamos a componente da variância conforme abaixo.</font></b></div><div dir="ltr" data-setdir="false"><font color="#7dbef1"><img title="Inline image" alt="Inline image" src="cid:4e8dcc1f-2c41-c7e5-a8ed-1d597959721f@yahoo.com" class="yahoo-inline-image" draggable="false" style="max-width: 400px; width: 50%;" data-id="<4e8dcc1f-2c41-c7e5-a8ed-1d597959721f@yahoo.com>"><br><span></span><br></font></div><div dir="ltr" data-setdir="false"><div><div style="font-family: "Helvetica Neue", Helvetica, Arial, sans-serif;">y <-c(2370, 1687, 2592, 2283, 2910, 3020, 1282, 1527, 871, 1025, 825, 920, 562, 321, 636, 317, 485, 842, 173, 127, 132, 150, 129, 227, 193, 71, 82, 62, 96, 44)</div><div style="font-family: "Helvetica Neue", Helvetica, Arial, sans-serif;">x <- as.factor(c("A", "A", "A", "A", "A", "A", "B", "B", "B", "B", "B", "B", "C", "C", "C", "C", "C", "C", "D", "D", "D", "D", "D", "D", "E", "E", "E", "E", "E", "E"))</div></div></div><div dir="ltr" data-setdir="false"><span>summary(aov(y~x))</span><br></div><div dir="ltr" data-setdir="false"><span><br></span></div><div dir="ltr" data-setdir="false"><span><br></span></div><div dir="ltr" data-setdir="false"><b><font size="3">Mas não sei como calcular quando utilizo mínimos quadrados generalizados.</font></b></div><div dir="ltr" data-setdir="false"><span><br></span></div><div dir="ltr" data-setdir="false">y <-c(2370, 1687, 2592, 2283, 2910, 3020, 1282, 1527, 871, 1025, 825, 920, 562, 321, 636, 317, 485, 842, 173, 127, 132, 150, 129, 227, 193, 71, 82, 62, 96, 44)<br></div><div dir="ltr" data-setdir="false"><div><div>x <- as.factor(c("A", "A", "A", "A", "A", "A", "B", "B", "B", "B", "B", "B", "C", "C", "C", "C", "C", "C", "D", "D", "D", "D", "D", "D", "E", "E", "E", "E", "E", "E"))</div><div>library(nlme)<br></div><div>modelo <- gls(y~x, weights = varExp() , method = "ML")</div><div><br></div><div dir="ltr" data-setdir="false"><font size="3"><b>Alguém sabe como calculo as componentes da variância neste caso?</b></font></div><div dir="ltr" data-setdir="false"><font size="3"><b><br></b></font></div><div dir="ltr" data-setdir="false"><font size="3"><b>Desde já agradeço</b></font></div><div dir="ltr" data-setdir="false"><font size="3"><b><br></b></font></div><div dir="ltr" data-setdir="false"><font size="3"><b>Luiz</b></font></div><div><font size="3"><b><br></b></font></div></div><br></div></div></body></html>