Update xMapply.R

re-wrote xMapply to use do.call, like it should have used in the first place.