R/print.ISEdata.R

In ISEtools: Ion Selective Electrodes Analysis Methods

#' @title Prints ISE data
#' @description Prints tables of calibration data and experimental data (if present).
#' @param x ISE data (e.g. object of class ISEdata)
#' @param ... Other objects passed through.
#' @author Peter Dillingham, \email{peter.dillingham@@otago.ac.nz}
#' @seealso \code{\link{loadISEdata}}
#' @examples data(LeadStdAdd)
#' print(LeadStdAdd)
print.ISEdata = function(x, ...) {
###
# prints ISE calibration and (if loaded) sample experimental data
###
  cat("Calibration data\n")
  print(x$data.calib)
  cat("\n")
  
  if (!isTRUE(x$calibration.only)) {
    cat("Experimental data\n")
    print(x$data.exp)
    cat("\n")
  }
  invisible(x)
}