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) # Analise de correlacao canonica
tit <- c("Scree-plot","Correlacoes","Scores do grupo X","Scores do grupo Y")
Plot.CCA(res, titles = tit, xlabel = NA, ylabel = NA,
color = TRUE, savptc = FALSE, width = 3236,
height = 2000, res = 300, axes = TRUE,
casc = FALSE)
Run the code above in your browser using DataLab