replaced mclapply with lapply in find.outliers

zarquon42b · Feb 24, 2014 · b2d425b · b2d425b
1 parent 976054e
commit b2d425b
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/find.outliers.r b/R/find.outliers.r
@@ -66,7 +66,7 @@ find.outliers <- function(A,color=4,lwd=1,lcol=2,mahalanobis=FALSE,PCuse=NULL, t
                 rho <- angle.calc(A$rotated[,,i],A$mshape)
                 return(rho)          	
             }
-        rho <- unlist(mclapply(a.list,rhofun))
+        rho <- unlist(lapply(a.list,rhofun))
         A$rho <- rho
     } else {
         cat("mahalanobis distance is used\n")