I have just installed Rmpi on a Suse 9.1 linux cluster with
openmpi-1.0.1. I am trying the example included below from the tutorial
website. However, I keep getting the following error:

 

> # Load the R MPI package if it is not already loaded.

> if (!is.loaded("mpi_initialize")) {

+     library("Rmpi")

+     }

>


  

> # Spawn as many slaves as possible

> mpi.spawn.Rslaves(nslaves=4)

                4 slaves are spawned successfully. 0 failed.

Error in unserialize(obj) : unknown input format

Calls: mpi.spawn.Rslaves ... mpi.bcast.Robj -> .mpi.unserialize ->
unserialize -

> .Call

Execution halted

 

 

# Load the R MPI package if it is not already loaded.

if (!is.loaded("mpi_initialize")) {

    library("Rmpi")

    }

 


# Spawn as many slaves as possible

mpi.spawn.Rslaves(nslaves=4)

 


# In case R exits unexpectedly, have it automatically clean up

# resources taken up by Rmpi (slaves, memory, etc...)

.Last <- function(){

    if (is.loaded("mpi_initialize")){

        if (mpi.comm.size(1) > 0){

            print("Please use mpi.close.Rslaves() to close slaves.")

            mpi.close.Rslaves()

        }

        print("Please use mpi.quit() to quit R")

        .Call("mpi_finalize")

    }

}

 

# Tell all slaves to return a message identifying themselves

mpi.remote.exec(paste("I am",mpi.comm.rank(),"of",mpi.comm.size()))

 

# Tell all slaves to close down, and exit the program

mpi.close.Rslaves()

mpi.quit()

 

Mark Lyman, Statistician

ATK Launch Systems

mark.lyman@atk.com <mailto:mark.lyman@atk.com> 

(435) 863-2863


	[[alternative HTML version deleted]]

