use comm.stop()

Author: snoweye

R/00_pmclust_reduceK.r

@@ -29,7 +29,7 @@ pmclust.reduceK <- function(X = NULL, K = 2, MU = NULL,
       K <- K - length(i.k)
 
       ### Initial global storage.
-      PARAM.org <- set.global(K = K, RndEM.iter = RndEM.iter)
+      PARAM.org <- set.global(K = K, RndEM.iter = 0)
 
       ### Replacing PARAM.org by previous PARAM.new.
       PARAM.org$K <- K

R/dmat_em_base.r

@@ -230,7 +230,7 @@ m.step.dmat <- function(PARAM){
 
         .pmclustEnv$FAIL.i.k <- i.k    # i.k is failed to update.
         if(.pmclustEnv$CONTROL$stop.at.fail){
-          stop(paste("NaN occurs at", i.k))
+          comm.stop(paste("NaN occurs at", i.k))
         }
       }
     } else{

R/pm_aecm_base.r

@@ -58,7 +58,7 @@ cm.step.spmd.SIGMA <- function(PARAM){
 
         .pmclustEnv$FAIL.i.k <- i.k    # i.k is failed to update.
         if(.pmclustEnv$CONTROL$stop.at.fail){
-          stop(paste("NaN occurs at", i.k))
+          comm.stop(paste("NaN occurs at", i.k))
         }
       }
     } else{

R/pm_apecma_base.r

@@ -55,7 +55,7 @@ cm.step.spmd.MU.SIGMA.k <- function(PARAM, i.k){
 
       .pmclustEnv$FAIL.i.k <- i.k    # i.k is failed to update.
       if(.pmclustEnv$CONTROL$stop.at.fail){
-        stop(paste("NaN occurs at", i.k))
+        comm.stop(paste("NaN occurs at", i.k))
       }
     }
   } else{

R/pm_em_base.r

@@ -105,7 +105,7 @@ m.step.spmd <- function(PARAM){
 
         .pmclustEnv$FAIL.i.k <- i.k    # i.k is failed to update.
         if(.pmclustEnv$CONTROL$stop.at.fail){
-          stop(paste("NaN occurs at", i.k))
+          comm.stop(paste("NaN occurs at", i.k))
         }
       }
     } else{