From 09f74b5f216e0e0a521f054b9e679946f2194fb9 Mon Sep 17 00:00:00 2001
From: Jhenifer <jhenicaet@gmail.com>
Date: Sun, 23 Oct 2016 13:48:23 -0200
Subject: [PATCH] Adiciona tabela PaulinoTb10.4 ao pacote
---
R/PaulinoTb10.4.R | 51 +++++++++++++++++++++++++++++++
data-raw/PaulinoTb10.4.txt | 9 ++++++
data/PaulinoTb10.4.rda | Bin 0 -> 267 bytes
man/PaulinoTb10.4.Rd | 60 +++++++++++++++++++++++++++++++++++++
4 files changed, 120 insertions(+)
create mode 100644 R/PaulinoTb10.4.R
create mode 100644 data-raw/PaulinoTb10.4.txt
create mode 100644 data/PaulinoTb10.4.rda
create mode 100644 man/PaulinoTb10.4.Rd
diff --git a/R/PaulinoTb10.4.R b/R/PaulinoTb10.4.R
new file mode 100644
index 00000000..ef0335c9
--- /dev/null
+++ b/R/PaulinoTb10.4.R
@@ -0,0 +1,51 @@
+#' @name PaulinoTb10.4
+#' @title Suscetibilidade à Síndrome de Malária Celebral
+#' @description Estudo de genética experimental cujo objetivo é mapear
+#' a suscetibilidade à síndrome de malária celebral (SMC) em
+#' camundongos. Para a realização do estudo, foram considerados os
+#' genótipos em dois loci, identificados como relevantes para o
+#' fenótipo (doença) em causas em animais de progenia F2 resultantes
+#' do retrocruzamento da progenia F1 (obtida por cruzamento entre
+#' uma estripe suscetível (s) e outra resistente (r)) com os seus
+#' progenitores da estripe suscetível.
+#' @format Um \code{data.frame} com 8 observações e 4 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{locus1}}{Genótipos localizados no locus 1.}
+#'
+#' \item{\code{locus2}}{Genótipos no locus 2.}
+#'
+#' \item{\code{smc}}{Suscetibilidade ao SMC (suscetíveis, resistentes).}
+#'
+#' \item{\code{freq}}{Número de camundongos.}
+#'
+#' }
+#' @keywords TC binomial
+#' @source PAULINO; SINGER (2006), Tabela 10.4, pág. 361.
+#' @examples
+#'
+#' data(PaulinoTb10.4)
+#'
+#' str(PaulinoTb10.4)
+#'
+#' xt <- xtabs(freq ~ ., data = PaulinoTb10.4)
+#' ftable(xt)
+#'
+#' library(lattice)
+#'
+#' barchart(freq ~ locus1 | locus2, groups = smc,
+#' data = PaulinoTb10.4,
+#' horizontal = FALSE,
+#' beside = FALSE,
+#' stack = FALSE,
+#' auto.key = list(space = "top", columns = 2, cex.title = 1,
+#' rectangles = TRUE, points = FALSE,
+#' title = "SMC"),
+#' xlab = "Locus1",
+#' ylab = "Frequências",
+#' strip = strip.custom(
+#' strip.names = TRUE,
+#' var.name = "Locus2"))
+#'
+NULL
\ No newline at end of file
diff --git a/data-raw/PaulinoTb10.4.txt b/data-raw/PaulinoTb10.4.txt
new file mode 100644
index 00000000..62225996
--- /dev/null
+++ b/data-raw/PaulinoTb10.4.txt
@@ -0,0 +1,9 @@
+locus1 locus2 smc freq
+s1s1 s2s2 suscetiveis 35
+s1s1 s2s2 resistentes 10
+s1s1 s2r2 suscetiveis 25
+s1s1 s2r2 resistentes 23
+s1r1 s2s2 suscetiveis 27
+s1r1 s2s2 resistentes 21
+s1r1 s2r2 suscetiveis 9
+s1r1 s2r2 resistentes 40
diff --git a/data/PaulinoTb10.4.rda b/data/PaulinoTb10.4.rda
new file mode 100644
index 0000000000000000000000000000000000000000..872cde8a9052b36385e548d09daf946008ec5e01
GIT binary patch
literal 267
zcmZ>Y%CIzaj8qGbT=h7|mVuGE{=ok#uN54QB@8SKArAKH`x_h>7#ue+e4WfI5Ujp%
zfl0$<U&aLoZ5=y8*c5nXF);9&Fu8I{nJ_S1U|?WNnZU7F(@{ZpXIfhJhSW*vJDx}|
zeNJ*eeyzfDW^?i4;)H|GBz`pth_tj91$7*qV|H%|m+nayhfY&#LA}B?j}2B#;q>QP
z$(7Q$z%7lD#l*xwt%qeoVey8pBx$jG@hcYnesPG$;eGAZ=c&IE0yB(H%WRn~b#meA
zikwak*G*}DTWzIz1Z)mnyL4UqdWe(K#Ng@D+t`0!)fSXIY^&JeU|PC}W5UU;A&DHD
Z#ee*M;?jD!{h!{Gu7ZV%p~r4i0RZIJY|#J!
literal 0
HcmV?d00001
diff --git a/man/PaulinoTb10.4.Rd b/man/PaulinoTb10.4.Rd
new file mode 100644
index 00000000..81914c1b
--- /dev/null
+++ b/man/PaulinoTb10.4.Rd
@@ -0,0 +1,60 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/PaulinoTb10.4.R
+\name{PaulinoTb10.4}
+\alias{PaulinoTb10.4}
+\title{Suscetibilidade à Síndrome de Malária Celebral}
+\format{Um \code{data.frame} com 8 observações e 4 variáveis, em que
+
+\describe{
+
+\item{\code{locus1}}{Genótipos localizados no locus 1.}
+
+\item{\code{locus2}}{Genótipos no locus 2.}
+
+\item{\code{smc}}{Suscetibilidade ao SMC (suscetíveis, resistentes).}
+
+\item{\code{freq}}{Número de camundongos.}
+
+}}
+\source{
+PAULINO; SINGER (2006), Tabela 10.4, pág. 361.
+}
+\description{
+Estudo de genética experimental cujo objetivo é mapear
+ a suscetibilidade à síndrome de malária celebral (SMC) em
+ camundongos. Para a realização do estudo, foram considerados os
+ genótipos em dois loci, identificados como relevantes para o
+ fenótipo (doença) em causas em animais de progenia F2 resultantes
+ do retrocruzamento da progenia F1 (obtida por cruzamento entre
+ uma estripe suscetível (s) e outra resistente (r)) com os seus
+ progenitores da estripe suscetível.
+}
+\examples{
+
+data(PaulinoTb10.4)
+
+str(PaulinoTb10.4)
+
+xt <- xtabs(freq ~ ., data = PaulinoTb10.4)
+ftable(xt)
+
+library(lattice)
+
+barchart(freq ~ locus1 | locus2, groups = smc,
+ data = PaulinoTb10.4,
+ horizontal = FALSE,
+ beside = FALSE,
+ stack = FALSE,
+ auto.key = list(space = "top", columns = 2, cex.title = 1,
+ rectangles = TRUE, points = FALSE,
+ title = "SMC"),
+ xlab = "Locus1",
+ ylab = "Frequências",
+ strip = strip.custom(
+ strip.names = TRUE,
+ var.name = "Locus2"))
+
+}
+\keyword{TC}
+\keyword{binomial}
+
--
GitLab