# NOT RUN {
data(DataFreq) # frequency data set
Data <- DataFreq[,2:ncol(DataFreq)]
rownames(Data) <- as.character(t(DataFreq[1:nrow(DataFreq),1]))
Resp <- CA(Data, "f") # performs CA
print("Is there dependency between rows and columns?"); Resp$DepData
print("Number of principal coordinates:"); Resp$NumCood
print("Principal coordinates of the rows:"); round(Resp$MatrixX,2)
print("Principal coordinates of the columns:"); round(Resp$MatrixY,2)
print("Inertia of the principal components:"); round(Resp$MatrixAutoVlr,2)
# }
Run the code above in your browser using DataLab