data("ex_mcfa2")
ex <- classic.to.sym(ex_mcfa2,
concept = employee_id,
variables = c(employee_id, salary, region, evaluation, years_worked),
salary = sym.set(salary),
region = sym.set(region),
evaluation = sym.set(evaluation),
years_worked = sym.set(years_worked))
res <- sym.mcfa(ex, c(1,2,3,4))
mcfa.scatterplot(res[,1], res[,2], sym.data = ex, pos.var = c(1,2,3,4))
Run the code above in your browser using DataLab