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[,1], res[,2], sym.data = sym.table, pos.var = c(1,2))
data("ex_mcfa1")
sym.table <- classic.to.sym(
x = ex_mcfa1,
concept = "suspect",
variables = c(hair, eyes, region),
hair = sym.set(hair),
eyes = sym.set(eyes),
region = sym.set(region)
)
sym.table
Run the code above in your browser using DataLab