Remove testing code

jasp-stats · Nov 3, 2023 · 78d1924 · 78d1924
1 parent 5a415d4
commit 78d1924
Show file tree

Hide file tree

Showing 3 changed files with 0 additions and 50 deletions.
diff --git 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
@@ -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
@@ -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