Create phyloMean.R