Commit 10e8be56 authored by Jana Ulrich's avatar Jana Ulrich
Browse files

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

parent 22e9829c
...@@ -88,7 +88,9 @@ gev.d.fit<- ...@@ -88,7 +88,9 @@ gev.d.fit<-
z$trans <- FALSE # indicates if fit is non-stationary z$trans <- FALSE # indicates if fit is non-stationary
# calculate initial values for mu.d, sigma_0, xi, eta using IDF.init: (thetainit=0) # 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 # TODO: transform initial values with link function
# use make.link() # use make.link()
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment