powered by
getLabels(model, data)
temp <- EM(irisdata, 4) temp2 <- getLabels(temp, irisdata)
Run the code above in your browser using DataLab