<div dir="ltr"><div class="gmail_default" style="font-family:trebuchet ms,sans-serif"><span style="font-family:courier new,monospace">require(nlme)<br><br>help(<b>corSymm</b>, help_type="html")<br><br>fm1Orth.gls <- gls(distance ~ Sex * I(age - 11), Orthodont,<br>
                   correlation = <b>corSymm</b>(form = ~ 1 | Subject),<br>                   weights = varIdent(form = ~ 1 | age))<br><br>summary(fm1Orth.gls)<br></span><br>À disposição.<br>Walmes.<br><br></div>​</div>