data(ex_mcfa2)

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))