How to run simulations to verify the effectiveness of the Confidence Interval for a specific function in R

Question

Basically, I need to take the 95% asymptotic confidence interval (CI) formula and run a simulation to verify the effectiveness. (with n = 100 and theta = 2)

The formula i