colorize <- function(x, color) {
  if (knitr::is_latex_output()) {
    sprintf("\\textcolor{%s}{%s}", color, x)
  } else if (knitr::is_html_output()) {
    sprintf("<span style='color: %s;'>%s</span>", color,
      x)
  } else x
}
knitr::opts_chunk$set(
  dev = "png",
  dpi = 150,
  fig.asp = 0.618,
  fig.width = 5,
  out.width = "60%",
  fig.align = "center",
  collapse = TRUE,
  comment = "#>"
)

r colorize("Statistical quality control with QCR and ILS packages.","#2E2EFE")


library(vembedr)
embed_youtube('mhUJh5Wz2X8', width=775, height=550)


mflores72000/qcr documentation built on July 1, 2023, 9:17 p.m.