[R] evir package problem

[norazman at math.upm.edu.my]

Hello,

i have run this program but it give me error:

x<- data[,7]
x
 [1] 24.81 11.70 13.60 24.81 15.20  8.00  8.00 24.81 14.20 10.20 24.81 18.00
[13]  3.40  8.60 24.81  6.00  8.30 24.81  6.90  4.50  4.50 24.81 15.50 24.81
[25] 18.00

out=gev(x)
Error in optim(theta, negloglik, hessian = TRUE, ..., tmp = data) :
  non-finite finite-difference value [1]

i don't know why it's error because before this i have ruy by using other
data it for example

> x
 [1]  3.30  7.80  9.20 12.29 12.30  6.70  6.30  8.00 10.40  6.10  9.60 10.60
[13]  2.60  6.20  7.30  5.50  7.10  6.00  5.90  3.50  3.50  5.40  8.50 10.70
[25] 10.80

and it give give the result..
Anyone can help how i to solve this problem?

Thanks in advance

azman