Plotmeans.R

this is the first version