diff --git a/R/SliwianyTb2.R b/R/SliwianyTb2.R
new file mode 100644
index 0000000000000000000000000000000000000000..d300644576c8d9d623682353c6b2ae1f5f90f378
--- /dev/null
+++ b/R/SliwianyTb2.R
@@ -0,0 +1,28 @@
+#' @name SliwianyTb2
+#' @title Índices Parciais do Nível de Vida da População Polonesa para
+#'     1950, 1960, 1965-66 e 1970
+#' @description Índices do nível de satisfação de necessidades diversas
+#'     da população polonesa com base nos medidores da ONU, definidos
+#'     para 1950, 1960, 1965-66 e 1970.
+#' @format Um \code{data.frame} com 7 linhas e 7 colunas, em que
+#'
+#' \describe{
+#'
+#' \item{\code{TN}}{Tipos de necessidades.}
+#'
+#' \item{\code{IC}}{Índice de crescimento 1970-1960 (\%).}
+#'
+#' }
+#' @keywords sociometria
+#' @source SLIWIANY, (1997), Tabela 2, pág. 61.
+#' @examples
+#'
+#' data(SliwianyTb2)
+#' str(SliwianyTb2)
+#'
+#' barplot(SliwianyTb2$IC,
+#'         names.arg = SliwianyTb2$TN,
+#'         main = "Íncice de Crescimento 1970-1960 (%)",
+#'         xlab = "Tipos de Necessidades")
+#'
+NULL
diff --git a/R/SliwianyTb3.R b/R/SliwianyTb3.R
new file mode 100644
index 0000000000000000000000000000000000000000..1de87080e2ed338895a14ee1babc663da6eb7df5
--- /dev/null
+++ b/R/SliwianyTb3.R
@@ -0,0 +1,38 @@
+#' @name SliwianyTb3
+#' @title Total de Domicílios e Domicílios com Abastecimento de Água
+#' @description Total de domicílios e domicílios com abastecimento de
+#'     água, segundo capitais dos estados da Região Sul/IBGE -
+#'     1970. Domicílios considerados "com abastecimento de água" sendo
+#'     aqueles particulares permanentes que possuíam abastecimento de
+#'     água servidos por rede geral, com canalização interna.
+#' @format Um \code{data.frame} com 4 linhas e 3 colunas, em que
+#'
+#' \describe{
+#'
+#' \item{\code{Cap}}{Capitais da Região Sul.}
+#'
+#' \item{\code{TD}}{Total de Domicílios.}
+#'
+#' \item{\code{DCA}}{Total de Domicílios com Abastecimento de Água.}
+#'
+#' }
+#' @keywords sociometria
+#' @source SLIWIANY (1997), Tabela 3, pág. 72.
+#' @examples
+#'
+#' data(SliwianyTb3)
+#' str(SliwianyTb3)
+#' SliwianyTb3
+#'
+#' # Calcula a proporção.
+#' SliwianyTb3$prop <- with(SliwianyTb3, DCA/TD)
+#'
+#' # Maria, você tem que corrigir a escrita de floxianópolis.
+#' levels(SliwianyTb3$Cap)[2] <- "Florianopolis"
+#'
+#' library(ggplot2)
+#'
+#' ggplot(SliwianyTb3, aes(x = Cap, y = prop)) +
+#'     geom_bar(position = "dodge", stat = "identity")
+#'
+NULL
diff --git a/R/SliwianyTb4.R b/R/SliwianyTb4.R
new file mode 100644
index 0000000000000000000000000000000000000000..f96c68e8d52a0479cf6c47ed974b4e2f3154cdeb
--- /dev/null
+++ b/R/SliwianyTb4.R
@@ -0,0 +1,31 @@
+#' @name SliwianyTb4
+#' @title Coeficiente de Mortalidade Infantil em Curitiba
+#' @description O coeficiente de mortalidade infantil expressa o total
+#'     de óbitos de crianças menores de um ano de idade por mil nascidos
+#'     vivos.
+#' @format Um \code{data.frame} com 6 linhas e 2 colunas, em que
+#'
+#' \describe{
+#'
+#' \item{\code{ANO}}{Ano em que o coeficiente foi determinado.}
+#'
+#' \item{\code{Coef}}{Coeficiente por 1000 nascidos vivos.}
+#'
+#' }
+#' @keywords sociometria
+#' @source SLIWIANY (1997), Tabela 4, pág. 73.
+#' @examples
+#'
+#' # Comparando os coeficientes e mortalidade infantil em cada ano.
+#'
+#' data(SliwianyTb4)
+#' SliwianyTb4
+#'
+#' barplot(SliwianyTb4$Coef,
+#'         names.arg = SliwianyTb4$ANO,
+#'         main = paste("Coeficiente de Mortalidade Infantil\n",
+#'                      "por 1000 nascidos vivos, 1977 - 1982"),
+#'         col = rainbow(7),
+#'         ylim = c(0, 80))
+#'
+NULL
diff --git a/R/SliwianyTb5.R b/R/SliwianyTb5.R
new file mode 100644
index 0000000000000000000000000000000000000000..1c98851a96715661e90dff459ee13d31186545ed
--- /dev/null
+++ b/R/SliwianyTb5.R
@@ -0,0 +1,35 @@
+#' @name SliwianyTb5
+#' @title Coeficiente de Mortalidade Infantil, Segundo Alguns Países
+#' @description O coeficiente de mortalidade infantil expressa o total
+#'     de óbitos de crianças menores de um ano de idade por mil nascidos
+#'     vivos.
+#' @format Um \code{Data.frame} com 14 linhas e 3 colunas, em que
+#'
+#' \describe{
+#'
+#' \item{\code{Pais}}{País para o qual o coeficiente foi determinado.}
+#'
+#' \item{\code{ANO}}{Ano em que o coeficiente foi determinado.}
+#'
+#' \item{\code{Coef}}{Coeficiente por 1000 nascidos vivos.}
+#'
+#' }
+#' @keywords sociometria
+#' @source SLIWIANY (1997), Tabela 5, pág. 74.
+#' @examples
+#'
+#' data(SliwianyTb5)
+#' str(SliwianyTb5)
+#'
+#' xtabs(~Pais + ANO, data = SliwianyTb5)
+#'
+#' linhas <- c(1, 2, 3, 4, 7, 10)
+#' selec <- (SliwianyTb5[linhas, ])
+#' barplot(selec[, 3],
+#'         names.arg = selec[, 1],
+#'         main = paste("Coeficiente de Mortalidade Infantil\n",
+#'                      "de Diferentes Países em 1980"),
+#'         col = rainbow(6),
+#'         ylim = c(0, 100))
+#'
+NULL
diff --git a/data-raw/SliwianyTb2.txt b/data-raw/SliwianyTb2.txt
new file mode 100644
index 0000000000000000000000000000000000000000..a301d08bdd418734edc63a4256485719f49c00cc
--- /dev/null
+++ b/data-raw/SliwianyTb2.txt
@@ -0,0 +1,8 @@
+TN	1950	1960	1965	1966	1970	IC
+Alimentacao	NA	81	80	NA	80	-1
+Habitacao	NA	59	NA	62	66	12.6
+Saude	NA	74	80	NA	85	14.6
+Educacao	NA	74	81	NA	85	15
+Recreacao	54	53	NA	NA	65	23.3
+Prev. Social	NA	72	76	NA	78	8.2
+Inst. Material	NA	15	19	NA	21	40
diff --git a/data-raw/SliwianyTb3.txt b/data-raw/SliwianyTb3.txt
new file mode 100644
index 0000000000000000000000000000000000000000..a76736b79e93d6f06155f08f2a5a903be03c4048
--- /dev/null
+++ b/data-raw/SliwianyTb3.txt
@@ -0,0 +1,5 @@
+Cap	TD	DCA
+Curitiba	125653	59770
+Florianopolis	26184	17544
+Porto Alegre	197728	164969
+TOTAL	349565	242283
diff --git a/data-raw/SliwianyTb4.txt b/data-raw/SliwianyTb4.txt
new file mode 100644
index 0000000000000000000000000000000000000000..e8f1d5509f350063fddaa2106637651e28106b30
--- /dev/null
+++ b/data-raw/SliwianyTb4.txt
@@ -0,0 +1,7 @@
+ANO	Coef
+1977	73.4
+1978	53.52
+1979	47.32
+1980	42.98
+1981	38.28
+1982	35.93
diff --git a/data-raw/SliwianyTb5.txt b/data-raw/SliwianyTb5.txt
new file mode 100644
index 0000000000000000000000000000000000000000..a7a4da2837a946f4fc8d3405d5f93aa2dc44c144
--- /dev/null
+++ b/data-raw/SliwianyTb5.txt
@@ -0,0 +1,15 @@
+Pais	ANO	Coef
+EUA	1980	12.5
+Japao	1980	7.5
+Suecia	1980	6.9
+Franca	1980	10.0
+Mexico	1978	39.4
+Argentina	1978	40.8
+Chile	1980	31.9
+Venezuela	1979	33.1
+Paraguai	1978	41.2
+Guatemala	1980	85.9
+Nicaragua	1979	101.1
+Afeganistao	1979	181.6
+El Salvador	1979	53.0
+Equador	1978	64.4
diff --git a/data/SliwianyTb2.rda b/data/SliwianyTb2.rda
new file mode 100644
index 0000000000000000000000000000000000000000..588eef3bb69a58275873599105f9a658fc99c6f0
Binary files /dev/null and b/data/SliwianyTb2.rda differ
diff --git a/data/SliwianyTb3.rda b/data/SliwianyTb3.rda
new file mode 100644
index 0000000000000000000000000000000000000000..ba8abc7515f5abb4e5b3f9f3001a2cf062045394
Binary files /dev/null and b/data/SliwianyTb3.rda differ
diff --git a/data/SliwianyTb4.rda b/data/SliwianyTb4.rda
new file mode 100644
index 0000000000000000000000000000000000000000..7f02aaa74a2cce9344552124c00f29475b87f73a
Binary files /dev/null and b/data/SliwianyTb4.rda differ
diff --git a/data/SliwianyTb5.rda b/data/SliwianyTb5.rda
new file mode 100644
index 0000000000000000000000000000000000000000..4eda015c4430d003b2d8c836ca4fef84aaeefc36
Binary files /dev/null and b/data/SliwianyTb5.rda differ
diff --git a/man/SliwianyTb2.Rd b/man/SliwianyTb2.Rd
new file mode 100644
index 0000000000000000000000000000000000000000..cd30085c3fb9c967ad855a8ae6ff6728625fec27
--- /dev/null
+++ b/man/SliwianyTb2.Rd
@@ -0,0 +1,36 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/SliwianyTb2.R
+\name{SliwianyTb2}
+\alias{SliwianyTb2}
+\title{Índices Parciais do Nível de Vida da População Polonesa para
+    1950, 1960, 1965-66 e 1970}
+\format{Um \code{data.frame} com 7 linhas e 7 colunas, em que
+
+\describe{
+
+\item{\code{TN}}{Tipos de necessidades.}
+
+\item{\code{IC}}{Índice de crescimento 1970-1960 (\%).}
+
+}}
+\source{
+SLIWIANY, (1997), Tabela 2, pág. 61.
+}
+\description{
+Índices do nível de satisfação de necessidades diversas
+    da população polonesa com base nos medidores da ONU, definidos
+    para 1950, 1960, 1965-66 e 1970.
+}
+\examples{
+
+data(SliwianyTb2)
+str(SliwianyTb2)
+
+barplot(SliwianyTb2$IC,
+        names.arg = SliwianyTb2$TN,
+        main = "Íncice de Crescimento 1970-1960 (\%)",
+        xlab = "Tipos de Necessidades")
+
+}
+\keyword{sociometria}
+
diff --git a/man/SliwianyTb3.Rd b/man/SliwianyTb3.Rd
new file mode 100644
index 0000000000000000000000000000000000000000..ca5dd3ecdd79f9bb5522564bfcfff5edf20774e2
--- /dev/null
+++ b/man/SliwianyTb3.Rd
@@ -0,0 +1,46 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/SliwianyTb3.R
+\name{SliwianyTb3}
+\alias{SliwianyTb3}
+\title{Total de Domicílios e Domicílios com Abastecimento de Água}
+\format{Um \code{data.frame} com 4 linhas e 3 colunas, em que
+
+\describe{
+
+\item{\code{Cap}}{Capitais da Região Sul.}
+
+\item{\code{TD}}{Total de Domicílios.}
+
+\item{\code{DCA}}{Total de Domicílios com Abastecimento de Água.}
+
+}}
+\source{
+SLIWIANY (1997), Tabela 3, pág. 72.
+}
+\description{
+Total de domicílios e domicílios com abastecimento de
+    água, segundo capitais dos estados da Região Sul/IBGE -
+    1970. Domicílios considerados "com abastecimento de água" sendo
+    aqueles particulares permanentes que possuíam abastecimento de
+    água servidos por rede geral, com canalização interna.
+}
+\examples{
+
+data(SliwianyTb3)
+str(SliwianyTb3)
+SliwianyTb3
+
+# Calcula a proporção.
+SliwianyTb3$prop <- with(SliwianyTb3, DCA/TD)
+
+# Maria, você tem que corrigir a escrita de floxianópolis.
+levels(SliwianyTb3$Cap)[2] <- "Florianopolis"
+
+library(ggplot2)
+
+ggplot(SliwianyTb3, aes(x = Cap, y = prop)) +
+    geom_bar(position = "dodge", stat = "identity")
+
+}
+\keyword{sociometria}
+
diff --git a/man/SliwianyTb4.Rd b/man/SliwianyTb4.Rd
new file mode 100644
index 0000000000000000000000000000000000000000..07004c9e60eeb0c5987114bf83750c3ca25eceae
--- /dev/null
+++ b/man/SliwianyTb4.Rd
@@ -0,0 +1,39 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/SliwianyTb4.R
+\name{SliwianyTb4}
+\alias{SliwianyTb4}
+\title{Coeficiente de Mortalidade Infantil em Curitiba}
+\format{Um \code{data.frame} com 6 linhas e 2 colunas, em que
+
+\describe{
+
+\item{\code{ANO}}{Ano em que o coeficiente foi determinado.}
+
+\item{\code{Coef}}{Coeficiente por 1000 nascidos vivos.}
+
+}}
+\source{
+SLIWIANY (1997), Tabela 4, pág. 73.
+}
+\description{
+O coeficiente de mortalidade infantil expressa o total
+    de óbitos de crianças menores de um ano de idade por mil nascidos
+    vivos.
+}
+\examples{
+
+# Comparando os coeficientes e mortalidade infantil em cada ano.
+
+data(SliwianyTb4)
+SliwianyTb4
+
+barplot(SliwianyTb4$Coef,
+        names.arg = SliwianyTb4$ANO,
+        main = paste("Coeficiente de Mortalidade Infantil\\n",
+                     "por 1000 nascidos vivos, 1977 - 1982"),
+        col = rainbow(7),
+        ylim = c(0, 80))
+
+}
+\keyword{sociometria}
+
diff --git a/man/SliwianyTb5.Rd b/man/SliwianyTb5.Rd
new file mode 100644
index 0000000000000000000000000000000000000000..96fee77138e410daa808551d54f199143919f278
--- /dev/null
+++ b/man/SliwianyTb5.Rd
@@ -0,0 +1,43 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/SliwianyTb5.R
+\name{SliwianyTb5}
+\alias{SliwianyTb5}
+\title{Coeficiente de Mortalidade Infantil, Segundo Alguns Países}
+\format{Um \code{Data.frame} com 14 linhas e 3 colunas, em que
+
+\describe{
+
+\item{\code{Pais}}{País para o qual o coeficiente foi determinado.}
+
+\item{\code{ANO}}{Ano em que o coeficiente foi determinado.}
+
+\item{\code{Coef}}{Coeficiente por 1000 nascidos vivos.}
+
+}}
+\source{
+SLIWIANY (1997), Tabela 5, pág. 74.
+}
+\description{
+O coeficiente de mortalidade infantil expressa o total
+    de óbitos de crianças menores de um ano de idade por mil nascidos
+    vivos.
+}
+\examples{
+
+data(SliwianyTb5)
+str(SliwianyTb5)
+
+xtabs(~Pais + ANO, data = SliwianyTb5)
+
+linhas <- c(1, 2, 3, 4, 7, 10)
+selec <- (SliwianyTb5[linhas, ])
+barplot(selec[, 3],
+        names.arg = selec[, 1],
+        main = paste("Coeficiente de Mortalidade Infantil\\n",
+                     "de Diferentes Países em 1980"),
+        col = rainbow(6),
+        ylim = c(0, 100))
+
+}
+\keyword{sociometria}
+