typo

Author: snoweye

R/00_pmclust_reduceK.r

@@ -19,7 +19,7 @@ pmclust.reduceK <- function(K = 2, algorithm = .PMC.CT$algorithm){
 } # End of pmclust.reduceK().
 
 
-pmclust.reduce.spmd <- function(K = 2, algorithm = .PMC.CT$algorithm){
+pmclust.reduceK.spmd <- function(K = 2, algorithm = .PMC.CT$algorithm){
   # Get an initial start.
   PARAM.org <- set.global(K = K)
   PARAM.org <- try(initial.em(PARAM.org))

R/00_pmclust_reduceK_dmat.r

@@ -1,6 +1,6 @@
 ### A dmat version for automatically reducing K methods.
 
-pmclust.reduce.dmat <- function(K = 2, algorithm = .PMC.CT$algorithm){
+pmclust.reduceK.dmat <- function(K = 2, algorithm = .PMC.CT$algorithm){
   # Get an initial start.
   PARAM.org <- set.global.dmat(K = K)
   PARAM.org <- try(initial.em.dmat(PARAM.org))