typo again

snoweye · snoweye · commit b5d0a5bcb3a2 · 2017-06-18T15:31:26.000-04:00
diff --git a/R/00_pmclust_reduceK.r b/R/00_pmclust_reduceK.r
@@ -8,9 +8,9 @@ pmclust.reduceK <- function(K = 2, algorithm = .PMC.CT$algorithm){
   }
 
   if(algorithm[1] %in% .PMC.CT$algorithm.gbd){
-    ret <- pmclust.reduceK.spmd(X = X, K = K, algorithm = algorithm)
+    ret <- pmclust.reduceK.spmd(K = K, algorithm = algorithm)
   } else if(algorithm[1] %in% .PMC.CT$algorithm.dmat){
-    ret <- pmclust.reduceK.dmat(X = X, K = K, algorithm = algorithm)
+    ret <- pmclust.reduceK.dmat(K = K, algorithm = algorithm)
   } else{
     comm.stop("The algorithm is not found.")
   }

Original file line number	Diff line number	Diff line change
`@@ -8,9 +8,9 @@ pmclust.reduceK <- function(K = 2, algorithm = .PMC.CT$algorithm){`
`8`	`8`	`}`
`9`	`9`
`10`	`10`	`if(algorithm[1] %in% .PMC.CT$algorithm.gbd){`
`11`		`- ret <- pmclust.reduceK.spmd(X = X, K = K, algorithm = algorithm)`
	`11`	`+ ret <- pmclust.reduceK.spmd(K = K, algorithm = algorithm)`
`12`	`12`	`} else if(algorithm[1] %in% .PMC.CT$algorithm.dmat){`
`13`		`- ret <- pmclust.reduceK.dmat(X = X, K = K, algorithm = algorithm)`
	`13`	`+ ret <- pmclust.reduceK.dmat(K = K, algorithm = algorithm)`
`14`	`14`	`} else{`
`15`	`15`	`comm.stop("The algorithm is not found.")`
`16`	`16`	`}`