Release 0.7.5

anhoej · May 9, 2024 · e111f90 · e111f90
1 parent 2153d2b
commit e111f90
Show file tree

Hide file tree

Showing 5 changed files with 10 additions and 15 deletions.
diff --git a/R/bchart.R b/R/bchart.R
@@ -42,13 +42,13 @@
 #' @export
 
 bchart <- function(
-  x,
-  target,
-  or    = 2,
-  limit = 3.5,
-  title = '',
-  ylab  = 'CUSUM', 
-  xlab  = 'Case #') {
+    x,
+    target,
+    or    = 2,
+    limit = 3.5,
+    title = '',
+    ylab  = 'CUSUM', 
+    xlab  = 'Case #') {
   if(target > 1) {
     freeze <- target
     p0 <- mean(x[1:target])

diff --git a/R/data.R b/R/data.R
@@ -65,6 +65,6 @@
 #'   harm; G-H: Permanent harm; I: Fatal harm. }
 #' @source Omitted for privacy concerns.
 #' @references
-#'   \url{https://www.ihi.org/resources/Pages/Tools/IHIGlobalTriggerToolforMeasuringAEs.aspx}
+#'   \url{https://www.ihi.org/resources/white-papers/ihi-global-trigger-tool-measuring-adverse-events}
 #'   
 "gtt"
diff --git a/R/qic.plot.R b/R/qic.plot.R
@@ -224,13 +224,8 @@ plot.qic <- function(x, title, ylab, xlab, subtitle, caption, part.labels,
   # Add space for line labels
   subgroups <- unique(x$x)
 
-  # TESTING ##########################
-  # if (is.factor(subgroups))
-  #   subgroups <- as.numeric(subgroups)
-
   if(is.character(subgroups) || is.factor(subgroups))
     subgroups <- seq_along(subgroups)
-  # TESTING ##########################
 
   p <- p +
     expand_limits(x = max((subgroups)) +

diff --git a/man/gtt.Rd b/man/gtt.Rd
diff --git a/vignettes/qicharts2.Rmd b/vignettes/qicharts2.Rmd
@@ -233,7 +233,7 @@ I recommend to always begin any analysis with the "assumption free" run chart. I
 >
 >If it did, then it makes no sense to do a control chart at this time because the overall average of all these data doesn't exist. (Sort of like: If I put my right foot in a bucket of boiling water and my left foot in a bucket of ice water, on average, I'm pretty comfortable.)
 >
-> Davis Balestracci. [Quality Digest 2014](https://www.qualitydigest.com/inside/quality-insider-column/control-charts-simple-elegance-or-legalized-torture.html)
+> Davis Balestracci. [Quality Digest 2014](https://www.qualitydigest.com/inside/six-sigma-column/control-charts-simple-elegance-or-legalized-torture-010614.html)
 
 ## Case 1: Patient harm