R/print.simmr_input.R

Defines functions print.simmr_input

Documented in print.simmr_input

#' Print simmr input object
#'
#' @param x An object of class \code{simmr_input}
#' @param ... Other arguments (not supported)
#'
#' @return A neat presentation of your simmr object.
#' @export
print.simmr_input <-
  function(x, ...) {
    message("This is a valid simmr input object with ")
    message(paste(x$n_obs, " observations, "))
    message(paste(x$n_tracers, "tracers, and "))
    message(paste(x$n_sources, "sources.\n"))
    if (x$n_groups > 1) cat(paste("There are", x$n_groups, "groups.\n"))
    message("The source names are: ")
    print(x$source_names, sep = ", ")
    message(".\n")
    message("The tracer names are: ")
    print(colnames(x$mixtures), sep = ", ")
    message("\n\n")
  }

Try the simmr package in your browser

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

simmr documentation built on Nov. 2, 2023, 6:08 p.m.