Please do the following both questions by R programming:

Reference QN.#2(A):

(Stat-461 only) For Y in QN.\#2(A), estimate E(Y2) based on 100 iid copies of Y, to be generated by the acceptance-rejection method, using Z with pmf: P[Z=j]=1/4, for j=0,1,2,3. Let Ui,1i3, be i.i.d. Uniform (0,1) random variables. Suppose that (X,Y) is a random vector such that X:=min{1i3Uii/3} and Y has Binomial(x,1/3) distribution given that X=x. Estimate E[XY] by generating 100 i.i.d. copies of (X,Y)