newton raphson method for Frechet Distribution in R

Question

HERE IS MY DATA

 0.301, 1.432, 1.795, 2.085, 2.3, 2.688, 3.117, 
 3.699, 4.376, 0.309, 1.48, 1.866, 2.089, 2.324, 
 2.823, 3.779, 3.166, 4.449, 0.557, 1.55, 1