How can I improve my maximum likelihood estimation for Weibull Distribution using Monte Carlo Simulation in R?

Question

I\'m using the two parameter Weibull distribution, generating samples and estimating the loglikelihood. The Weibull density function I\'m using is this: