From b7d46f5c43138623ee0fc58ab242afc01d5a511d Mon Sep 17 00:00:00 2001 From: Bruno Geronymo <geronymobruno@hotmail.com> Date: Tue, 30 Aug 2016 18:55:05 -0300 Subject: [PATCH] Adiciona Tabela 5 (AndradeTb2.6). --- R/AndradeTb2.6.R | 44 ++++++++++++++++++++++++++++++++ data-raw/AndradeTb2.6.txt | 51 +++++++++++++++++++++++++++++++++++++ data/AndradeTb2.6.rda | Bin 0 -> 246 bytes man/AndradeEg2.1.Rd | 4 +-- man/AndradeTb1.2.Rd | 2 +- man/AndradeTb2.1.Rd | 2 +- man/AndradeTb2.6.Rd | 52 ++++++++++++++++++++++++++++++++++++++ 7 files changed, 151 insertions(+), 4 deletions(-) create mode 100644 R/AndradeTb2.6.R create mode 100644 data-raw/AndradeTb2.6.txt create mode 100644 data/AndradeTb2.6.rda create mode 100644 man/AndradeTb2.6.Rd diff --git a/R/AndradeTb2.6.R b/R/AndradeTb2.6.R new file mode 100644 index 00000000..26854b4b --- /dev/null +++ b/R/AndradeTb2.6.R @@ -0,0 +1,44 @@ +#' @name AndradeTb2.6 +#' @title Experimento de Cultura de Feijão de Vagem +#' @description Experimento no qual um pesquisador está procurando +#' verificar se existe associação entre hábito de crescimento e +#' porte na cultura de feijão de vagem. +#' @format Um \code{data.frame} com 50 observações e 2 variáveis, em que +#' +#' \describe{ +#' +#' \item{\code{H}}{Fator de 2 níveis qualitativos que são os hábitos de +#' crescimento, sendo: 3 = "indeterminado trepador"; 4 = +#' "indeterminado prostrado".} +#' +#' \item{\code{P}}{Fator de 3 níveis qualitativos que são os portes, +#' sendo: Tr = "trepador"; EB = "ereto na base"; Pr = "prostrado".} +#' +#' } +#' @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.6, pág. 74) +#' @examples +#' +#' library(lattice) +#' library(plyr) +#' +#' data(AndradeTb2.6) +#' str(AndradeTb2.6) +#' +#' tb <- xtabs(~H+P, data= AndradeTb2.6) +#' +#' barplot(t(tb), names.arg = c("Prostrado", "Trepador"), +#' beside=TRUE, +#' space = c(0.2,1), +#' col = c("darkturquoise","lawngreen","blue"), +#' ylim = c(0, 30)) +#' +#' legend("topleft", +#' legend = c("Eb", "Pr", "Tr"), +#' col = c("darkturquoise", "lawngreen","blue"), +#' pch = 8) +#' +NULL \ No newline at end of file diff --git a/data-raw/AndradeTb2.6.txt b/data-raw/AndradeTb2.6.txt new file mode 100644 index 00000000..1f4c3727 --- /dev/null +++ b/data-raw/AndradeTb2.6.txt @@ -0,0 +1,51 @@ +H P +4 Tr +4 EB +3 Pr +4 Tr +4 Tr +4 Tr +3 Pr +3 EB +4 Tr +4 Tr +4 Tr +4 Tr +3 Pr +3 Pr +3 Pr +3 EB +4 EB +4 EB +4 Tr +4 Tr +4 Tr +4 Tr +3 Tr +4 Tr +4 Tr +4 Tr +4 Tr +4 Tr +3 Pr +4 Tr +4 Pr +4 Tr +4 Pr +3 Pr +4 Tr +3 Pr +4 Pr +3 Pr +4 Tr +4 Tr +4 Tr +3 Pr +3 Pr +3 Pr +4 Tr +4 Tr +4 Tr +4 Tr +3 Pr +4 Tr diff --git a/data/AndradeTb2.6.rda b/data/AndradeTb2.6.rda new file mode 100644 index 0000000000000000000000000000000000000000..328b1aabe7b0cbf1cf2bd671dca16c8c8c114e00 GIT binary patch literal 246 zcmZ>Y%CIzaj8qGbT)Dl6i-9rW|B?S@9t;eOvJ7SpArAKJa~m8O7#JBCH!ysbFm+#Q zXq32cQG&9`j9d|+c}rF<pTNMtz`*1x^5qf(vqMS-!zE8QfzV8qr5nXIBrItE%=$#r z%~4P+DN)UHw|A+i>#bMXfgPb*sZEJ48O#R@j(h&TSb8%^$Y7(&;}EXJe4mc{7CJed zxy01gzVo`B$r;XtA(N6E)tH*31k8@92&Y6emfU0&>^yXPz0lj5O{c3KO{n$K6}#8e z*k-&hSID08&?C7Boy=hAd$y)Z?JVoM`hq?Egt)x@A4sz(DF4_!N%K%ktM8tK004eV BUElx! literal 0 HcmV?d00001 diff --git a/man/AndradeEg2.1.Rd b/man/AndradeEg2.1.Rd index 2aa24d61..92114959 100644 --- a/man/AndradeEg2.1.Rd +++ b/man/AndradeEg2.1.Rd @@ -16,8 +16,8 @@ \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 - 1.1, pág. 37) + 2. ed. rev. e ampl. - Florianópolis: Ed. da UFSC, 2010. (Exemplo + 2.1, pág. 60) } \description{ Estudo do tipo de relacionamento entre a taxa de diff --git a/man/AndradeTb1.2.Rd b/man/AndradeTb1.2.Rd index 1d34de80..3b85fb8d 100644 --- a/man/AndradeTb1.2.Rd +++ b/man/AndradeTb1.2.Rd @@ -20,7 +20,7 @@ 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 - 1.1, pág. 37) + 1.2, pág. 40) } \description{ Experimento que tem como objetivo verificar o diff --git a/man/AndradeTb2.1.Rd b/man/AndradeTb2.1.Rd index e9747606..ee57fc30 100644 --- a/man/AndradeTb2.1.Rd +++ b/man/AndradeTb2.1.Rd @@ -31,7 +31,7 @@ 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 - 1.1, pág. 37) + 2.1, pág. 62) } \description{ Um pesquisador instalou um experimento, na região de diff --git a/man/AndradeTb2.6.Rd b/man/AndradeTb2.6.Rd new file mode 100644 index 00000000..4c192474 --- /dev/null +++ b/man/AndradeTb2.6.Rd @@ -0,0 +1,52 @@ +% Generated by roxygen2: do not edit by hand +% Please edit documentation in R/AndradeTb2.6.R +\name{AndradeTb2.6} +\alias{AndradeTb2.6} +\title{Experimento de Cultura de Feijão de Vagem} +\format{Um \code{data.frame} com 50 observações e 2 variáveis, em que + +\describe{ + +\item{\code{H}}{Fator de 2 níveis qualitativos que são os hábitos de + crescimento, sendo: 3 = "indeterminado trepador"; 4 = + "indeterminado prostrado".} + +\item{\code{P}}{Fator de 3 níveis qualitativos que são os portes, + sendo: Tr = "trepador"; EB = "ereto na base"; Pr = "prostrado".} + +}} +\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.6, pág. 74) +} +\description{ +Experimento no qual um pesquisador está procurando + verificar se existe associação entre hábito de crescimento e + porte na cultura de feijão de vagem. +} +\examples{ + +library(lattice) +library(plyr) + +data(AndradeTb2.6) +str(AndradeTb2.6) + +tb <- xtabs(~H+P, data= AndradeTb2.6) + +barplot(t(tb), names.arg = c("Prostrado", "Trepador"), + beside=TRUE, + space = c(0.2,1), + col = c("darkturquoise","lawngreen","blue"), + ylim = c(0, 30)) + +legend("topleft", + legend = c("Eb", "Pr", "Tr"), + col = c("darkturquoise", "lawngreen","blue"), + pch = 8) + +} +\keyword{AAS} + -- GitLab