data("ex_mcfa1")
sym.table <- classic.to.sym(ex_mcfa1,
concept = suspect,
hair = sym.set(hair),
eyes = sym.set(eyes),
region = sym.set(region)
)
res <- sym.mcfa(sym.table, c(1, 2))
mcfa.scatterplot(res[, 2], res[, 3], sym.data = sym.table, pos.var = c(1, 2))
Run the code above in your browser using DataLab