From 78d19245ce5a775677f4b41103816d2680aec947 Mon Sep 17 00:00:00 2001
From: JTPetter <61797391+JTPetter@users.noreply.github.com>
Date: Fri, 3 Nov 2023 21:01:17 +0100
Subject: [PATCH] Remove testing code

---
 R/commonQualityControl.R       | 41 ----------------------------------
 R/variablesChartsIndividuals.R |  7 ------
 R/variablesChartsSubgroups.R   |  2 --
 3 files changed, 50 deletions(-)

diff --git a/R/commonQualityControl.R b/R/commonQualityControl.R
index 82f71b19..05602b1c 100644
--- a/R/commonQualityControl.R
+++ b/R/commonQualityControl.R
@@ -190,47 +190,6 @@ KnownControlStats.RS <- function(N, sigma = 3) {
   return(list(LCL = LCLvector, UCL = UCLvector))
 }
 
-
-
-
-###################
-### FOR TESTING ###
-###   |    |    ###
-###   V    V    ###
-###################
-
-
-# Xbar
-# dataset <- read.csv("C:/Users/Jonee/Google Drive/JASP/SKF Six Sigma/JASP Data Library/2_1_VariablesChartsForSubgroups/SubgroupChartWideFormat.csv")
-# xAxisLabels <- dataset[[1]]
-# dataset <- dataset[2:7]
-# dataset$stages <- 1:2
-# options <- list()
-#
-#  dataset[1:4] <- NA
-#  dataset[2:20, 5] <- NA
-# .controlChart(dataset, plotType = "xBar", xBarSdType = "r")
-
-#.controlChart(dataset, plotType = "R")
-#
-#
-# dataset <- read.csv("C:/Users/Jonee/Google Drive/SKF Six Sigma/Datasets/ControlChartError.csv")
-# dataset <- dataset[c(3,7,8)]
-#
-#
-# dataset <- read.csv("C:/Users/Jonee/Google Drive/SKF Six Sigma/JASP Data Library/2_2_VariablesChartsForIndividuals/IndividualChartStages.csv")
-# xLabels <- dataset$Month
-# dataset <- dataset[c(1,3)]
-# .controlChart(dataset, plotType = "I", stages = "Stage")
-# .controlChart(dataset, plotType = "MR", stages = "Stage", movingRangeLength = 4)
-# .controlChart(dataset, plotType = "I", stages = "Stage", xAxisLabels = xLabels)
-# .controlChart(dataset, plotType = "MR", stages = "Stage", xAxisLabels = xLabels)
-
-###################
-###################
-###################
-
-
 .controlChart <- function(dataset,  plotType                  = c("xBar", "R", "I", "MR", "MMR", "s"),
                                     stages                    = "",
                                     xBarSdType                = c("r", "s"),
diff --git a/R/variablesChartsIndividuals.R b/R/variablesChartsIndividuals.R
index 3b6ecc72..75db2964 100644
--- a/R/variablesChartsIndividuals.R
+++ b/R/variablesChartsIndividuals.R
@@ -17,13 +17,6 @@
 
 #' @export
 variablesChartsIndividuals <- function(jaspResults, dataset, options) {
-#
- # dataset <- read.csv("C:/Users/Jonee/Desktop/Temporary Files/IndividualChartStagesWithNA.csv")
- # dataset$Stage[2] <- NA
- # variables <- "Yield"
- # stages <- "Stage"
- # axisLabels <- "Month"
-
   # reading variables in from the GUI
   variables <- unlist(options[["measurement"]])
   stages <- unlist(options[["stage"]])
diff --git a/R/variablesChartsSubgroups.R b/R/variablesChartsSubgroups.R
index 04c88cd4..db227a7c 100644
--- a/R/variablesChartsSubgroups.R
+++ b/R/variablesChartsSubgroups.R
@@ -238,8 +238,6 @@ variablesChartsSubgroups <- function(jaspResults, dataset, options) {
   plotMat[[1, 2]] <- p1
   plotMat[[2, 1]] <- .ggplotWithText(text2)
   plotMat[[2, 2]] <- p2
-  # plotMat[[3, 1]] <-
-  # plotMat[[3, 2]] <- p2
 
   p <- jaspGraphs::ggMatrixPlot(plotMat, topLabels = c(gettext(title), ""))
   matrixPlot$plotObject <- p