Commit 5a1b0e3a authored by Laura Mack's avatar Laura Mack
Browse files

changed: print names of link functions

parent d5f936e4
......@@ -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
......
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