Suppose you roll a fair die for 1000 times, and read the up face of the die as 1, 2, 3, 4, 5, and 6. Write a function to estimate that P(upface = i) = 1/6; i = 1,2,3,4,5,6. #insert R et chunk here