Remove comm.stop()

snoweye · snoweye · commit ddbdce0964a3 · 2017-06-17T12:56:05.000-04:00
diff --git a/R/dmat_em_base.r b/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){
-          comm.stop(paste("NaN occurs at", i.k))
+          stop(paste("NaN occurs at", i.k))
         }
       }
     } else{
diff --git a/R/pm_aecm_base.r b/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){
-          comm.stop(paste("NaN occurs at", i.k))
+          stop(paste("NaN occurs at", i.k))
         }
       }
     } else{
diff --git a/R/pm_apecma_base.r b/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){
-        comm.stop(paste("NaN occurs at", i.k))
+        stop(paste("NaN occurs at", i.k))
       }
     }
   } else{
diff --git a/R/pm_em_base.r b/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){
-          comm.stop(paste("NaN occurs at", i.k))
+          stop(paste("NaN occurs at", i.k))
         }
       }
     } else{

Original file line number	Diff line number	Diff line change
`@@ -230,7 +230,7 @@ m.step.dmat <- function(PARAM){`
`230`	`230`
`231`	`231`	`.pmclustEnv$FAIL.i.k <- i.k # i.k is failed to update.`
`232`	`232`	`if(.pmclustEnv$CONTROL$stop.at.fail){`
`233`		`- comm.stop(paste("NaN occurs at", i.k))`
	`233`	`+ stop(paste("NaN occurs at", i.k))`
`234`	`234`	`}`
`235`	`235`	`}`
`236`	`236`	`} else{`
Original file line number	Diff line number	Diff line change
`@@ -58,7 +58,7 @@ cm.step.spmd.SIGMA <- function(PARAM){`
`58`	`58`
`59`	`59`	`.pmclustEnv$FAIL.i.k <- i.k # i.k is failed to update.`
`60`	`60`	`if(.pmclustEnv$CONTROL$stop.at.fail){`
`61`		`- comm.stop(paste("NaN occurs at", i.k))`
	`61`	`+ stop(paste("NaN occurs at", i.k))`
`62`	`62`	`}`
`63`	`63`	`}`
`64`	`64`	`} else{`
Original file line number	Diff line number	Diff line change
`@@ -55,7 +55,7 @@ cm.step.spmd.MU.SIGMA.k <- function(PARAM, i.k){`
`55`	`55`
`56`	`56`	`.pmclustEnv$FAIL.i.k <- i.k # i.k is failed to update.`
`57`	`57`	`if(.pmclustEnv$CONTROL$stop.at.fail){`
`58`		`- comm.stop(paste("NaN occurs at", i.k))`
	`58`	`+ stop(paste("NaN occurs at", i.k))`
`59`	`59`	`}`
`60`	`60`	`}`
`61`	`61`	`} else{`
Original file line number	Diff line number	Diff line change
`@@ -105,7 +105,7 @@ m.step.spmd <- function(PARAM){`
`105`	`105`
`106`	`106`	`.pmclustEnv$FAIL.i.k <- i.k # i.k is failed to update.`
`107`	`107`	`if(.pmclustEnv$CONTROL$stop.at.fail){`
`108`		`- comm.stop(paste("NaN occurs at", i.k))`
	`108`	`+ stop(paste("NaN occurs at", i.k))`
`109`	`109`	`}`
`110`	`110`	`}`
`111`	`111`	`} else{`