gev.d.fit only run gev.d.init if any initial parameters are not given

R/gevdfit.R

@@ -88,7 +88,9 @@ gev.d.fit<-
     z$trans <- FALSE  # indicates if fit is non-stationary
     
     # calculate initial values for mu.d, sigma_0, xi, eta using IDF.init:  (thetainit=0)
-    init.vals <- gev.d.init(xdat,ds,ifelse(is.null(thetainit),0,thetainit[1]))
+    if(any(is.null(c(muinit,siginit,shinit,etainit)))){
+      init.vals <- gev.d.init(xdat,ds,ifelse(is.null(thetainit),0,thetainit[1]))
+    }
     # TODO: transform initial values with link function
     # use make.link()