# NOT RUN {
data(DataMix) # conjunto de dados
Data <- DataMix[,2:ncol(DataMix)]
rownames(Data) <- DataMix[,1]
X <- as.data.frame(NormData(Data[,1:2],2))
Y <- as.data.frame(NormData(Data[,5:6],2))
Resp <- CCA(X, Y, type = 1, test = "Bartlett", sign = 0.05) # Analise de correlacao canonica
Tit = c("Scree-plot","Correlacoes","Scores do grupo X","Scores do grupo Y")
Plot.CCA(Resp, titles = Tit, xlabel = NA, ylabel = NA,
color = TRUE, casc = TRUE)
# }
Run the code above in your browser using DataLab