diff --git a/R/PaulinoEx10.1.R b/R/PaulinoEx10.1.R new file mode 100644 index 0000000000000000000000000000000000000000..b3c071f1dc1a2f6f8f94946f73a621513f76f47b --- /dev/null +++ b/R/PaulinoEx10.1.R @@ -0,0 +1,38 @@ +#' @name PaulinoEx10.1 +#' @title Efeito da Radiação Gama na Formação de Múltiplos Micronúcleos +#' @description Estudo em que o objetivo é avaliar o efeito da dose de +#' radiação gama (em centigrays) na formação de múltiplos +#' micronúcleos em células de indivíduos normais. +#' @format Um \code{data.frame} com 8 observações e 3 variáveis, em que +#' +#' \describe{ +#' +#' \item{\code{dose}}{Dose de radiação gama (cGy).} +#' +#' \item{\code{freq}}{Frequência de células com múltiplos micronúcleos.} +#' +#' \item{\code{total}}{Total de células examinaddas.} +#' +#' } +#' @keywords binomial +#' @source PAULINO; SINGER (2006), Exercício 10.1, pág. 367. +#' @examples +#' +#' data(PaulinoEx10.1) +#' +#' str(PaulinoEx10.1) +#' +#' barplot(PaulinoEx10.1$freq, +#' col = "darkturquoise", +#' names.arg = PaulinoEx10.1$dose, +#' ylim = c(0, 300), +#' xlab = "Dose de radiação", +#' ylab = "Frequência") +#' +#' library(lattice) +#' +#' xyplot(freq/total ~ dose, data = PaulinoEx10.1, +#' xlab = "Dose de radiação", +#' ylab = "Proporção de células") +#' +NULL \ No newline at end of file diff --git a/data-raw/PaulinoEx10.1.txt b/data-raw/PaulinoEx10.1.txt new file mode 100644 index 0000000000000000000000000000000000000000..dc737dd964be403d684072afe385d6b493be6a69 --- /dev/null +++ b/data-raw/PaulinoEx10.1.txt @@ -0,0 +1,9 @@ +dose freq total +0 1 2373 +20 6 2662 +50 25 1991 +100 47 2047 +200 82 2611 +300 207 2442 +400 254 2398 +500 285 1746 diff --git a/data/PaulinoEx10.1.rda b/data/PaulinoEx10.1.rda new file mode 100644 index 0000000000000000000000000000000000000000..fe1ccb89e22110edabc259f775fd3c06068db422 Binary files /dev/null and b/data/PaulinoEx10.1.rda differ diff --git a/man/PaulinoEx10.1.Rd b/man/PaulinoEx10.1.Rd new file mode 100644 index 0000000000000000000000000000000000000000..33257984d44d873efe23f597be2d480fcef80b57 --- /dev/null +++ b/man/PaulinoEx10.1.Rd @@ -0,0 +1,46 @@ +% Generated by roxygen2: do not edit by hand +% Please edit documentation in R/PaulinoEx10.1.R +\name{PaulinoEx10.1} +\alias{PaulinoEx10.1} +\title{Efeito da Radiação Gama na Formação de Múltiplos Micronúcleos} +\format{Um \code{data.frame} com 8 observações e 3 variáveis, em que + +\describe{ + +\item{\code{dose}}{Dose de radiação gama (cGy).} + +\item{\code{freq}}{Frequência de células com múltiplos micronúcleos.} + +\item{\code{total}}{Total de células examinaddas.} + +}} +\source{ +PAULINO; SINGER (2006), Exercício 10.1, pág. 367. +} +\description{ +Estudo em que o objetivo é avaliar o efeito da dose de + radiação gama (em centigrays) na formação de múltiplos + micronúcleos em células de indivíduos normais. +} +\examples{ + +data(PaulinoEx10.1) + +str(PaulinoEx10.1) + +barplot(PaulinoEx10.1$freq, + col = "darkturquoise", + names.arg = PaulinoEx10.1$dose, + ylim = c(0, 300), + xlab = "Dose de radiação", + ylab = "Frequência") + +library(lattice) + +xyplot(freq/total ~ dose, data = PaulinoEx10.1, + xlab = "Dose de radiação", + ylab = "Proporção de células") + +} +\keyword{binomial} +