R/print.deglmx.R

print.deglmx <-
function(x, ...){
  
  cat("Degradation fit:\n")
  print(x$type)
  cat("\n")
  
  cat("Degradation trend:\n")
  print(x$ytrend)
  cat("\n")
  
  cat("Dynamic covariates:\n")
  print(x$dyncovnames)
  cat("\n")
  
  cat("Convergent:\n")
  print(x$fit$conv)
  cat("\n")
  
  cat("Coefficients:\n")
  print(x$fit$coef)
  cat("\n")
  
  cat("Loglikelihood:\n")
  print(x$fit$loglik) 
  cat("\n")
  
  cat("Random effects:\n")
  print(x$fit$ran.eff)
}

Try the SPREDA package in your browser

Any scripts or data that you put into this service are public.

SPREDA documentation built on May 2, 2019, 4 p.m.