in RStudio please, I am stuck :( its my last hw problem

Problem 1: Suppose that X is a discrete random variable with probability mass function: X 0 1 2 3 4 p(x) 0.12 0.15 0.1 0.25 0.38 (a) Write a function using the inverse transform method to generate random numbers from the distribution of X. (b) Generate 10,000 random numbers and draw a bar chart. (c) Compare the sample relative frequencies with the theoretical probability distribution