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)
# Circle of correlations of all the tables
inter <- res$circle.inter
plot.statis.circle(inter$points, inter$inertia, inter$labels, inter$title)
# Circle of correlations of all variables evolution
intra <- res$circle.intra
plot.statis.circle(intra$points, intra$inertia, intra$labels, intra$title)
Run the code above in your browser using DataLab