How to use rejection method for the truncated normal distribution in RStudio?

For instance, using 100 random samples from the truncated normal distribution and the values for mu = 0, sigma = 1, a = -1, b = 1

explanation and code pleaseee

Let Z[a,b] with