<html><head><style type="text/css"><!-- DIV {margin:0px;} --></style></head><body><div style="font-family:arial,helvetica,sans-serif;font-size:14pt;color:#000000;">Quase apanhei da mulher tentando te responder este tópico! Bom, é o seguinte: Depois de umas duas horas na internet pesquisando sobre tal assunto, descobri o seguinte:<br>Segundo o livro do Hair, o índice de redundância é calculado como a carga quadrada média vezes o R² canônico. No livro do gente fina do Hair e nem na net, eu não encontrei como se calcula o R² canônico. Se alguém souber me diga por favor. No entanto, encontrei um pacote que tem uma função o qual se extrai este índice de redundância. O pacote é o "yacca". Utilizando a base de dados do livro do Hair para conferir é claro se estava certo. Logo temos:<br><br>setwd("/home/ivan/Área de Trabalho")<br>daa <- read.table("da.txt", h=T)<br>summary(daa)<br>install.packages("yacca")<br>library(yacca)<br>X <-
daa[,2:8]<br>Y <- daa[,9:10]<br>mod <- cca(X,Y)<br>mod$xvrd#lhe retorna os índices de redundância<br>mod$yvrd#lhe retorna os índices de redundância<br><br>Olhe o pdf do pacote para maiores detalhes.<br><br>Abraço.<br><br>Allaman<br>(S,f,P)<br><br><div> </div><div style="background-color: transparent; color: rgb(115, 115, 115);" align="center"><strong>M.Sc Ivan Bezerra Allaman</strong> <br>Zootecnista<br><font style="background-color: transparent;" face="comic sans ms" size="2"><font style="background-color: transparent;">Doutorando em Produção Animal/Aquicultura - UFLA</font> <br></font><font size="2"><em><strong></strong></em></font><font style="background-color: transparent;" face="comic sans ms" size="2">email e msn - ivanalaman@yahoo.com.br <br><font size="1">Tel: (35)3826-6608/9900-2924</font></font></div><div><br></div>
</div></body></html>