Commit 5a3cdd3e authored by Jana Ulrich's avatar Jana Ulrich
Browse files

fixed error in message for initial values

parent b798d5de
...@@ -98,7 +98,7 @@ gev.d.fit<- ...@@ -98,7 +98,7 @@ gev.d.fit<-
# if no initial values where passed, calculate initial values for mu.d, sigma_0, xi, eta using IDF.init # if no initial values where passed, calculate initial values for mu.d, sigma_0, xi, eta using IDF.init
if(!is.null(init.vals)){ if(!is.null(init.vals)){
if(length(init.vals!=5)){ if(length(init.vals)!=5){
warning('Parameter init.vals is not used, because it is not of length 5.') warning('Parameter init.vals is not used, because it is not of length 5.')
init.vals <- NULL init.vals <- NULL
}else{ }else{
...@@ -215,7 +215,8 @@ gev.d.fit<- ...@@ -215,7 +215,8 @@ gev.d.fit<-
z$ds <- ds z$ds <- ds
if(show) { if(show) {
if(z$trans) # for nonstationary fit if(z$trans) # for nonstationary fit
print(z[c(2, 3, 4)]) # print model, link, conv print(z[c(2, 4)]) # print model, link (3) , conv
#TODO: print link function names
else print(z[4]) # for stationary fit print only conv else print(z[4]) # for stationary fit print only conv
if(!z$conv) # if fit converged if(!z$conv) # if fit converged
print(z[c(5, 7, 9)]) # print nll, mle, se print(z[c(5, 7, 9)]) # print nll, mle, se
......
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