<html>
<head>
<meta content="text/html; charset=utf-8" http-equiv="Content-Type">
</head>
<body bgcolor="#FFFFFF" text="#000000">
<p>Você pode analisar via matriz de correlação e análise dos
autovalores desta matriz pois se existir uma ou mais dependências
lineares significa um ou mais autovalores são pequenos, também
pode analisar o determinante da matriz de correlação, sabemos das
aulas de Álgebra Linear que quando o det = 0 significa que há
dependência linear entre os vetores. Pode também fazer análise
gráfica de de X<font size="-2">i</font> vs X<font size="-2">j</font>
(i<math xmlns="http://www.w3.org/1998/Math/MathML"><semantics><mo>≢j
</mo><annotation encoding="TeX">≢</annotation></semantics></math>),
<br>
</p>
E também há o VIF - Fator de inflação da variância<br>
<br>
VIF<font size="-2">j</font>=1/1-R²<font size="-2">j<br>
<br>
</font><br>
<font size="+1">R²</font><font size="-2">j </font>é o coeficiente
de determinação múltiplo obtido pela regressão de<font size="-2"> </font>X<font
size="-2">j </font>com as demais covariáveis no modelo<font
size="-2">.<br>
<br>
<br>
</font>##### VIF ##############<font size="-2"><br>
<br>
</font>vif<-function (obj, digits = 5) {<br>
Qr <- obj$qr<br>
if (is.null(obj$terms) || is.null(Qr))<br>
stop("invalid 'lm' object: no terms or qr component")<br>
tt <- terms(obj)<br>
hasintercept <- attr(tt, "intercept") > 0<br>
p <- Qr$rank<br>
if (hasintercept)<br>
p1 <- 2:p<br>
else p1 <- 1:p<br>
R <- Qr$qr[p1, p1, drop = FALSE]<br>
if (length(p1) > 1)<br>
R[row(R) > col(R)] <- 0<br>
Rinv <- qr.solve(R)<br>
vv <- apply(Rinv, 1, function(x) sum(x^2))<br>
ss <- apply(R, 2, function(x) sum(x^2))<br>
vif <- ss * vv<br>
signif(vif, digits)<br>
}<br>
x <- rnorm(100,2,.5)<br>
x2 <- 1.5+x^2+x<br>
y <- rnorm(100)<br>
mod1 <- lm(y~x+x2)<br>
summary(mod1)<br>
vif(mod1)<br>
<br>
<br>
<font size="-2"><br>
<br>
<br>
</font>
<div class="moz-cite-prefix">Em 22/03/2017 22:29, Elias Carvalho via
R-br escreveu:<br>
</div>
<blockquote
cite="mid:CAH8E6UuXRu_AbaXuisbY38N+9mdojODALgZw625p8sDYyoyp_g@mail.gmail.com"
type="cite">
<div dir="ltr">
<div class="gmail_default" style="font-family:times new
roman,serif;font-size:small">Boa noite pessoal</div>
<div class="gmail_default" style="font-family:times new
roman,serif;font-size:small"><br>
</div>
<div class="gmail_default" style="font-family:times new
roman,serif;font-size:small">Alguém poderia me indicar os
melhores métodos via R para identificar multicolinearidade de
dados ?</div>
<div class="gmail_default" style="font-family:times new
roman,serif;font-size:small"><br>
</div>
<div class="gmail_default" style="font-family:times new
roman,serif;font-size:small">Pelo que pesquisei no forum a
maioria das informações parece ser antigas (2011 a 2015) por
isso gostaria de algo mais recente.</div>
<div><br>
</div>
-- <br>
<div class="gmail_signature" data-smartmail="gmail_signature">
<div dir="ltr">
<div>
<div dir="ltr">
<div>
<div dir="ltr">
<div>
<div dir="ltr">
<div>
<div dir="ltr">
<div>
<div dir="ltr">
<div dir="ltr">
<div><font face="times new roman,
serif"><i><span
style="font-size:12.8px">In
Jesu et Maria</span><br>
<br style="font-size:small">
</i></font>
<div>
<div dir="ltr">
<div dir="ltr">
<div dir="ltr">
<div style="font-size:small"><font
face="times new roman,
serif"><i>Obrigado</i></font></div>
<div style="font-size:small"><font
face="times new roman,
serif"><i>Prof. Elias
Carvalho</i></font></div>
<div style="font-size:small"><font
face="times new roman,
serif"><i><br>
</i></font></div>
<div><font face="times new
roman, serif" size="2"><i>
<div>"Felix, qui
potuit rerum
cognoscere causas"
(Virgil 29 BC)</div>
<div>"Blessed is he
who has been able to
understand the cause
of things"</div>
</i></font></div>
</div>
</div>
</div>
</div>
</div>
</div>
</div>
</div>
</div>
</div>
</div>
</div>
</div>
</div>
</div>
</div>
</div>
</div>
</div>
<br>
<fieldset class="mimeAttachmentHeader"></fieldset>
<br>
<pre wrap="">_______________________________________________
R-br mailing list
<a class="moz-txt-link-abbreviated" href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a>
<a class="moz-txt-link-freetext" href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a>
Leia o guia de postagem (<a class="moz-txt-link-freetext" href="http://www.leg.ufpr.br/r-br-guia">http://www.leg.ufpr.br/r-br-guia</a>) e forne�a c�digo m�nimo reproduz�vel.</pre>
</blockquote>
<br>
<pre class="moz-signature" cols="72">--
Atenciosamente,
==================================
Felipe E. Barletta Mendes
Estatístico(UFPR) - Conre3 9766-A
Mestrando em Bioestatística(UEM)
+55 (41)-92077191
+55 (41)-33287216
===================================</pre>
</body>
</html>