From 9ec5fc254e5020546b0a364052f6ca30f2dbfedb Mon Sep 17 00:00:00 2001
From: Jhenifer <jhenicaet@gmail.com>
Date: Sun, 23 Oct 2016 12:15:14 -0200
Subject: [PATCH] Adiciona tabela PaulinoEx10.1 oa pacote
---
R/PaulinoEx10.1.R | 38 ++++++++++++++++++++++++++++++
data-raw/PaulinoEx10.1.txt | 9 ++++++++
data/PaulinoEx10.1.rda | Bin 0 -> 230 bytes
man/PaulinoEx10.1.Rd | 46 +++++++++++++++++++++++++++++++++++++
4 files changed, 93 insertions(+)
create mode 100644 R/PaulinoEx10.1.R
create mode 100644 data-raw/PaulinoEx10.1.txt
create mode 100644 data/PaulinoEx10.1.rda
create mode 100644 man/PaulinoEx10.1.Rd
diff --git a/R/PaulinoEx10.1.R b/R/PaulinoEx10.1.R
new file mode 100644
index 00000000..b3c071f1
--- /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 00000000..dc737dd9
--- /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
GIT binary patch
literal 230
zcmZ>Y%CIzaj8qGboSmfni-Do_|Fi#}e3Teie=x8y1UTxe?>pci;K0CeU;+b+;|7Lp
z5i3qGFfcA)U|`^NTlsS3@>W~-6($T-4Gip^Y+9+d4h#(JD|n@Y9r!&xHl)esWC?rw
z=&BsCT%_;BJnxUh!bO4ek2i~Kc4f%2Q8wm$&aq*ik+;iaCC(}vf!enIj4ce73<3(5
zTsRqAPZ$b0%*}9NV|mDTF;DYFYTo+kZ)Cn#_#Anrc>4R*)hd5An)ENMS{f<UdhK~k
l-ae&|v9><!kzyyL_0Kgg3{&FbVE(atlIEe7mfM2z7XT!GR(${f
literal 0
HcmV?d00001
diff --git a/man/PaulinoEx10.1.Rd b/man/PaulinoEx10.1.Rd
new file mode 100644
index 00000000..33257984
--- /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}
+
--
GitLab