R/summary.feasible.R

Defines functions summary.feasible

Documented in summary.feasible

summary.feasible <- function(object, ...) {
  s <- attr(object, "summary")
  names(s)[names(s) == "Low"] <- "%infeasible"
  if (!is.null(s)) s else cat("No summary available.\n")
}

Try the CICI package in your browser

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

CICI documentation built on April 7, 2026, 5:08 p.m.