Replace Array Element Numpy Mean Function Rstudio