#### Prints of smooth ####
#' @export
print.inventory <- function(x, ...){
cat(paste0("Achieved Service Level is:", round(x$CSL,3),"\n"));
cat(paste0("Total Costs:", round(x$TC,3),"\n"));
# cat(paste0("Bullwhip effect:", x$varOrders/x$varOriginal,"\n"));
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.