diff --git a/.RData b/.RData index b714bb07a77b4970c561afb2e538c6f5770ff71f..45cd2f855d373e395745763e033f564b649aeb41 100644 Binary files a/.RData and b/.RData differ diff --git a/R/AndradeTb2.11.R b/R/AndradeTb2.11.R new file mode 100644 index 0000000000000000000000000000000000000000..3826cd53af5adf10e90ed6f0ee85219e044bcb7f --- /dev/null +++ b/R/AndradeTb2.11.R @@ -0,0 +1,42 @@ +#' @name AndradeTb2.11 +#' @title Experimento de Contagem de Plantas +#' @description Experimento que tem por objetivo verificar se os +#' caracteres ciclo e virescência, de uma progênie da espécie "X", +#' segregam de forma independente. +#' @format Um \code{data.frame} com 4 observações e 3 variáveis, em que +#' +#' \describe{ +#' +#' \item{\code{ciclo}}{Fator de 2 níveis qualitativos que indica o +#' caractere ciclo (Tardio e Precoce).} +#' +#' \item{\code{vir}}{Fator de 3 níveis qualitativos que indica o +#' caractere virescência (Normal e Virescente).} +#' +#' \item{\code{cont}}{Contagem de plantas segregando para dois +#' caracteres numa progênie da espécie "X".} +#' +#' } +#' @keywords AAS +#' @source Estatística para as ciências agrárias e biológicas: com +#' noções de experimentação / Dalton F. Andrade, Paulo J. Ogliari. +#' 2. ed. rev. e ampl. - Florianópolis: Ed. da UFSC, 2010. (Tabela +#' 2.11, pág. 80) +#' @examples +#' +#' library(lattice) +#' +#' data(AndradeTb2.11) +#' str(AndradeTb2.11) +#' +#' tb <- xtabs(cont~ciclo + vir, data= AndradeTb2.11) +#' +#' barplot(t(tb), +#' beside = TRUE, +#' legend.text = TRUE, +#' col = c("darkturquoise", "lawngreen"), +#' ylim = c(0, 3500), +#' xlab = "Ciclo", +#' ylab = "Contagem de Plantas") +#' +NULL \ No newline at end of file diff --git a/data-raw/AndradeTb2.11.txt b/data-raw/AndradeTb2.11.txt new file mode 100644 index 0000000000000000000000000000000000000000..def8b5c60c0c2d038b3ac46f4b2b45b07f8d2e07 --- /dev/null +++ b/data-raw/AndradeTb2.11.txt @@ -0,0 +1,5 @@ +ciclo vir cont +tardio normal 3470 +precoce normal 1030 +tardio virescente 910 +precoce virescente 290 diff --git a/data/AndradeTb2.11.rda b/data/AndradeTb2.11.rda new file mode 100644 index 0000000000000000000000000000000000000000..808977c5d404f6bdf6b966841d6cdd73e5833eb5 Binary files /dev/null and b/data/AndradeTb2.11.rda differ diff --git a/man/AndradeTb2.11.Rd b/man/AndradeTb2.11.Rd new file mode 100644 index 0000000000000000000000000000000000000000..e51d7f375154496ac729dbf7c2443376a25b957c --- /dev/null +++ b/man/AndradeTb2.11.Rd @@ -0,0 +1,50 @@ +% Generated by roxygen2: do not edit by hand +% Please edit documentation in R/AndradeTb2.11.R +\name{AndradeTb2.11} +\alias{AndradeTb2.11} +\title{Experimento de Contagem de Plantas} +\format{Um \code{data.frame} com 4 observações e 3 variáveis, em que + +\describe{ + +\item{\code{ciclo}}{Fator de 2 níveis qualitativos que indica o + caractere ciclo (Tardio e Precoce).} + +\item{\code{vir}}{Fator de 3 níveis qualitativos que indica o + caractere virescência (Normal e Virescente).} + +\item{\code{cont}}{Contagem de plantas segregando para dois + caracteres numa progênie da espécie "X".} + +}} +\source{ +Estatística para as ciências agrárias e biológicas: com + noções de experimentação / Dalton F. Andrade, Paulo J. Ogliari. + 2. ed. rev. e ampl. - Florianópolis: Ed. da UFSC, 2010. (Tabela + 2.11, pág. 80) +} +\description{ +Experimento que tem por objetivo verificar se os + caracteres ciclo e virescência, de uma progênie da espécie "X", + segregam de forma independente. +} +\examples{ + +library(lattice) + +data(AndradeTb2.11) +str(AndradeTb2.11) + +tb <- xtabs(cont~ciclo + vir, data= AndradeTb2.11) + +barplot(t(tb), + beside = TRUE, + legend.text = TRUE, + col = c("darkturquoise", "lawngreen"), + ylim = c(0, 3500), + xlab = "Ciclo", + ylab = "Contagem de Plantas") + +} +\keyword{AAS} +