data(DataMix) # conjunto de dados
data <- DataMix[,2:ncol(DataMix)]
rownames(data) <- DataMix[,1]
X <- data[,1:2]
Y <- data[,5:6]
res <- CCA(X, Y, type = 2, test = "Bartlett", sign = 0.05)
print("Matriz com autovalores (variancias) dos pares cononicos U e V:");
round(res$var.UV,3)
print("Matriz de correlacao dos pares cononicos U e V:"); round(res$corr.UV,3)
print("Matriz dos coeficientes canonicos do grupo X:"); round(res$coef.X,3)
print("Matriz dos coeficientes canonicos do grupo Y:"); round(res$coef.Y,3)
print("Matriz das correlacoes entre as variaveis canonicas
e as variaveis originais do grupo X:"); round(res$corr.X,3)
print("Matriz das correlacoes entre as variaveis canonicas
e as variaveis originais do grupo Y:"); round(res$corr.Y,3)
print("Matriz com os scores do grupo X:"); round(res$score.X,3)
print("Matriz com os scores do grupo Y:"); round(res$score.Y,3)
print("teste de significancia dos pares canonicos:"); res$sigtest
Run the code above in your browser using DataLab