R/print.plcfit.R

In fitplc: Fit Hydraulic Vulnerability Curves

#'@export
print.plcfit <- function(x,...){
  cat("Class of object 'plcfit' as returned by 'fitplc'.\n")
  cat("-------------------------------------------------\n\n")
  
  if(x$condfit){
    if(x$rescale_Px){
      cat("Fit to unscaled conductance or conductivity data.\nPx scaled to K0, not Kmax\nK0 = ",x$K0,"\n\n")
    } else {
      cat("Fit to unscaled conductance or conductivity data.\nKmax = ",x$Kmax,"\n\n")
    }
  }
  if(x$fitran){
    cat("Random effects estimated for ",x$ranvar,"\n")
  }
  cat("Parameters and %s%% confidence interval:\n\n", label_coverage(x$coverage))
  
  print(coef(x))
  cat("\n")
}