data <- rgev(1000, loc = 0.13, scale = 1.1, shape = 0.2)
fgev(data, start = list(loc=0,scale=1,shape=0), method = "BFGS",
control = list(trace = 1))
fgev(data, start = list(loc=0,scale=1), shape = 0, method = "BFGS")
fgev(data, start = list(loc=0), scale = 1, shape = 0)
Run the code above in your browser using DataLab