From 1354d5de643462d8bc0f599a4759024b5d43e5e6 Mon Sep 17 00:00:00 2001
From: Walmes Zeviani <walmes@ufpr.br>
Date: Fri, 1 Apr 2016 20:28:46 -0300
Subject: [PATCH] =?UTF-8?q?Atualiza=20script=20de=20gr=C3=A1fico=20de=20co?=
=?UTF-8?q?ntrole.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit
---
scripts/01_xbar_chart.R | 41 +++++++++++++++++++++++++++++++++++++++++
1 file changed, 41 insertions(+)
diff --git a/scripts/01_xbar_chart.R b/scripts/01_xbar_chart.R
index 6934fe5..098d312 100644
--- a/scripts/01_xbar_chart.R
+++ b/scripts/01_xbar_chart.R
@@ -19,3 +19,44 @@ pntw <- t(unstack(x = pnt, form = x ~ i))
pntw
rownames(pntw) <- NULL
+
+#-----------------------------------------------------------------------
+
+library(qcc)
+
+qm <- qcc(data = pntw, type = "xbar")
+qr <- qcc(data = pntw, type = "R")
+
+plot(qm)
+plot(qr)
+
+#=======================================================================
+# As amostras do mesmo processo com mais 10 coletas de 5 elementos.
+
+url <- paste0("http://www.leg.ufpr.br/~walmes/",
+ "data/business_economics_dataset",
+ "/EXAMPLES/PAINT122.DAT")
+
+pnt <- read.table(file = url)
+names(pnt) <- c("x", "i")
+str(pnt)
+
+xtabs(~i, data = pnt)
+
+# Passar para o formato wide.
+pntw <- t(unstack(x = pnt, form = x ~ i))
+pntw
+
+rownames(pntw) <- NULL
+
+#-----------------------------------------------------------------------
+
+library(qcc)
+
+qm <- qcc(data = pntw[1:25, ], type = "xbar", newdata = pntw[26:35, ])
+qr <- qcc(data = pntw[1:25, ], type = "R", newdata = pntw[26:35, ])
+
+plot(qm)
+plot(qr)
+
+#-----------------------------------------------------------------------
--
GitLab