data(expert1, expert2, expert3)
labels <- c("Expert 1", "Expert 2", "Expert 3")
# If you want to select an specific table or row just set the parameters in the statis function.
res <- statis(list(expert1, expert2, expert3), table.labels = labels)
# Main Plane of Average Individuals
individuals <- res$plane.individuals
plot.statis.plane(individuals$points, individuals$inertia, individuals$labels, individuals$title)
# Main Plane of the Evolution of individuals
evolution <- res$plane.evolution
plot.statis.plane(evolution$points, evolution$inertia, evolution$labels, evolution$title)
Run the code above in your browser using DataLab