Create M-ComBat R Script

R code necessary to perform M-ComBat in R.