@@ -64,13 +64,18 @@ patternMatch4Parallel <- function(Ptot, nSets, cnt, minNS=NULL, maxNS=NULL,

     indx<-which(unlist(lapply(cc$PByClust,function(x) dim(x)[1]>maxNS)))

     while(length(indx)>0){

             icc<-corcut(cc$PByClust[[indx[1]]],minNS,2,cluster.method)

-            cc$PByClust[[indx[1]]]<-icc[[2]][[1]]

-            cc$RtoMeanPattern[[indx[1]]]<-icc[[1]][[1]]

-            if(length(icc[[2]])>1){

-                cc$PByClust<-append(cc$PByClust,icc[[2]][2])

-                cc$RtoMeanPattern<-append(cc$RtoMeanPattern,icc[[1]][2])

-            } 

-            indx<-which(unlist(lapply(cc$PByClust,function(x) dim(x)[1]>maxNS)))

+            if(length(icc[[2]])==0){

+              indx<-indx[-1]

+              next

+            } else{

+                cc$PByClust[[indx[1]]]<-icc[[2]][[1]]

+                cc$RtoMeanPattern[[indx[1]]]<-icc[[1]][[1]]

+                if(length(icc[[2]])>1){

+                    cc$PByClust<-append(cc$PByClust,icc[[2]][2])

+                    cc$RtoMeanPattern<-append(cc$RtoMeanPattern,icc[[1]][2])

+                } 

+                indx<-which(unlist(lapply(cc$PByClust,function(x) dim(x)[1]>maxNS)))

+            }

     }

     #weighted.mean