Solve using R

9.2 A tetrahedron die is a four-sided die with labels {1,2,3,4}. Write a function with argument n that rolls n tetrahedron dice and computes their average value. Implement your function for n=1,1000, and 1,000,000