isend fixed

Author: snoweye

ChangeLog

@@ -1,6 +1,5 @@
-2013-07-05: Ver. 0.1-6
+2013-07-03: Ver. 0.1-6
   * Move inst/doc/vignettes/ to vignettes/.
-  * Avoid isend() in load.balance().
 
 2013-07-02: Ver. 0.1-5
   * Add high-level functions "pmclust" and "pkmeans".

DESCRIPTION

@@ -25,7 +25,7 @@ URL: http://r-pbd.org/
 BugReports: http://group.r-pbd.org/
 MailingList: Please send questions and comments regarding pbdR to
         [email protected]
-Packaged: 2013-07-04 18:44:09 UTC; snoweye
+Packaged: 2013-07-06 02:33:56 UTC; snoweye
 Author: Wei-Chen Chen [aut, cre],
   George Ostrouchov [aut]
 Maintainer: Wei-Chen Chen <[email protected]>

R/pm_my_tools.r

@@ -11,7 +11,7 @@ set.global <- function(K = 2, X.spmd = NULL, PARAM = NULL,
       if(A){
         # It is default and does not thing.
       } else if(B){
-        X.spmd <- get("X.gbd", envir = .GlobalEnv)
+        X.spmd <- get("X.gbd", envir = .pmclustEnv)
         .pmclustEnv$X.spmd <- X.spmd
       } else{
         comm.stop("A global X.spmd or X.gbd does not exist.")