data(coleo)
op <- par(no.readonly = TRUE)
coleo.fuzzy <- prep.fuzzy.var(coleo$tab, coleo$col.blocks)
fca1 <- dudi.fca(coleo.fuzzy, sca = FALSE, nf = 3)
par(mfrow = c(3,3))
indica <- factor(rep(names(coleo$col), coleo$col))
for (j in levels(indica)) s.distri (fca1$l1,
coleo$tab[,which(indica==j)], clab = 1.5, sub = as.character(j),
cell = 0, csta = 0.5, csub = 3,
label = coleo$moda.names[which(indica==j)])
par(op)
par(mfrow=c(1,1))
Run the code above in your browser using DataLab