search

snoweye / EMCluster

EM Algorithm for Model-Based Clustering of Finite Mixture Gaussian Distribution
Mozilla Public License 2.0
17 stars 0 forks source link

demo dies #2

Closed pdbailey0 closed 7 years ago

pdbailey0 commented 7 years ago

I don't know if this is expected, but this demo dies for me

> demo(allinit, "EMCluster", ask=FALSE)

        demo(allinit)
        ---- ~~~~~~~

> library(EMCluster, quiet = TRUE)

> set.seed(1234)

> x <- da1$da

> TC <- da1$class

> n <- nrow(x)

> p <- ncol(x)

> k <- 10

> ret.em <- init.EM(x, nclass = k, method = "em.EM")
Warning: stack imbalance in '<-', 8 then 0
Warning: stack imbalance in 'withVisible', 3 then -5
Error in source(available, echo = echo, max.deparse.length = Inf, keep.source = TRUE,  : 
  R_Reprotect: only 0 protected items, can't reprotect index -5

> sessionInfo()
R version 3.4.0 (2017-04-21)
Platform: x86_64-w64-mingw32/x64 (64-bit)
Running under: Windows 7 x64 (build 7601) Service Pack 1
snoweye commented 7 years ago

This was fixed at here.