## Data from Lebart et al. 2006, p. 170-172
data("colours")
## The chi square of independence between the two variables
stats::chisq.test(colours)
## Compute correspondence analysis
X <- ca(colours)
## Plot rows
viz_rows(X, labels = TRUE)
## Plot columns
viz_columns(X, labels = TRUE)
## Get row coordinates
get_coordinates(X, margin = 1)
## Get column coordinates
get_coordinates(X, margin = 2)
## Get total inertia
sum(get_inertia(X))
## Get row contributions
get_contributions(X, margin = 1)
Run the code above in your browser using DataLab