Bug: inputs don't get validated

[MovGP0]

when doing something like

library("EMCluster", quietly = TRUE)
data("iris")
config <- EMCluster::simple.init(iris , nclass = 6)
result <- EMCluster::emcluster(iris, config, assign.class = TRUE)

instead of

library("EMCluster", quietly = TRUE)
data("iris")
irisData <- iris[, 1:4]
config <- EMCluster::simple.init(irisData, nclass = 6)
result <- EMCluster::emcluster(irisData, config, assign.class = TRUE)

the algorithm will result in an infinite loop. the reason is that iris is a Data Frame with iris[,5] beeing of type string.

Apparently the inputs won't get validated anywhere in the code.