print.plot_expirest_wisle {expirest}

Print a plot illustrating the what-if shelf life estimation (wisle)

Description

This is a method for the function print() for objects of class ‘plot_expirest_wisle’.

Usage

## S3 method for class 'plot_expirest_wisle'
print(x, ...)

Arguments

x

An object of class ‘plot_expirest_wisle’ returned by the plot_expirest_wisle() function.

...

Further arguments passed to or from other methods or arguments that can be passed down to the formatC() function.

Details

The element Graph of the ‘plot_expirest_wisle’ object that is returned by the function plot_expirest_wisle() is an object of class ‘ggplot’, generated by the function ggplot() from the ‘ggplot2’ package. Thus, the corresponding plot method is used for plotting. Arguments to the ggplot() function can be passed via the ... parameter.

Value

The ‘plot_expirest_wisle’ object passed to the x parameter is returned invisibly.

See Also

expirest_wisle, plot_expirest_wisle, ggplot(), methods.

Examples

# Performing a "what-if (approach for) shelf life estimation" (wisle)
res1 <-
  expirest_wisle(data = exp1[exp1$Batch %in% c("b2", "b5", "b7"), ],
                 response_vbl = "Potency", time_vbl = "Month",
                 batch_vbl = "Batch", rl = 98, rl_sf = 3, sl = 95,
                 sl_sf = 3, srch_range = c(0, 500), sf_option = "loose")

# The 'expirest_wisle' object can be passed on to the plot_expirest_wisle()
# function. This function does not produce any output but returns a
# 'plot_expirest_wisle' object.
## Not run: 
  gg1 <- plot_expirest_wisle(
    model = res1, rl_index = 1, response_vbl_unit = "%", x_range = NULL,
    y_range = c(93, 105), scenario = "standard", mtbs = "verified",
    plot_option = "full", ci_app = "line")
  gg2 <- print(gg1)

  # The print() function returns the 'plot_expirest_wisle' object invisibly.
  class(gg1)
  class(gg2)

## End(Not run)