Need help on 3b thanks! using R language

Q3: Consider a linear model defined by the function below, where a is a model parameter and x is input data. We assume that a=0.2 and x follows a normal distribution with mean 0 and standard deviation 1 . \# the linear model \# output = function (a,x){ y=1+ax return(y) (a) Generate a 5000 random samples of x and plot them on a histogram. (5\%) (b) Use the defined function to generate a set of y values given the model parameter a and the generated input data x. Plot y against x.(10%)