From adeaad019723daf347987ab69b62508a86486ee7 Mon Sep 17 00:00:00 2001
From: Walmes Zeviani <walmes@ufpr.br>
Date: Fri, 1 Apr 2016 18:44:51 -0300
Subject: [PATCH] Adiciona script, carregaga dados.

---
 scripts/01_xbar_chart.R | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)
 create mode 100644 scripts/01_xbar_chart.R

diff --git a/scripts/01_xbar_chart.R b/scripts/01_xbar_chart.R
new file mode 100644
index 0000000..6934fe5
--- /dev/null
+++ b/scripts/01_xbar_chart.R
@@ -0,0 +1,21 @@
+#=======================================================================
+# Peso de latas cheias de tinta, recém fechadas, retiradas da linha de
+# produção de indústria. Amostras de tamanho n = 5, m = 25.
+
+rm(list = ls())
+
+url <- paste0("http://www.leg.ufpr.br/~walmes/",
+              "data/business_economics_dataset",
+              "/EXAMPLES/PAINT125.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
-- 
GitLab