Using MLE in r, non-finite-difference value issue

Question

I\'m learning MLE by using R, and I want to find MLE of Generalized Pareto Distribution(GPD).

I made pareto function like below

rGPD <- function(a,