Code in R not Python

uestion 4: Set your seed to be 3456. (a) Use the inverse transform method to generate 100 samples of a discrete random variable X with probability mass function p(x)=(4x)(41)x(43)4xforx=0,1,2,3,4 (you CAN use the built-in combination function) (b) Write a function that inputs an integer n (the sampling size, i.e,, the number of observations) and outputs a vector X (of length n ) of samples of the distribution in part (a). (c) Run your function from part (b) with n=1000 and calculate the sample mean and sample variance of the vector you get