#'@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")
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.