Algorithm implementation on an accept-reject method. The pseudo-code is not clear, please execute in R PROGRAMMING {R CODE} FOR THE FOLLOWING;

The acceptance-rejection method with proposal density g(x) = 8x/25 has an acceptance probability of C = maxor$5/2 25f(x)/(8x) = 25f(1)/8 = 25/16. To draw a random variable X ~ g, we can generate U ~ U(0, 1) and return X = VU (this is the inverse- transform way of drawing from g). Based on Algorithm 2.3.6, the acceptance-rejection algorithm is as follows. Algorithm. 1. Generate U1 ~ U(0, 1) and let X = VUI. 2. Generate U2 ~ U(0, 1) independently of U1. J(X) 3. If U2