mpi with R