replace isend

Author: snoweye

ChangeLog

@@ -1,5 +1,6 @@
-2013-07-03: Ver. 0.1-6
+2013-07-05: 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-03 17:57:53 UTC; snoweye
+Packaged: 2013-07-04 18:44:09 UTC; snoweye
 Author: Wei-Chen Chen [aut, cre],
   George Ostrouchov [aut]
 Maintainer: Wei-Chen Chen <[email protected]>

R/02_load_balance.r

@@ -88,14 +88,14 @@ load.balance <- function(X.spmd, bal.info = NULL, comm = .SPMD.CT$comm,
       for(i in send.to){
         if(i != COMM.RANK){
           tmp <- matrix(X.spmd[bal.info$send$belong == i,], ncol = p)
-          isend(tmp, rank.dest = i, tag = COMM.RANK, comm = comm)
+          send(tmp, rank.dest = i, tag = COMM.RANK, comm = comm)
         }
       }
     } else{
       for(i in send.to){
         if(i != COMM.RANK){
           tmp <- matrix(X.spmd[, bal.info$send$belong == i], nrow = p)
-          isend(tmp, rank.dest = i, tag = COMM.RANK, comm = comm)
+          send(tmp, rank.dest = i, tag = COMM.RANK, comm = comm)
         }
       }
     }

R/pm_my_tools.r

@@ -11,8 +11,8 @@ set.global <- function(K = 2, X.spmd = NULL, PARAM = NULL,
       if(A){
         # It is default and does not thing.
       } else if(B){
-        .pmclustEnv$X.spmd <- X.gbd
-        X.spmd <- X.gbd
+        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.")
       }

inst/doc/pmclust-guide.R

@@ -0,0 +1,2 @@
+### R code from vignette source 'pmclust-guide.Rnw'
+