$($Please write in hand and provide the R code!!!!!!$)$ Write an $R$ program that uses the thinning algorithm to generate the first $10$

time unites of a nonhomogeneous Poisson process with intensity function

$(t)=3+\frac{4}{t+1}$