How do I implement Monte Carlo integration in R?

Question

I have to implement Monte Carlo integration to estimate:

theta = S h(x)f(x)dx (S is the integration symbol)

where
f(x) = k(x-1)^3