<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>