Using the Rmpi package, write a parallel R code that applies a cumulative sum to a vector vec. Your solution should pass no more than dlog2 (n)e messages per processor (not counting the initial data...

Using the Rmpi package, write a parallel R code that applies a cumulative sum to a vector vec. Your solution should pass no more than dlog2 (n)e messages per processor (not counting the initial data distribution), where n is the number of slaves spawned.