fixed error in message for initial values

R/gevdfit.R

@@ -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(!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.')
         init.vals <- NULL
         }else{
@@ -215,7 +215,8 @@ gev.d.fit<-
     z$ds <- ds
     if(show) {
       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
       if(!z$conv) # if fit converged 
         print(z[c(5, 7, 9)]) # print nll, mle, se