library(EFAfactors)
nfacts <- c(5, 5, 5, 6, 6, 4)
names(nfacts) <- c("Hull", "CD", "PA", "EKC", "FF", "DNN")
EFAvote.obj <- EFAvote(votes = nfacts)
# Visualize the voting results
plot(EFAvote.obj)
Run the code above in your browser using DataLab