changed: print names of link functions

R/gevdfit.R

@@ -230,12 +230,9 @@ gev.d.fit<-
       if(z$trans) { # for nonstationary fit
         print(z[c(2, 4)]) # print model, link (3) , conv 
         # print names of link functions:
-        #cat('$link$name\n')
-        #cat(paste('mu:\t',z$link$mulink$name))
-        #cat(paste('\nsigma:\t',z$link$siglink$name))
-        #cat(paste('\nxi:\t',z$link$shlink$name))
-        #cat(paste('\ntheta:\t',z$link$thetalink$name))
-        #cat(paste('\neta:\t',z$link$etalink$name,'\n\n'))
+        cat('$link\n')
+        print(c(z$link$mulink$name,z$link$siglink$name,z$link$shlink$name,z$link$thetalink$name,z$link$etalink$name))
+        cat('\n')
       }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