est <- meVVV(iris[,-5], unmap(iris[,5]))
par(pty = "s", mfrow = c(1,1))
coordProj(iris[,-5], dimens=c(2,3), parameters = msEst$parameters, z = est$z,
what = "classification", identify = TRUE)
coordProj(iris[,-5], dimens=c(2,3), parameters = msEst$parameters, z = est$z,
truth = iris[,5], what = "errors", identify = TRUE)
coordProj(iris[,-5], dimens=c(2,3), parameters = msEst$parameters, z = est$z,
what = "uncertainty", identify = TRUE)Run the code above in your browser using DataLab