https://elitehacksor.com/sample-mean-in-r