Commit 07c6ca9a authored by Laura Mack's avatar Laura Mack
Browse files

print names of link functions

parent 870aaf4d
......@@ -227,12 +227,19 @@ gev.d.fit<-
z$ds <- ds
z$theta_zero <- theta_zero #Indicates if theta parameter was set to zero by user.
if(show) {
if(z$trans) # for nonstationary fit
if(z$trans) { # for nonstationary fit
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 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'))
}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
}
}
class( z) <- "gev.d.fit"
invisible(z)
......
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