Create averaging_meth_values.R

example run in R