diff --git a/DESCRIPTION b/DESCRIPTION
index 90716ef5437f6a0186201db8958c95a9251c6437..9448bfa143d36f98847091742d827dd92bbc7450 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -44,6 +44,7 @@ Depends:
 Suggests:
     lattice,
     latticeExtra,
+    colorspace,
     reshape,
     ggplot2,
     car,
diff --git a/R/SliwianyQd25.R b/R/SliwianyQd25.R
new file mode 100644
index 0000000000000000000000000000000000000000..6086d50a27cc1b08b5ce94f096e4c36e829a9f9a
--- /dev/null
+++ b/R/SliwianyQd25.R
@@ -0,0 +1,45 @@
+#' @name SliwianyQd25
+#' @title Tipos de Desnutrição e Seus Índices por Regionais
+#' @description Através da metodologia de Seoane Latham modificada por
+#'     Batista Filho, que classifica as crianças desnutridas segundo o
+#'     tipo de sua desnutrição, tem-se um índice bastante pequeno de
+#'     crianças com desnutrição crônica, e um índice pouco mais
+#'     acentuada de crianças com desnutrição pregressa e recente.
+#'     Destaca-se ainda a existência de um programa global de nutrição
+#'     bastante coerente já que existe uma forte homogeneidade dos
+#'     índices entre as regionais.
+#' @format Um \code{data.frame} com 5 linhas e 9 colunas, em que
+#'
+#' \describe{
+#'
+#' \item{\code{variável}}{Explicação da variável.}
+#'
+#' }
+#' @keywords sociometria
+#' @source SLIWIANY (1997), Quadro 25, pág. 127.
+#' @examples
+#'
+#' data(SliwianyQd25)
+#' str(SliwianyQd25)
+#'
+#' dados <- SliwianyQd25[, 9]
+#' barplot(dados,
+#'         legend.text = SliwianyQd25$Regionais,
+#'         args.legend = list(x = "topright", bty = "n"),
+#'         col = colorspace::heat_hcl(5),
+#'         main = paste("Índices Globais Brasileiros Para Diferentes\n",
+#'                      "Tipos de Desnutrição (%)"),
+#'         horiz = TRUE, xlim = c(0, 80))
+#'
+#' db <- data.frame(Regional = SliwianyQd25[, 1],
+#'                  stack(x = SliwianyQd25[, -1]))
+#' db$ind <- factor(db$ind, levels = unique(db$ind))
+#'
+#' library(lattice)
+#'
+#' xyplot(values ~ ind | Regional, data = db, type = "o",
+#'        xlab = "Regionais", ylab = "Desnutrição",
+#'        scales = list(x = list(rot = 90),
+#'                      y = list(relation = "free")))
+#'
+NULL
diff --git a/R/SliwianyQd26.R b/R/SliwianyQd26.R
new file mode 100644
index 0000000000000000000000000000000000000000..0c56d5216378538feefdfda793152b6f323b409e
--- /dev/null
+++ b/R/SliwianyQd26.R
@@ -0,0 +1,47 @@
+#' @name SliwianyQd26
+#' @title Níveis de Satisfação Alcançados nos Medidores dos Subgrupos da
+#'     Ação Educativa
+#' @description Níveis de satisfação alcançados por crianças do Jardim I
+#'     nos medidores dos subgrupos de ação educativa, por bairro.
+#' @format Um \code{data.frame} com 8 linhas e 11 colunase, em que
+#' \describe{
+#'
+#' \item{\code{x1}}{Expressar-se através de desenhos.}
+#'
+#' \item{\code{x2}}{Diferenciar o desenho da escrita.}
+#'
+#' \item{\code{x3}}{Classificar segundo a cor.}
+#'
+#' \item{\code{x4}}{Possuir determinadas noções de tempo.}
+#'
+#' \item{\code{x5}}{Saber onde moram os animais.}
+#'
+#' \item{\code{x6}}{Saber da importância dos animais para o homem.}
+#'
+#' \item{\code{x7}}{Saber sobre as profissões existentes no seu
+#'     bairro.}
+#'
+#' \item{\code{x8}}{Reconhecer o que é natureza e o que é construído
+#'     pelo homem.}
+#'
+#' \item{\code{x9}}{Modelar com massinha um objeto da cozinha da
+#'     creche.}
+#'
+#' \item{\code{x10}}{Imitar animais.}
+#'
+#' }
+#' @keywords sociometria
+#' @source SLIWIANY (1997), Quadro 26, pág. 129.
+#' @examples
+#'
+#' data(SliwianyQd26)
+#' str(SliwianyQd26)
+#'
+#' dados <- SliwianyQd26[, 9]
+#' barplot(dados, names.arg = SliwianyQd26$Jardim.I,
+#'         col = colorspace::rainbow_hcl(9),
+#'         main = paste("Níveis de Satisfação Totais da Rede Oficial\n",
+#'                      "nos Medidores de Ação Educativa (%)"),
+#'         ylim = c(0, 60))
+#'
+NULL
diff --git a/R/SliwianyQd27.R b/R/SliwianyQd27.R
new file mode 100644
index 0000000000000000000000000000000000000000..cba1ff5437ee8e5b8e79b3b9e4ed02bed89b5d22
--- /dev/null
+++ b/R/SliwianyQd27.R
@@ -0,0 +1,47 @@
+#' @name SliwianyQd27
+#' @title Níveis de Satisfação Alcançados nos Medidores dos Subgrupos da
+#'     Ação Educativa (\%)
+#' @description Níveis de satisfação alcançados por crianças do Jardim
+#'     II nos medidores dos subgrupos de ação educativa, por bairro.
+#' @format Um \code{data.frame} com 10 linhas e 9 colunas, em que
+#'
+#' \describe{
+#'
+#' \item{\code{x1}}{Desenhar uma história narrada.}
+#'
+#' \item{\code{x2}}{Relatar o desenho feito a partir da história
+#'     narrada.}
+#'
+#' \item{\code{x3}}{Classificar segundo a cor e forma.}
+#'
+#' \item{\code{x4}}{Possuir determinadas noções de tempo.}
+#'
+#' \item{\code{x5}}{Saber do que se alimentam os animais.}
+#'
+#' \item{\code{x6}}{Saber da importância dos animais para o homem.}
+#'
+#' \item{\code{x7}}{Saber sobre as profissões existentes no seu
+#'     bairro.}
+#'
+#' \item{\code{x8}}{Saber dizer o que gostaria que tivesse em seu
+#'     bairro.}
+#'
+#' \item{\code{x9}}{Modelar com massinha um objeto da cozinha da
+#'     creche.}
+#'
+#' \item{\code{x10}}{Imitar animais.}
+#'
+#' }
+#' @keywords sociometria
+#' @source SLIWIANY (1997), Quadro 27, pág. 130.
+#' @examples
+#'
+#' SliwianyQd27
+#'
+#' dados <- SliwianyQd27[, 9]
+#' barplot(dados, names.arg = SliwianyQd27$Jardim.II,
+#'         col = colorspace::rainbow_hcl(9),
+#'         main = "Níveis de Satisfação Totais da Rede Oficial
+#'         nos Medidores de Ação Educativa(%)", ylim = c(0, 60))
+#'
+NULL
diff --git a/R/SliwianyTb7.R b/R/SliwianyTb7.R
new file mode 100644
index 0000000000000000000000000000000000000000..e30d25dccee9deb69d8fdb44fca4b1754e7cc910
--- /dev/null
+++ b/R/SliwianyTb7.R
@@ -0,0 +1,29 @@
+#' @name SliwianyTb7
+#' @title Densidade Média Domiciliar
+#' @description Medidor representante densidade domiciliar, para a zona
+#'     urbana do estado do Paraná em 1980.
+#' @format Um \code{data.frame} com 10 linhas e 2 colunas, em que
+#'
+#' \describe{
+#'
+#' \item{\code{P.D}}{Pessoas por dormitórios.}
+#'
+#' \item{\code{ND}}{Número de domicílios.}
+#'
+#' }
+#' @keywords sociometria
+#' @source SLIWIANY (1997), Tabela 7, pág. 76.
+#' @examples
+#'
+#' SliwianyTb7
+#'
+#' dados <- SliwianyTb7$ND[1:9]
+#' prop <- (dados/991000) * 100
+#' num <- SliwianyTb7$P.D[1:9]
+#' barplot(prop,
+#'         ylim = c(0, 50),
+#'         names.arg = num,
+#'         col = rainbow(9),
+#'         ylab = "Frequência relativa (%)")
+#'
+NULL
diff --git a/data-raw/SliwianyQd25.txt b/data-raw/SliwianyQd25.txt
new file mode 100644
index 0000000000000000000000000000000000000000..daa2bba2e153d14def881ee7fbfe7a48673f365a
--- /dev/null
+++ b/data-raw/SliwianyQd25.txt
@@ -0,0 +1,6 @@
+Regionais	Boqueirao	Boa Vista	Cajuru	Campo Comprido	Matriz	Pinheirinho	Portao	Global
+Normais	77.8	82.5	76.6	83.3	84.4	84.4	74.5	79.2
+Desn. Pregressa	11.4	5.8	10.5	7.35	15.6	5.4	11.0	9.2
+Desn. Cronica	1.8	2.9	1.4	0	1.1	1.0	2.2	1.6
+Desn. Recente	9.0	8.8	11.5	7.35	0	9.2	12.3	10.0
+Todas as formas de desnutricao	22.2	17.5	23.4	14.7	16.7	15.6	25.5	20.8
diff --git a/data-raw/SliwianyQd26.txt b/data-raw/SliwianyQd26.txt
new file mode 100644
index 0000000000000000000000000000000000000000..e192797430a32cdb799a1d0d136c19715960fe70
--- /dev/null
+++ b/data-raw/SliwianyQd26.txt
@@ -0,0 +1,9 @@
+Jardim I	x1	x2	x3	x4	x5	x6	x7	x8	x9	x10
+Boa Vista	23.1	50	56.3	39.1	31.9	10.6	25.3	25.3	33.4	72.8
+Boqueirao	34.7	53.9	70	14.5	41.5	27	40.1	39.6	47.8	86.9
+Cajuru	26.5	57.9	70.8	34.1	33.7	9.7	23.8	16.8	56.1	62.5
+Campo Comprido	37.2	55.8	71.9	25.6	49.1	19.5	37.8	32.6	44.8	83.7
+Matriz	40.3	42.1	63.4	26.3	57.9	19.2	33.2	31.3	29.7	66.6
+Pinheirinho	37.5	47.7	76.9	31.4	38.8	23	51.4	41.4	37.3	63.1
+Portao	29.8	46	75.6	16.6	31.7	10.4	49	33.3	63	80.7
+TOTAL	33.5	50	71.7	24.7	38.1	17.6	42.1	34.2	48.7	74.7
diff --git a/data-raw/SliwianyQd27.txt b/data-raw/SliwianyQd27.txt
new file mode 100644
index 0000000000000000000000000000000000000000..e541c39d4a6e67f86c75538bd26714defd1074e9
--- /dev/null
+++ b/data-raw/SliwianyQd27.txt
@@ -0,0 +1,9 @@
+Jardim II	x1	x2	x3	x4	x5	x6	x7	x8	x9	x10
+Boa Vista	42.7	60.4	81	28.3	40.2	18.5	32.5	26.9	85.8	85.4
+Boqueirao	65.8	58	76.7	14.9	57.3	29	67.6	20.6	78.3	81
+Cajuru	70.9	52.5	83.8	25.6	58	29.9	65.1	35.1	83.8	86.6
+Campo Comprido	70.9	68.5	91.3	33.1	53.7	29.4	74.1	39.4	74.4	96.5
+Matriz	42.4	54.5	80.3	28.4	70.3	31.6	63.2	38.7	73.4	85.5
+Pinheirinho	63.2	54.1	67.3	23.2	59.2	35.7	61.8	29	64.2	69.7
+Portao	55.6	44.4	83	24	55.2	20.6	68.4	19.4	82.7	84.3
+TOTAL	60.1	53.2	78.7	24.6	56.8	27.8	64.9	27	77	81
diff --git a/data-raw/SliwianyTb7.txt b/data-raw/SliwianyTb7.txt
new file mode 100644
index 0000000000000000000000000000000000000000..6eeb45eae343045cb9091e9671f49679323837b6
--- /dev/null
+++ b/data-raw/SliwianyTb7.txt
@@ -0,0 +1,11 @@
+P/D	ND
+0:1	133552
+1:2	479076
+2:3	231862
+3:4	87505
+4:5	33355
+5:6	13875
+6:7	6257
+7:8	3062
+8:9	2456
+GERAL	991000
diff --git a/data/SliwianyQd25.rda b/data/SliwianyQd25.rda
new file mode 100644
index 0000000000000000000000000000000000000000..e0901261e0273d4f3aab70c977830be461c24de2
Binary files /dev/null and b/data/SliwianyQd25.rda differ
diff --git a/data/SliwianyQd26.rda b/data/SliwianyQd26.rda
new file mode 100644
index 0000000000000000000000000000000000000000..b82fd76d0304414a8bd070fdd830420497f7fae9
Binary files /dev/null and b/data/SliwianyQd26.rda differ
diff --git a/data/SliwianyQd27.rda b/data/SliwianyQd27.rda
new file mode 100644
index 0000000000000000000000000000000000000000..fd2e7e552f20e1377378c59af64d800067b1d77a
Binary files /dev/null and b/data/SliwianyQd27.rda differ
diff --git a/data/SliwianyTb7.rda b/data/SliwianyTb7.rda
new file mode 100644
index 0000000000000000000000000000000000000000..73ef539d9b6a71eb80da9ffaf24937219b84bdf5
Binary files /dev/null and b/data/SliwianyTb7.rda differ
diff --git a/man/SliwianyQd25.Rd b/man/SliwianyQd25.Rd
new file mode 100644
index 0000000000000000000000000000000000000000..3b3125fb804811932089a6dc7919659f9c45bac8
--- /dev/null
+++ b/man/SliwianyQd25.Rd
@@ -0,0 +1,53 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/SliwianyQd25.R
+\name{SliwianyQd25}
+\alias{SliwianyQd25}
+\title{Tipos de Desnutrição e Seus Índices por Regionais}
+\format{Um \code{data.frame} com 5 linhas e 9 colunas, em que
+
+\describe{
+
+\item{\code{variável}}{Explicação da variável.}
+
+}}
+\source{
+SLIWIANY (1997), Quadro 25, pág. 127.
+}
+\description{
+Através da metodologia de Seoane Latham modificada por
+    Batista Filho, que classifica as crianças desnutridas segundo o
+    tipo de sua desnutrição, tem-se um índice bastante pequeno de
+    crianças com desnutrição crônica, e um índice pouco mais
+    acentuada de crianças com desnutrição pregressa e recente.
+    Destaca-se ainda a existência de um programa global de nutrição
+    bastante coerente já que existe uma forte homogeneidade dos
+    índices entre as regionais.
+}
+\examples{
+
+data(SliwianyQd25)
+str(SliwianyQd25)
+
+dados <- SliwianyQd25[, 9]
+barplot(dados,
+        legend.text = SliwianyQd25$Regionais,
+        args.legend = list(x = "topright", bty = "n"),
+        col = colorspace::heat_hcl(5),
+        main = paste("Índices Globais Brasileiros Para Diferentes\\n",
+                     "Tipos de Desnutrição (\%)"),
+        horiz = TRUE, xlim = c(0, 80))
+
+db <- data.frame(Regional = SliwianyQd25[, 1],
+                 stack(x = SliwianyQd25[, -1]))
+db$ind <- factor(db$ind, levels = unique(db$ind))
+
+library(lattice)
+
+xyplot(values ~ ind | Regional, data = db, type = "o",
+       xlab = "Regionais", ylab = "Desnutrição",
+       scales = list(x = list(rot = 90),
+                     y = list(relation = "free")))
+
+}
+\keyword{sociometria}
+
diff --git a/man/SliwianyQd26.Rd b/man/SliwianyQd26.Rd
new file mode 100644
index 0000000000000000000000000000000000000000..28200483e3e88416e3e6d6b5681053a95fe1bce6
--- /dev/null
+++ b/man/SliwianyQd26.Rd
@@ -0,0 +1,55 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/SliwianyQd26.R
+\name{SliwianyQd26}
+\alias{SliwianyQd26}
+\title{Níveis de Satisfação Alcançados nos Medidores dos Subgrupos da
+    Ação Educativa}
+\format{Um \code{data.frame} com 8 linhas e 11 colunase, em que
+\describe{
+
+\item{\code{x1}}{Expressar-se através de desenhos.}
+
+\item{\code{x2}}{Diferenciar o desenho da escrita.}
+
+\item{\code{x3}}{Classificar segundo a cor.}
+
+\item{\code{x4}}{Possuir determinadas noções de tempo.}
+
+\item{\code{x5}}{Saber onde moram os animais.}
+
+\item{\code{x6}}{Saber da importância dos animais para o homem.}
+
+\item{\code{x7}}{Saber sobre as profissões existentes no seu
+    bairro.}
+
+\item{\code{x8}}{Reconhecer o que é natureza e o que é construído
+    pelo homem.}
+
+\item{\code{x9}}{Modelar com massinha um objeto da cozinha da
+    creche.}
+
+\item{\code{x10}}{Imitar animais.}
+
+}}
+\source{
+SLIWIANY (1997), Quadro 26, pág. 129.
+}
+\description{
+Níveis de satisfação alcançados por crianças do Jardim I
+    nos medidores dos subgrupos de ação educativa, por bairro.
+}
+\examples{
+
+data(SliwianyQd26)
+str(SliwianyQd26)
+
+dados <- SliwianyQd26[, 9]
+barplot(dados, names.arg = SliwianyQd26$Jardim.I,
+        col = colorspace::rainbow_hcl(9),
+        main = paste("Níveis de Satisfação Totais da Rede Oficial\\n",
+                     "nos Medidores de Ação Educativa (\%)"),
+        ylim = c(0, 60))
+
+}
+\keyword{sociometria}
+
diff --git a/man/SliwianyQd27.Rd b/man/SliwianyQd27.Rd
new file mode 100644
index 0000000000000000000000000000000000000000..75a549585c648f326c2e5cd01c55575f1c0392ea
--- /dev/null
+++ b/man/SliwianyQd27.Rd
@@ -0,0 +1,55 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/SliwianyQd27.R
+\name{SliwianyQd27}
+\alias{SliwianyQd27}
+\title{Níveis de Satisfação Alcançados nos Medidores dos Subgrupos da
+    Ação Educativa (\%)}
+\format{Um \code{data.frame} com 10 linhas e 9 colunas, em que
+
+\describe{
+
+\item{\code{x1}}{Desenhar uma história narrada.}
+
+\item{\code{x2}}{Relatar o desenho feito a partir da história
+    narrada.}
+
+\item{\code{x3}}{Classificar segundo a cor e forma.}
+
+\item{\code{x4}}{Possuir determinadas noções de tempo.}
+
+\item{\code{x5}}{Saber do que se alimentam os animais.}
+
+\item{\code{x6}}{Saber da importância dos animais para o homem.}
+
+\item{\code{x7}}{Saber sobre as profissões existentes no seu
+    bairro.}
+
+\item{\code{x8}}{Saber dizer o que gostaria que tivesse em seu
+    bairro.}
+
+\item{\code{x9}}{Modelar com massinha um objeto da cozinha da
+    creche.}
+
+\item{\code{x10}}{Imitar animais.}
+
+}}
+\source{
+SLIWIANY (1997), Quadro 27, pág. 130.
+}
+\description{
+Níveis de satisfação alcançados por crianças do Jardim
+    II nos medidores dos subgrupos de ação educativa, por bairro.
+}
+\examples{
+
+SliwianyQd27
+
+dados <- SliwianyQd27[, 9]
+barplot(dados, names.arg = SliwianyQd27$Jardim.II,
+        col = colorspace::rainbow_hcl(9),
+        main = "Níveis de Satisfação Totais da Rede Oficial
+        nos Medidores de Ação Educativa(\%)", ylim = c(0, 60))
+
+}
+\keyword{sociometria}
+
diff --git a/man/SliwianyTb7.Rd b/man/SliwianyTb7.Rd
new file mode 100644
index 0000000000000000000000000000000000000000..ce7bb80a14c9708ef638378a80f35b9f08bb3632
--- /dev/null
+++ b/man/SliwianyTb7.Rd
@@ -0,0 +1,37 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/SliwianyTb7.R
+\name{SliwianyTb7}
+\alias{SliwianyTb7}
+\title{Densidade Média Domiciliar}
+\format{Um \code{data.frame} com 10 linhas e 2 colunas, em que
+
+\describe{
+
+\item{\code{P.D}}{Pessoas por dormitórios.}
+
+\item{\code{ND}}{Número de domicílios.}
+
+}}
+\source{
+SLIWIANY (1997), Tabela 7, pág. 76.
+}
+\description{
+Medidor representante densidade domiciliar, para a zona
+    urbana do estado do Paraná em 1980.
+}
+\examples{
+
+SliwianyTb7
+
+dados <- SliwianyTb7$ND[1:9]
+prop <- (dados/991000) * 100
+num <- SliwianyTb7$P.D[1:9]
+barplot(prop,
+        ylim = c(0, 50),
+        names.arg = num,
+        col = rainbow(9),
+        ylab = "Frequência relativa (\%)")
+
+}
+\keyword{sociometria}
+