test_that("Calculate assignment accuracy for Monte-Carlo results",{
test_that("Calculate assignment accuracy for K-fold results",{

"Calculate assignment accuracy for Monte-Carlo results"
"Calculate assignment accuracy for K-fold results"

Calculate assignment accuracy for Monte-Carlo results

Calculate assignment accuracy for K-fold results

plot <- membership.plot(dir="ResKFtest/", style=1, non.genetic=T)