diff --git a/scripts/01_xbar_chart.R b/scripts/01_xbar_chart.R
new file mode 100644
index 0000000000000000000000000000000000000000..6934fe5474e72f15a667649126990b2ba041047a
--- /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