Skip to content
Snippets Groups Projects
Commit 82d4a49d authored by Walmes Marques Zeviani's avatar Walmes Marques Zeviani
Browse files

Correçoes na documentacao.

parent 90385a0c
No related branches found
No related tags found
1 merge request!133Maria132
Pipeline #
Show whitespace changes
Inline Side-by-side
R/BracarensePg27.R
+ 26
− 15
View file @ 82d4a49d
......@@ -3,22 +3,33 @@
#' @description Relação dos funcionários constando sexo, idade, salário
#' e setor.
#' @format Um \code{data.frame} com 40 linhas e 4 colunas, em que
#'
#' \describe{
#'
#' \item{\code{oper}}{Setor operacional.}
#' \item{\code{aux adm}}{Auxiliar administrativo.}
#' \item{\code{tec}}{Setor técnico}
#' \item{\code{adm}}{Setor Administrativo.}
#' \item{\code{ger}}{Gerência}
#' \item{\code{Sexo}}{Sexo do trabalhador.}
#'
#' \item{\code{Idade}}{Idade do trabalhador, em anos.}
#'
#' \item{\code{Salario}}{Salário recebido.}
#'
#' \item{\code{Setor}}{Setor em que trabalha: \code{oper} - operacional,
#' \code{aux adm} - auxiliar administrativo, \code{tec} - técnico,
#' \code{adm} - administrativo, \code{ger} - gerência.}
#'
#' }
#'
#' @keywords estatística básica
#' @source BRACARENSE(2009), exemplo pág. 27.
#' @source BRACARENSE (2009), exemplo página 27.
#' @examples
#'
#' data(BracarensePg27)
#' str(BracarensePg27)
#'
#' tb <- xtabs(~Setor + Sexo, data = BracarensePg27)
#' mosaicplot(tb)
#'
#' library(lattice)
#' xyplot(Setor ~ Idade | Sexo, data = BracarensePg27)
#'
#' xyplot(Idade ~ Setor | Sexo, data = BracarensePg27)
#'
NULL
R/BracarensePg41.R
+ 14
− 7
View file @ 82d4a49d
......@@ -3,12 +3,19 @@
#' @description Os dados a seguir são relativos ao peso, ao nascer (em
#' gramas), de recém nascidos com síndrome de desconforto idiopático
#' grave.
#' @format Um \code{vetor} com 50 entradas
#' @format Um \code{vetor} com 50 valores de peso em gramas.
#' @keywords sociometria
#' @source BRACARENSE(2009), Exercício 1, pág. 41.
#' @source BRACARENSE (2009), Exercício 1, página 41.
#' @examples
#'
#' plot(BracarensePg41, col= rainbow(50))
#' data(BracarensePg41)
#' str(BracarensePg41)
#'
#' library(lattice)
#' library(latticeExtra)
#'
#' c(histogram(~BracarensePg41) + layer(panel.rug(x)),
#' densityplot(~BracarensePg41, plot.points = "rug"),
#' ecdfplot(~BracarensePg41), layout = c(NA, 1))
#'
NULL
R/BracarensePg43.R
+ 55
− 21
View file @ 82d4a49d
......@@ -2,29 +2,63 @@
#' @title Pessoas Condenadas Por Embriaguez
#' @description Os dados a seguir foram publicados pela Unidade de
#' Recuperação de Acoólatras em Camberwell, Reino Unido. A tabela
#' mostra o número de pessoas condenadas por embriaguez nos tribunais
#' de Tower Bridge e Lambeth, Londres, durante 6 meses, de primeiro
#' de janeiro a 27 de junho de 1970, classificados segundo idade e sexo.
#' mostra o número de pessoas condenadas por embriaguez nos
#' tribunais de Tower Bridge e Lambeth, Londres, durante 6 meses, de
#' primeiro de janeiro a 27 de junho de 1970, classificados segundo
#' idade e sexo.
#' @format Um \code{data.frame} com 5 linhas e 3 colunas, em que
#'
#' \describe{
#'
#' \item{\code{NH}}{Número de Homens.}
#'
#' \item{\code{NM}}{Número de Mulheres.}
#'
#' }
#'
#' @keywords estatística básica
#' @source BRACARENSE(2009), Exercício 2, pág. 43.
#' @source BRACARENSE(2009), Exercício 2, página 43.
#' @examples
#'
#' soma <- sum(BracarensePg43$NH)
#' data(BracarensePg43)
#' str(BracarensePg43)
#' levels(BracarensePg43$Idade)[c(1, 5)] <- c("<30", ">=60")
#'
#' tb <- as.matrix(BracarensePg43[, -1])
#' rownames(tb) <- BracarensePg43[, 1]
#'
#' mosaicplot(tb, main = NULL)
#'
#' dados <- BracarensePg43$NH/soma*100
#' barplot(tb,
#' beside = TRUE,
#' ylab = "Número de pessoas condenados por embriaguez")
#'
#' library(lattice)
#' library(latticeExtra)
#'
#' desloc <- function(x, groups, box.ratio, subscripts) {
#' d <- 1/(nlevels(groups) + nlevels(groups)/box.ratio)
#' g <- (as.numeric(groups[subscripts]) - 1)
#' g <- (g - median(g)) * d
#' return(as.integer(x[subscripts]) + g)
#' }
#'
#' barplot(dados, names.arg = BracarensePg43$Idade,
#' col = "red",
#' ylim = c(0, 30),
#' main = "Porcentagem de Homens Condenados por Embriaguez por Idade")
#' barchart(tb,
#' stack = FALSE,
#' horizontal = FALSE,
#' ylab = "Número de pessoas condenados por embriaguez") +
#' layer(panel.text(x = desloc(x, groups, box.ratio, subscripts),
#' y = y,
#' label = y,
#' pos = 3))
#'
#' barchart(t(tb),
#' stack = FALSE,
#' horizontal = FALSE,
#' ylab = "Número de pessoas condenados por embriaguez") +
#' layer(panel.text(x = desloc(x, groups, box.ratio, subscripts),
#' y = y,
#' label = y,
#' pos = 3))
#'
NULL
R/BracarensePg44.R
+ 14
− 7
View file @ 82d4a49d
......@@ -3,12 +3,19 @@
#' @description Os dados a seguir são de altura (em centímetros) de uma
#' amostra de 351 mulheres idosas selecionadas aleatoriamente de uma
#' comunidade para um estudo de osteoporose.
#' @format Um \code{vetor} com 351 entradas.
#' @format Um \code{vetor} com 351 valures de altura, em cm.
#' @keywords sociometria
#' @source BRACARENSE(2009), Exercício 3, pág. 44.
#' @source BRACARENSE (2009), Exercício 3, página 44.
#' @examples
#'
#' plot(BracarensePg44, ylab = "Altura")
#' data(BracarensePg44)
#' str(BracarensePg44)
#'
#' library(lattice)
#' library(latticeExtra)
#'
#' c(histogram(~BracarensePg44) + layer(panel.rug(x)),
#' densityplot(~BracarensePg44, plot.points = "rug"),
#' ecdfplot(~BracarensePg44), layout = c(NA, 1))
#'
NULL
man/BracarensePg27.Rd
+ 20
− 9
View file @ 82d4a49d
......@@ -4,17 +4,22 @@
\alias{BracarensePg27}
\title{Relação dos Funcionários de uma Empresa Imaginária}
\format{Um \code{data.frame} com 40 linhas e 4 colunas, em que
\describe{
\item{\code{oper}}{Setor operacional.}
\item{\code{aux adm}}{Auxiliar administrativo.}
\item{\code{tec}}{Setor técnico}
\item{\code{adm}}{Setor Administrativo.}
\item{\code{ger}}{Gerência}
\item{\code{Sexo}}{Sexo do trabalhador.}
\item{\code{Idade}}{Idade do trabalhador, em anos.}
\item{\code{Salario}}{Salário recebido.}
\item{\code{Setor}}{Setor em que trabalha: \code{oper} - operacional,
\code{aux adm} - auxiliar administrativo, \code{tec} - técnico,
\code{adm} - administrativo, \code{ger} - gerência.}
}}
\source{
BRACARENSE(2009), exemplo pág. 27.
BRACARENSE (2009), exemplo página 27.
}
\description{
Relação dos funcionários constando sexo, idade, salário
......@@ -22,9 +27,15 @@ Relação dos funcionários constando sexo, idade, salário
}
\examples{
data(BracarensePg27)
str(BracarensePg27)
tb <- xtabs(~Setor + Sexo, data = BracarensePg27)
mosaicplot(tb)
library(lattice)
xyplot(Setor ~ Idade | Sexo, data = BracarensePg27)
xyplot(Idade ~ Setor | Sexo, data = BracarensePg27)
}
\keyword{básica}
......
man/BracarensePg41.Rd
+ 10
− 3
View file @ 82d4a49d
......@@ -3,9 +3,9 @@
\name{BracarensePg41}
\alias{BracarensePg41}
\title{Peso de Recém Nascidos}
\format{Um \code{vetor} com 50 entradas}
\format{Um \code{vetor} com 50 valores de peso em gramas.}
\source{
BRACARENSE(2009), Exercício 1, pág. 41.
BRACARENSE (2009), Exercício 1, página 41.
}
\description{
Os dados a seguir são relativos ao peso, ao nascer (em
......@@ -14,8 +14,15 @@ Os dados a seguir são relativos ao peso, ao nascer (em
}
\examples{
plot(BracarensePg41, col= rainbow(50))
data(BracarensePg41)
str(BracarensePg41)
library(lattice)
library(latticeExtra)
c(histogram(~BracarensePg41) + layer(panel.rug(x)),
densityplot(~BracarensePg41, plot.points = "rug"),
ecdfplot(~BracarensePg41), layout = c(NA, 1))
}
\keyword{sociometria}
......
man/BracarensePg43.Rd
+ 49
− 15
View file @ 82d4a49d
......@@ -4,33 +4,67 @@
\alias{BracarensePg43}
\title{Pessoas Condenadas Por Embriaguez}
\format{Um \code{data.frame} com 5 linhas e 3 colunas, em que
\describe{
\item{\code{NH}}{Número de Homens.}
\item{\code{NM}}{Número de Mulheres.}
}}
\source{
BRACARENSE(2009), Exercício 2, pág. 43.
BRACARENSE(2009), Exercício 2, página 43.
}
\description{
Os dados a seguir foram publicados pela Unidade de
Recuperação de Acoólatras em Camberwell, Reino Unido. A tabela
mostra o número de pessoas condenadas por embriaguez nos tribunais
de Tower Bridge e Lambeth, Londres, durante 6 meses, de primeiro
de janeiro a 27 de junho de 1970, classificados segundo idade e sexo.
mostra o número de pessoas condenadas por embriaguez nos
tribunais de Tower Bridge e Lambeth, Londres, durante 6 meses, de
primeiro de janeiro a 27 de junho de 1970, classificados segundo
idade e sexo.
}
\examples{
soma <- sum(BracarensePg43$NH)
data(BracarensePg43)
str(BracarensePg43)
levels(BracarensePg43$Idade)[c(1, 5)] <- c("<30", ">=60")
tb <- as.matrix(BracarensePg43[, -1])
rownames(tb) <- BracarensePg43[, 1]
mosaicplot(tb, main = NULL)
dados <- BracarensePg43$NH/soma*100
barplot(tb,
beside = TRUE,
ylab = "Número de pessoas condenados por embriaguez")
library(lattice)
library(latticeExtra)
desloc <- function(x, groups, box.ratio, subscripts) {
d <- 1/(nlevels(groups) + nlevels(groups)/box.ratio)
g <- (as.numeric(groups[subscripts]) - 1)
g <- (g - median(g)) * d
return(as.integer(x[subscripts]) + g)
}
barplot(dados, names.arg = BracarensePg43$Idade,
col = "red",
ylim = c(0, 30),
main = "Porcentagem de Homens Condenados por Embriaguez por Idade")
barchart(tb,
stack = FALSE,
horizontal = FALSE,
ylab = "Número de pessoas condenados por embriaguez") +
layer(panel.text(x = desloc(x, groups, box.ratio, subscripts),
y = y,
label = y,
pos = 3))
barchart(t(tb),
stack = FALSE,
horizontal = FALSE,
ylab = "Número de pessoas condenados por embriaguez") +
layer(panel.text(x = desloc(x, groups, box.ratio, subscripts),
y = y,
label = y,
pos = 3))
}
\keyword{básica}
......
man/BracarensePg44.Rd
+ 12
− 5
View file @ 82d4a49d
......@@ -3,9 +3,9 @@
\name{BracarensePg44}
\alias{BracarensePg44}
\title{Altura de Mulheres Idosas}
\format{Um \code{vetor} com 351 entradas.}
\format{Um \code{vetor} com 351 valures de altura, em cm.}
\source{
BRACARENSE(2009), Exercício 3, pág. 44.
BRACARENSE (2009), Exercício 3, página 44.
}
\description{
Os dados a seguir são de altura (em centímetros) de uma
......@@ -14,8 +14,15 @@ Os dados a seguir são de altura (em centímetros) de uma
}
\examples{
plot(BracarensePg44, ylab = "Altura")
data(BracarensePg44)
str(BracarensePg44)
library(lattice)
library(latticeExtra)
c(histogram(~BracarensePg44) + layer(panel.rug(x)),
densityplot(~BracarensePg44, plot.points = "rug"),
ecdfplot(~BracarensePg44), layout = c(NA, 1))
}
\keyword{sociometria}
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment