if (FALSE) {
library(EMCluster, quietly = TRUE)
x <- da2$LTSigma
class <- da2$class
y <- LTSigma2variance(x)
str(y)
y <- variance2LTSigma(y)
str(y)
sum(x != y)
Gamma <- class2Gamma(class)
class.new <- Gamma2class(Gamma)
sum(class != class.new)
}
Run the code above in your browser using DataLab