Merge branch 'maria136' into devel

R/SliwianyTb2.R

+#' @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

R/SliwianyTb3.R

+#' @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

R/SliwianyTb4.R

+#' @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

R/SliwianyTb5.R

+#' @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

data-raw/SliwianyTb2.txt

+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

data-raw/SliwianyTb3.txt

+Cap	TD	DCA
+Curitiba	125653	59770
+Florianopolis	26184	17544
+Porto Alegre	197728	164969
+TOTAL	349565	242283

data-raw/SliwianyTb4.txt

+ANO	Coef
+1977	73.4
+1978	53.52
+1979	47.32
+1980	42.98
+1981	38.28
+1982	35.93

data-raw/SliwianyTb5.txt

+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

man/SliwianyTb2.Rd

+% 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}
+

man/SliwianyTb3.Rd

+% 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}
+

man/SliwianyTb4.Rd

+% 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}
+

man/SliwianyTb5.Rd

+% 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}
+