scatter.fca(x, xax = 1, yax = 2, clab.moda = 1, labels = names(x$tab),
sub = NULL, csub = 2, ...)
fca
par("cex")*csub
data(coleo)
coleo.fuzzy <- prep.fuzzy.var(coleo$tab, coleo$col.blocks)
fca1 <- dudi.fca(coleo.fuzzy, sca = FALSE, nf = 3)
scatter(fca1, labels = coleo$moda.names, clab.moda = 1.5,
sub = names(coleo$col.blocks), csub = 3)
Run the code above in your browser using DataLab