If $X \sim N(\theta,1)$ with Cauchy as robust prior
$$\pi(\theta) = \frac{1}{\pi(1+\theta^2)} \qquad -\infty < \theta < \infty$$
how to do the rejection sampler in R, and use it to generate 10, 000 samples from the posterior distribution. with using R function 'rcauchy' to simulate from π(θ); $\pi$($\theta$) is a proposal distribution.
Kindly please help