# NOT RUN {
data(oldFrench)
data(oldFrenchMeta)
oldFrench.ca = corres.fnc(oldFrench)
plot(oldFrench.ca, rlabels = oldFrenchMeta$Genre,
rcol = as.numeric(oldFrenchMeta$Genre), rcex = 0.5,
extreme = 0.1, ccol = "blue")
# }
Run the code above in your browser using DataLab