expirest (version 0.1.5)

print.plot_expirest_osle: Print a plot illustrating the shelf life estimation (osle)

Description

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

Usage

# S3 method for plot_expirest_osle
print(x, ...)

Value

The ‘plot_expirest_osle’ object passed to the x

parameter is returned invisibly.

Arguments

x

An object of class ‘plot_expirest_osle’ returned by the plot_expirest_osle() 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_osle’ object that is returned by the function plot_expirest_osle() 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.

See Also

expirest_osle, plot_expirest_osle, ggplot(), methods.

Examples

# Potency stability data (in % of label claim (LC)) of five batches of a drug
# product obtained over a 24 months period:
str(exp1)

# 'data.frame':	53 obs. of  3 variables:
# $ Batch  : Factor w/ 6 levels "b2","b3","b4",..: 1 1 1 1 1 1 1 1 1 1 ...
# $ Month  : num  0 1 3 3 6 6 12 12 24 24 ...
# $ Potency: num  101 101.3 99.8 99.2 99.5 ...

# Performing an "ordinary shelf life estimation" (osle)
res1 <-
  expirest_osle(data = exp1[exp1$Batch %in% c("b2", "b5", "b7"), ],
                response_vbl = "Potency", time_vbl = "Month",
                batch_vbl = "Batch", sl = 95, sl_sf = 3, srch_range = c(0, 500))

# The 'expirest_osle' object can be passed on to the plot_expirest_osle()
# function. This function does not produce any output but returns a
# 'plot_expirest_osle' object.
gg1 <- plot_expirest_osle(
  model = res1, show_grouping = "no", response_vbl_unit = "%",
  y_range = c(93, 107), x_range = NULL, plot_option = "full",
  ci_app = "line")
gg2 <- print(gg1)

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