From 93f9e4d477743d90c25e0356dc6f2c09f5de63ea Mon Sep 17 00:00:00 2001
From: Bruno Geronymo <geronymobruno@hotmail.com>
Date: Fri, 7 Oct 2016 17:33:30 -0300
Subject: [PATCH 01/13] Adiciona Tabela 48 (AndradeEx7.15).
---
R/AndradeEx7.15.R | 32 +++++++++++++++++++++++++++++
data-raw/AndradeEx7.15.txt | 30 ++++++++++++++++++++++++++++
data/AndradeEx7.15.rda | Bin 0 -> 264 bytes
man/AndradeEx7.15.Rd | 40 +++++++++++++++++++++++++++++++++++++
4 files changed, 102 insertions(+)
create mode 100644 R/AndradeEx7.15.R
create mode 100644 data-raw/AndradeEx7.15.txt
create mode 100644 data/AndradeEx7.15.rda
create mode 100644 man/AndradeEx7.15.Rd
diff --git a/R/AndradeEx7.15.R b/R/AndradeEx7.15.R
new file mode 100644
index 00000000..337fd984
--- /dev/null
+++ b/R/AndradeEx7.15.R
@@ -0,0 +1,32 @@
+#' @name AndradeEx7.15
+#' @title DAP de Forófitos Possuidores de \emph{Vriesea incurvata}
+#' @description Estudo sobre os valores de DAP (Diâmetro à Altura do
+#' Peito), em cm, de uma amostra piloto de forófitos possuidores de
+#' \emph{Vriesea incurvata} (bromélia, conhecida como espada de
+#' Davi), em vegetação primária da Floresta Tropical Atlântica, em
+#' Santo Amaro da Imperatriz, SC.
+#' @format Um \code{vector} numérico com 30 observações.
+#' @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. (Capítulo
+#' 7, Exercício 15, pág. 346)
+#' @examples
+#'
+#' library(lattice)
+#'
+#' data(AndradeEx7.15)
+#' str(AndradeEx7.15)
+#'
+#' hist(AndradeEx7.15,
+#' prob = TRUE,
+#' labels = TRUE,
+#' main = NULL,
+#' ylim = c(0, 0.07),
+#' col = "darkturquoise",
+#' xlab = "DAP (cm)",
+#' ylab = "Densidade")
+#'
+#' lines(density(AndradeEx7.15), lwd = 2)
+#'
+NULL
\ No newline at end of file
diff --git a/data-raw/AndradeEx7.15.txt b/data-raw/AndradeEx7.15.txt
new file mode 100644
index 00000000..b75e9b65
--- /dev/null
+++ b/data-raw/AndradeEx7.15.txt
@@ -0,0 +1,30 @@
+10.02
+11.7
+13.92
+14.63
+4.75
+7.54
+12.3
+7.8
+2.66
+6.13
+9.2
+9.9
+14.2
+2.27
+6.4
+9.93
+4.6
+22.2
+12.65
+33.6
+7.2
+8.9
+16.9
+3.6
+10.75
+18
+6
+4.15
+31.8
+33
diff --git a/data/AndradeEx7.15.rda b/data/AndradeEx7.15.rda
new file mode 100644
index 0000000000000000000000000000000000000000..a6fb47ee7acc60b64f34851d889f90383221ed38
GIT binary patch
literal 264
zcmZ>Y%CIzaj8qGbJh8{5gn=Qv{{KJonACmmtDC+ZF>q053<z*yXfWVlWN?sRV`x$2
zU}7|2*tsDyfPsNct$~5z0x#Pvey6H=0bR4R8gd;>E@Vz%IB~&HlGj8^az%=iQkGGM
z2?GNI;{pb@28LT#%_hC{nW>j^wPAwG$;n$3Y>nRRGMO(FAv8&E)hSO7gF~+w7N2!K
z(6*FWug#H9p&_Y$ZpsGUxsPiuX!UMeuEwary11Lu;<dqVB_<6|yO;&i>T<>`T#}L1
z`|4XwO6D1`*v%;x6s*gfcc->eu&(68W(_0miHvWzeGoi+Q;5BYh2P*<>E)9w*ROPB
UI%P6^|5&aP+{($*ec0Ur08{B=Z~y=R
literal 0
HcmV?d00001
diff --git a/man/AndradeEx7.15.Rd b/man/AndradeEx7.15.Rd
new file mode 100644
index 00000000..a3944030
--- /dev/null
+++ b/man/AndradeEx7.15.Rd
@@ -0,0 +1,40 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/AndradeEx7.15.R
+\name{AndradeEx7.15}
+\alias{AndradeEx7.15}
+\title{DAP de Forófitos Possuidores de \emph{Vriesea incurvata}}
+\format{Um \code{vector} numérico com 30 observações.}
+\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. (Capítulo
+ 7, Exercício 15, pág. 346)
+}
+\description{
+Estudo sobre os valores de DAP (Diâmetro à Altura do
+ Peito), em cm, de uma amostra piloto de forófitos possuidores de
+ \emph{Vriesea incurvata} (bromélia, conhecida como espada de
+ Davi), em vegetação primária da Floresta Tropical Atlântica, em
+ Santo Amaro da Imperatriz, SC.
+}
+\examples{
+
+library(lattice)
+
+data(AndradeEx7.15)
+str(AndradeEx7.15)
+
+hist(AndradeEx7.15,
+ prob = TRUE,
+ labels = TRUE,
+ main = NULL,
+ ylim = c(0, 0.07),
+ col = "darkturquoise",
+ xlab = "DAP (cm)",
+ ylab = "Densidade")
+
+lines(density(AndradeEx7.15), lwd = 2)
+
+}
+\keyword{AAS}
+
--
GitLab
From 0d062c52acc27915eb04b8354dc3428e53dcca5d Mon Sep 17 00:00:00 2001
From: Bruno Geronymo <geronymobruno@hotmail.com>
Date: Fri, 7 Oct 2016 18:55:58 -0300
Subject: [PATCH 02/13] Adiciona Tabela 49 (AndradeTb8.6).
---
R/AndradeTb8.6.R | 49 ++++++++++++++++++++++++++++++++
data-raw/AndradeTb8.6.txt | 5 ++++
data/AndradeTb8.6.rda | Bin 0 -> 242 bytes
man/AndradeTb8.6.Rd | 57 ++++++++++++++++++++++++++++++++++++++
4 files changed, 111 insertions(+)
create mode 100644 R/AndradeTb8.6.R
create mode 100644 data-raw/AndradeTb8.6.txt
create mode 100644 data/AndradeTb8.6.rda
create mode 100644 man/AndradeTb8.6.Rd
diff --git a/R/AndradeTb8.6.R b/R/AndradeTb8.6.R
new file mode 100644
index 00000000..ca7a2bc7
--- /dev/null
+++ b/R/AndradeTb8.6.R
@@ -0,0 +1,49 @@
+#' @name AndradeTb8.6
+#' @title Experimento de Avaliação de Classes Fenotípicas de Plantas
+#' Dihíbridas
+#' @description Na descendência obtida de cruzamentos entre plantas
+#' puras de ervilhas com sementes amarelas lisas e outras de
+#' sementes verdes rugosas, obtemos na primeira geração (F1),
+#' ervilhas amarelas lisas. Estas, por autofecundação, produzem, na
+#' segunda geração (F2), ervilhas de quatro tipos: amarelas lisas,
+#' verdes lisas, amarelas rugosas e verdes rugosas. Esse tipo de
+#' experimento avalia se o padrão de segregação dos caracteres
+#' envolvidos segue aquele proposto pela segunda lei de Mendel (lei
+#' da segregação independente), que diz que as proporções esperadas
+#' para esses tipos de ervilhas são: 9/16, 3/16, 3/16 e 1/16,
+#' respectivamente.
+#' @format Um \code{data.frame} com 4 observações e 3 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{textura}}{Fator de 2 níveis qualitativos, que são as
+#' texturas das ervilhas.}
+#'
+#' \item{\code{cor}}{Fator de 2 níveis qualitativos, que são as cores
+#' das ervilhas.}
+#'
+#' \item{\code{freq}}{Frequência absoluta de cada tipo de ervilha.}
+#'
+#' }
+#' @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
+#' 8.6, pág. 372)
+#' @examples
+#'
+#' library(lattice)
+#'
+#' data(AndradeTb8.6)
+#' str(AndradeTb8.6)
+#'
+#' xyplot(freq ~ cor,
+#' groups = textura,
+#' data = AndradeTb8.6,
+#' auto.key = list(title = "Textura",
+#' cex.title = 1.1,
+#' columns = 2),
+#' xlab = "Cor",
+#' ylab = "Frequência")
+#'
+NULL
\ No newline at end of file
diff --git a/data-raw/AndradeTb8.6.txt b/data-raw/AndradeTb8.6.txt
new file mode 100644
index 00000000..ccc446dd
--- /dev/null
+++ b/data-raw/AndradeTb8.6.txt
@@ -0,0 +1,5 @@
+textura cor freq
+Lisa Amarela 315
+Lisa Verde 108
+Rugosa Amarela 101
+Rugosa Verde 32
diff --git a/data/AndradeTb8.6.rda b/data/AndradeTb8.6.rda
new file mode 100644
index 0000000000000000000000000000000000000000..0f21ea0a2ebf86d37745024294f71f8ab8a2b1f4
GIT binary patch
literal 242
zcmZ>Y%CIzaj8qGb)Lpr16$8V@`UC&Bc`!II3VNuph&tFW-+#b?fq``c!;J}7<(4fw
zYU8>1QbwX#0NczZU)h-5oE=-39ZW7Ta0+Vpq)IN7=wZp6khqj%YQV7v`7BezMZNYj
z#r(d_yM2FO{q5M-IjqS{$HI$!E@ZcLuA3<TNg-~H#)a6fMa@|SPCF(fdYVksaZ%iI
zV6keG_wx`<DZjXko*xxqd~aR-v+rN~^<LMIO+aA2PH4Wukx9ANCayAilCaC1+x)oc
zb>=B%CuS`Ru$!{T$Z(I(rgPa+9-W70*jr7hw2Q56PBijwELRC`<z%`wYt;e(<0NGi
literal 0
HcmV?d00001
diff --git a/man/AndradeTb8.6.Rd b/man/AndradeTb8.6.Rd
new file mode 100644
index 00000000..022518e4
--- /dev/null
+++ b/man/AndradeTb8.6.Rd
@@ -0,0 +1,57 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/AndradeTb8.6.R
+\name{AndradeTb8.6}
+\alias{AndradeTb8.6}
+\title{Experimento de Avaliação de Classes Fenotípicas de Plantas
+ Dihíbridas}
+\format{Um \code{data.frame} com 4 observações e 3 variáveis, em que
+
+\describe{
+
+\item{\code{textura}}{Fator de 2 níveis qualitativos, que são as
+ texturas das ervilhas.}
+
+\item{\code{cor}}{Fator de 2 níveis qualitativos, que são as cores
+ das ervilhas.}
+
+\item{\code{freq}}{Frequência absoluta de cada tipo de ervilha.}
+
+}}
+\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
+ 8.6, pág. 372)
+}
+\description{
+Na descendência obtida de cruzamentos entre plantas
+ puras de ervilhas com sementes amarelas lisas e outras de
+ sementes verdes rugosas, obtemos na primeira geração (F1),
+ ervilhas amarelas lisas. Estas, por autofecundação, produzem, na
+ segunda geração (F2), ervilhas de quatro tipos: amarelas lisas,
+ verdes lisas, amarelas rugosas e verdes rugosas. Esse tipo de
+ experimento avalia se o padrão de segregação dos caracteres
+ envolvidos segue aquele proposto pela segunda lei de Mendel (lei
+ da segregação independente), que diz que as proporções esperadas
+ para esses tipos de ervilhas são: 9/16, 3/16, 3/16 e 1/16,
+ respectivamente.
+}
+\examples{
+
+library(lattice)
+
+data(AndradeTb8.6)
+str(AndradeTb8.6)
+
+xyplot(freq ~ cor,
+ groups = textura,
+ data = AndradeTb8.6,
+ auto.key = list(title = "Textura",
+ cex.title = 1.1,
+ columns = 2),
+ xlab = "Cor",
+ ylab = "Frequência")
+
+}
+\keyword{AAS}
+
--
GitLab
From 75ac5d392d943dd9525954ee0bb96c896e0de7db Mon Sep 17 00:00:00 2001
From: Bruno Geronymo <geronymobruno@hotmail.com>
Date: Mon, 10 Oct 2016 15:01:00 -0300
Subject: [PATCH 03/13] =?UTF-8?q?Corrige=20se=C3=A7=C3=A3o=20'source'=20da?=
=?UTF-8?q?s=20Tabelas=2048=20e=2049?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit
---
R/AndradeEx7.15.R | 8 ++++----
R/AndradeTb8.6.R | 7 +++----
man/AndradeEx7.15.Rd | 8 ++++----
man/AndradeTb8.6.Rd | 7 +++----
4 files changed, 14 insertions(+), 16 deletions(-)
diff --git a/R/AndradeEx7.15.R b/R/AndradeEx7.15.R
index 337fd984..2ec950d8 100644
--- a/R/AndradeEx7.15.R
+++ b/R/AndradeEx7.15.R
@@ -7,10 +7,10 @@
#' Santo Amaro da Imperatriz, SC.
#' @format Um \code{vector} numérico com 30 observações.
#' @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. (Capítulo
-#' 7, Exercício 15, pág. 346)
+#' @source Andrade, D. F., Ogliari, P. J. (2010). Estatística para as
+#' ciências agrárias e biológicas com noções de experimentação (2nd
+#' ed.). Florianópolis, SC. Editora da UFSC. (Capítulo 7, Exercício
+#' 15, pág. 346)
#' @examples
#'
#' library(lattice)
diff --git a/R/AndradeTb8.6.R b/R/AndradeTb8.6.R
index ca7a2bc7..337e930a 100644
--- a/R/AndradeTb8.6.R
+++ b/R/AndradeTb8.6.R
@@ -26,10 +26,9 @@
#'
#' }
#' @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
-#' 8.6, pág. 372)
+#' @source Andrade, D. F., Ogliari, P. J. (2010). Estatística para as
+#' ciências agrárias e biológicas com noções de experimentação (2nd
+#' ed.). Florianópolis, SC. Editora da UFSC. (Tabela 8.6, pág. 372)
#' @examples
#'
#' library(lattice)
diff --git a/man/AndradeEx7.15.Rd b/man/AndradeEx7.15.Rd
index a3944030..af011b7e 100644
--- a/man/AndradeEx7.15.Rd
+++ b/man/AndradeEx7.15.Rd
@@ -5,10 +5,10 @@
\title{DAP de Forófitos Possuidores de \emph{Vriesea incurvata}}
\format{Um \code{vector} numérico com 30 observações.}
\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. (Capítulo
- 7, Exercício 15, pág. 346)
+Andrade, D. F., Ogliari, P. J. (2010). Estatística para as
+ ciências agrárias e biológicas com noções de experimentação (2nd
+ ed.). Florianópolis, SC. Editora da UFSC. (Capítulo 7, Exercício
+ 15, pág. 346)
}
\description{
Estudo sobre os valores de DAP (Diâmetro à Altura do
diff --git a/man/AndradeTb8.6.Rd b/man/AndradeTb8.6.Rd
index 022518e4..90bef0f5 100644
--- a/man/AndradeTb8.6.Rd
+++ b/man/AndradeTb8.6.Rd
@@ -18,10 +18,9 @@
}}
\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
- 8.6, pág. 372)
+Andrade, D. F., Ogliari, P. J. (2010). Estatística para as
+ ciências agrárias e biológicas com noções de experimentação (2nd
+ ed.). Florianópolis, SC. Editora da UFSC. (Tabela 8.6, pág. 372)
}
\description{
Na descendência obtida de cruzamentos entre plantas
--
GitLab
From adee638193e0e9e8227530dc13b5fc508f96219e Mon Sep 17 00:00:00 2001
From: Bruno Geronymo <geronymobruno@hotmail.com>
Date: Mon, 10 Oct 2016 15:01:44 -0300
Subject: [PATCH 04/13] Adiciona Tabela 50 (AndradeTb8.7)
---
R/AndradeTb8.7.R | 34 ++++++++++++++++++++++++++++++
data-raw/AndradeTb8.7.txt | 11 ++++++++++
data/AndradeTb8.7.rda | Bin 0 -> 263 bytes
man/AndradeTb8.7.Rd | 42 ++++++++++++++++++++++++++++++++++++++
4 files changed, 87 insertions(+)
create mode 100644 R/AndradeTb8.7.R
create mode 100644 data-raw/AndradeTb8.7.txt
create mode 100644 data/AndradeTb8.7.rda
create mode 100644 man/AndradeTb8.7.Rd
diff --git a/R/AndradeTb8.7.R b/R/AndradeTb8.7.R
new file mode 100644
index 00000000..4c3cba29
--- /dev/null
+++ b/R/AndradeTb8.7.R
@@ -0,0 +1,34 @@
+#' @name AndradeTb8.7
+#' @title Número de Árvores por Quadrante de \emph{Guapira opposita}
+#' @description Estudo sobre o número de árvores por quadrante da
+#' espécie \emph{Guapira opposita}, realizado com o objetivo de
+#' verificar a distribuição espacial dessa espécie num local de
+#' restinga. Foi utilizado um total de 94 quadrantes e contou-se o
+#' número de quadrantes com zero árvores, uma árvore, duas árvores,
+#' e assim por diante.
+#' @format Um \code{data.frame} com 10 observações e 2 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{arvores}}{Fator de 10 níveis qualitativos, que representa
+#' o número de árvores por quadrante.}
+#'
+#' \item{\code{quadr}}{Número de quandrantes com X árvores.}
+#'
+#' }
+#' @keywords DBC
+#' @source Andrade, D. F., Ogliari, P. J. (2010). Estatística para as
+#' ciências agrárias e biológicas com noções de experimentação (2nd
+#' ed.). Florianópolis, SC. Editora da UFSC. (Tabela 8.7, pág. 374)
+#' @examples
+#'
+#' data(AndradeTb8.7)
+#' str(AndradeTb8.7)
+#'
+#' barplot(AndradeTb8.7$quadr,
+#' col = "darkturquoise",
+#' names.arg = AndradeTb8.7$arvores,
+#' xlab = "Número de Árvores",
+#' ylab = "Número de Quadrandres")
+#'
+NULL
\ No newline at end of file
diff --git a/data-raw/AndradeTb8.7.txt b/data-raw/AndradeTb8.7.txt
new file mode 100644
index 00000000..0ee97667
--- /dev/null
+++ b/data-raw/AndradeTb8.7.txt
@@ -0,0 +1,11 @@
+arvores quadr
+0 6
+1 18
+2 23
+3 19
+4 11
+5 6
+6 5
+7 4
+8 1
+>8 1
diff --git a/data/AndradeTb8.7.rda b/data/AndradeTb8.7.rda
new file mode 100644
index 0000000000000000000000000000000000000000..34929f63576975092b3e33acc1f899c881a2f8b3
GIT binary patch
literal 263
zcmZ>Y%CIzaj8qGbOuafel7ZoT{el1AeH<7W>kmF*5OJ_)-{0WC;K;av;hLG!@+l{K
zIU5b!npslLaxOc>wydkFEi3a?u0Te@3}FYJSq2_cuDCC%^fj?rkdWaYV8mb_a=Cg<
zb>WYLQ@eNtloA^*Zqz*Su;Kd5M5#&X9tQJj-U^pFzW?*={LE7|E0||p7cZ&0=q;cf
zp`&AvdG+?}*xTCcC!9JpYX$R8h8ssDXRs*tE?MfL5MrY6IcwRH_lW``zx)N&j|=eq
z_)w!I+M}nRw`!_XxksPaj9b&(TDaw>9cD6|(jooi!D5fvNgC4*F+RGrLUj_;2dB*+
W4pc3<GDlvpTqU@blPxyVbOHdL@p94t
literal 0
HcmV?d00001
diff --git a/man/AndradeTb8.7.Rd b/man/AndradeTb8.7.Rd
new file mode 100644
index 00000000..3e938168
--- /dev/null
+++ b/man/AndradeTb8.7.Rd
@@ -0,0 +1,42 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/AndradeTb8.7.R
+\name{AndradeTb8.7}
+\alias{AndradeTb8.7}
+\title{Número de Árvores por Quadrante de \emph{Guapira opposita}}
+\format{Um \code{data.frame} com 10 observações e 2 variáveis, em que
+
+\describe{
+
+\item{\code{arvores}}{Fator de 10 níveis qualitativos, que representa
+ o número de árvores por quadrante.}
+
+\item{\code{quadr}}{Número de quandrantes com X árvores.}
+
+}}
+\source{
+Andrade, D. F., Ogliari, P. J. (2010). Estatística para as
+ ciências agrárias e biológicas com noções de experimentação (2nd
+ ed.). Florianópolis, SC. Editora da UFSC. (Tabela 8.7, pág. 374)
+}
+\description{
+Estudo sobre o número de árvores por quadrante da
+ espécie \emph{Guapira opposita}, realizado com o objetivo de
+ verificar a distribuição espacial dessa espécie num local de
+ restinga. Foi utilizado um total de 94 quadrantes e contou-se o
+ número de quadrantes com zero árvores, uma árvore, duas árvores,
+ e assim por diante.
+}
+\examples{
+
+data(AndradeTb8.7)
+str(AndradeTb8.7)
+
+barplot(AndradeTb8.7$quadr,
+ col = "darkturquoise",
+ names.arg = AndradeTb8.7$arvores,
+ xlab = "Número de Árvores",
+ ylab = "Número de Quadrandres")
+
+}
+\keyword{DBC}
+
--
GitLab
From 7cf973ad63edf57ab2bb33938b08290fd0291f50 Mon Sep 17 00:00:00 2001
From: Bruno Geronymo <geronymobruno@hotmail.com>
Date: Mon, 10 Oct 2016 16:10:44 -0300
Subject: [PATCH 05/13] Adiciona Tabela 51 (AndradeEx8.9).
---
R/AndradeEx8.9.R | 42 ++++++++++++++++++++++++++++++++
data-raw/AndradeEx8.9.txt | 35 ++++++++++++++++++++++++++
data/AndradeEx8.9.rda | Bin 0 -> 386 bytes
man/AndradeEx8.9.Rd | 50 ++++++++++++++++++++++++++++++++++++++
4 files changed, 127 insertions(+)
create mode 100644 R/AndradeEx8.9.R
create mode 100644 data-raw/AndradeEx8.9.txt
create mode 100644 data/AndradeEx8.9.rda
create mode 100644 man/AndradeEx8.9.Rd
diff --git a/R/AndradeEx8.9.R b/R/AndradeEx8.9.R
new file mode 100644
index 00000000..f36fcd07
--- /dev/null
+++ b/R/AndradeEx8.9.R
@@ -0,0 +1,42 @@
+#' @name AndradeEx8.9
+#' @title Estudo da Quantidade de Proteínas após Operação
+#' @description Estudo sobre a possibilidade da quantidade de proteínas
+#' totais no plasma, depois de determinada operação em portadores de
+#' esquistossomose mansônica, ser diferente da quantidade de antes
+#' da operação.
+#' @format Um \code{data.frame} com 17 observações e 3 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{paciente}}{Fator de 17 níveis qualitativos, que são
+#' os pacientes sujeitos a operação.}
+#'
+#' \item{\code{periodo}}{Fator de 2 níveis qualitativos, que indica
+#' o período (antes ou depois) em que foi coletada a quantidade de
+#' proteínas totais no plasma.}
+#'
+#' \item{\code{prot}}{Quantidade de proteínas totais no plasma.}
+#'
+#' }
+#' @keywords AAS
+#' @source Andrade, D. F., Ogliari, P. J. (2010). Estatística para as
+#' ciências agrárias e biológicas com noções de experimentação (2nd
+#' ed.). Florianópolis, SC. Editora da UFSC. (Capítulo 8, Exercício
+#' 9, pág. 408)
+#' @examples
+#'
+#' data(AndradeEx8.9)
+#' str(AndradeEx8.9)
+#'
+#' library(lattice)
+#' dotplot(jitter(prot) ~ paciente,
+#' groups = periodo,
+#' auto.key = list(title = "Período",
+#' cex.title = 1.1,
+#' columns = 2),
+#' type = "o",
+#' data = AndradeEx8.9,
+#' xlab = "Paciente",
+#' ylab = "Quantidade de Proteínas Totais no Plasma")
+#'
+NULL
\ No newline at end of file
diff --git a/data-raw/AndradeEx8.9.txt b/data-raw/AndradeEx8.9.txt
new file mode 100644
index 00000000..b65b9289
--- /dev/null
+++ b/data-raw/AndradeEx8.9.txt
@@ -0,0 +1,35 @@
+paciente periodo prot
+1 antes 6.9
+2 antes 7.8
+3 antes 6.6
+4 antes 5.9
+5 antes 7.8
+6 antes 6.4
+7 antes 8.8
+8 antes 7.3
+9 antes 8
+10 antes 8.6
+11 antes 7.7
+12 antes 7.9
+13 antes 8.7
+14 antes 5.8
+15 antes 9.2
+16 antes 9.3
+17 antes 8.9
+1 depois 6.9
+2 depois 8.6
+3 depois 8.7
+4 depois 7.3
+5 depois 7.8
+6 depois 8.2
+7 depois 9.3
+8 depois 7.3
+9 depois 7.6
+10 depois 7.8
+11 depois 7.6
+12 depois 7.8
+13 depois 8.1
+14 depois 6.8
+15 depois 8.3
+16 depois 10.2
+17 depois 9.1
diff --git a/data/AndradeEx8.9.rda b/data/AndradeEx8.9.rda
new file mode 100644
index 0000000000000000000000000000000000000000..1204b570f4923c6ce6b5fa90aa3c08dbb351a872
GIT binary patch
literal 386
zcmZ>Y%CIzaj8qGb)M!pKWnkQ0|Lp(&7rVbO);~yN5OB~}zk9%efx&=*je(JYaRXzd
z6U!1I|15w1AbydIuSUGgC$3yL#31LpO6Ib#ny-Y9u&@tPg1|uu!3K{hvwRl|d%j9x
zU|?L3B9*z|vf8yL4SYMjj+r}gCaN6w?PiGDtGQP9Xj<VaHj%y;uO$59lvPvJx}VLA
z_<B5OllOG#tv?$TIIr-`+SY5le)8KjH4+U<0ZUx6Ch7-=<$V2-aIxKauE}NJSzTVU
z4#sF75?4?;W-?((2G0u<F+qjKRSIH3!kN7S4>vL0HkD$Cd$V%Egam#mp~h|EpVIf2
z-eyv|<MK%GcE{o85)Yb1<^}uQPPX5>s3qp|GPlc8Z5`4QHkR9~YW}U-tr%JOcH5nv
zz}k3`cd;r3P4@*w`k8(#;LCp+5k0M^V18@$j%D6=!c8}wHCfU+?fB!ClDDPZSJp&`
teb;IVT-z3#(NuWR*Db@fZwYUc`=!Hq8*bP(+aJ9%(N9E$OW|g(0|28#rWgPK
literal 0
HcmV?d00001
diff --git a/man/AndradeEx8.9.Rd b/man/AndradeEx8.9.Rd
new file mode 100644
index 00000000..87ab8603
--- /dev/null
+++ b/man/AndradeEx8.9.Rd
@@ -0,0 +1,50 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/AndradeEx8.9.R
+\name{AndradeEx8.9}
+\alias{AndradeEx8.9}
+\title{Estudo da Quantidade de Proteínas após Operação}
+\format{Um \code{data.frame} com 17 observações e 3 variáveis, em que
+
+\describe{
+
+\item{\code{paciente}}{Fator de 17 níveis qualitativos, que são
+ os pacientes sujeitos a operação.}
+
+\item{\code{periodo}}{Fator de 2 níveis qualitativos, que indica
+ o período (antes ou depois) em que foi coletada a quantidade de
+ proteínas totais no plasma.}
+
+\item{\code{prot}}{Quantidade de proteínas totais no plasma.}
+
+}}
+\source{
+Andrade, D. F., Ogliari, P. J. (2010). Estatística para as
+ ciências agrárias e biológicas com noções de experimentação (2nd
+ ed.). Florianópolis, SC. Editora da UFSC. (Capítulo 8, Exercício
+ 9, pág. 408)
+}
+\description{
+Estudo sobre a possibilidade da quantidade de proteínas
+ totais no plasma, depois de determinada operação em portadores de
+ esquistossomose mansônica, ser diferente da quantidade de antes
+ da operação.
+}
+\examples{
+
+data(AndradeEx8.9)
+str(AndradeEx8.9)
+
+library(lattice)
+dotplot(jitter(prot) ~ paciente,
+ groups = periodo,
+ auto.key = list(title = "Período",
+ cex.title = 1.1,
+ columns = 2),
+ type = "o",
+ data = AndradeEx8.9,
+ xlab = "Paciente",
+ ylab = "Quantidade de Proteínas Totais no Plasma")
+
+}
+\keyword{AAS}
+
--
GitLab
From d87314684b9634f132ab0acc2659f042a37e397a Mon Sep 17 00:00:00 2001
From: Bruno Geronymo <geronymobruno@hotmail.com>
Date: Mon, 10 Oct 2016 16:26:10 -0300
Subject: [PATCH 06/13] =?UTF-8?q?Corrige=20a=20se=C3=A7=C3=A3o=20'format'?=
=?UTF-8?q?=20da=20Tabela=2051.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit
---
R/AndradeEx8.9.R | 2 +-
man/AndradeEx8.9.Rd | 2 +-
2 files changed, 2 insertions(+), 2 deletions(-)
diff --git a/R/AndradeEx8.9.R b/R/AndradeEx8.9.R
index f36fcd07..9b4eb017 100644
--- a/R/AndradeEx8.9.R
+++ b/R/AndradeEx8.9.R
@@ -4,7 +4,7 @@
#' totais no plasma, depois de determinada operação em portadores de
#' esquistossomose mansônica, ser diferente da quantidade de antes
#' da operação.
-#' @format Um \code{data.frame} com 17 observações e 3 variáveis, em que
+#' @format Um \code{data.frame} com 34 observações e 3 variáveis, em que
#'
#' \describe{
#'
diff --git a/man/AndradeEx8.9.Rd b/man/AndradeEx8.9.Rd
index 87ab8603..84f9223d 100644
--- a/man/AndradeEx8.9.Rd
+++ b/man/AndradeEx8.9.Rd
@@ -3,7 +3,7 @@
\name{AndradeEx8.9}
\alias{AndradeEx8.9}
\title{Estudo da Quantidade de Proteínas após Operação}
-\format{Um \code{data.frame} com 17 observações e 3 variáveis, em que
+\format{Um \code{data.frame} com 34 observações e 3 variáveis, em que
\describe{
--
GitLab
From 9ebac38d86eaa5874e92f82861dcd8747305e813 Mon Sep 17 00:00:00 2001
From: Bruno Geronymo <geronymobruno@hotmail.com>
Date: Mon, 10 Oct 2016 16:26:54 -0300
Subject: [PATCH 07/13] Adiciona Tabela 52 (AndradeEx8.11).
---
R/AndradeEx8.11.R | 41 +++++++++++++++++++++++++++++++
data-raw/AndradeEx8.11.txt | 31 +++++++++++++++++++++++
data/AndradeEx8.11.rda | Bin 0 -> 393 bytes
man/AndradeEx8.11.Rd | 49 +++++++++++++++++++++++++++++++++++++
4 files changed, 121 insertions(+)
create mode 100644 R/AndradeEx8.11.R
create mode 100644 data-raw/AndradeEx8.11.txt
create mode 100644 data/AndradeEx8.11.rda
create mode 100644 man/AndradeEx8.11.Rd
diff --git a/R/AndradeEx8.11.R b/R/AndradeEx8.11.R
new file mode 100644
index 00000000..81fee5b7
--- /dev/null
+++ b/R/AndradeEx8.11.R
@@ -0,0 +1,41 @@
+#' @name AndradeEx8.11
+#' @title Comparação entre o Peso Vivo e o Peso Jejum do Gado Crioulo
+#' Lageano
+#' @description Para comparar o peso vivo e o peso jejum do gado crioulo
+#' lageano, um pesquisador selecionou aleatoriamente uma amostra de
+#' 15 animais e anotou seus pesos.
+#' @format Um \code{data.frame} com 30 observações e 3 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{animal}}{Fator de 15 níveis qualitativos, que são
+#' os animais.}
+#'
+#' \item{\code{estado}}{Fator de 2 níveis qualitativos, que indica
+#' o estado (vivo ou jejum) em que o animal foi pesado.}
+#'
+#' \item{\code{peso}}{Peso do animais, em kg.}
+#'
+#' }
+#' @keywords AAS
+#' @source Andrade, D. F., Ogliari, P. J. (2010). Estatística para as
+#' ciências agrárias e biológicas com noções de experimentação (2nd
+#' ed.). Florianópolis, SC. Editora da UFSC. (Capítulo 8, Exercício
+#' 11, pág. 409)
+#' @examples
+#'
+#' data(AndradeEx8.11)
+#' str(AndradeEx8.11)
+#'
+#' library(lattice)
+#' dotplot(jitter(peso) ~ animal,
+#' groups = estado,
+#' auto.key = list(title = "Estado",
+#' cex.title = 1.1,
+#' columns = 2),
+#' type = "o",
+#' data = AndradeEx8.11,
+#' xlab = "Animal",
+#' ylab = "Peso (kg)")
+#'
+NULL
\ No newline at end of file
diff --git a/data-raw/AndradeEx8.11.txt b/data-raw/AndradeEx8.11.txt
new file mode 100644
index 00000000..09c38487
--- /dev/null
+++ b/data-raw/AndradeEx8.11.txt
@@ -0,0 +1,31 @@
+animal estado peso
+1 vivo 498
+2 vivo 510
+3 vivo 540
+4 vivo 580
+5 vivo 440
+6 vivo 350
+7 vivo 595
+8 vivo 513
+9 vivo 398
+10 vivo 410
+11 vivo 450
+12 vivo 495
+13 vivo 508
+14 vivo 515
+15 vivo 560
+1 jejum 453
+2 jejum 466
+3 jejum 491
+4 jejum 480
+5 jejum 405
+6 jejum 315
+7 jejum 557
+8 jejum 477
+9 jejum 353
+10 jejum 380
+11 jejum 412
+12 jejum 453
+13 jejum 462
+14 jejum 477
+15 jejum 505
diff --git a/data/AndradeEx8.11.rda b/data/AndradeEx8.11.rda
new file mode 100644
index 0000000000000000000000000000000000000000..4538da2ac449329df083aff150992d3aa644f6d1
GIT binary patch
literal 393
zcmZ>Y%CIzaj8qGb-0EQVkAZRB|NsC0pKx?wtbdTk5a6I+e*gUk1_uWR1_%sbaA4fP
zsO!2=qebONRlkOG;Ib=U?L&Btj2IXvWNtF$Sox~TZFaDNtq*4hgUN*xCnQazq>@;=
z+=8ll=1r(-R&!urcHrd?V7O4{^Xc}o*)wm7Hp`eCiM()Xt76-0o~xcpoVL$QrUZti
za5ZXhda2&@2-=@;rRSHH>%rBF-6mG-@e%WWe&q3DlMC)KUYZPV=6MT0b#O78$~(Q-
zqOd7{+L=?gS{RL;CNr5?SX6BM@zb&(VNsXHvR#>#r3WHC#16C^Ghv$Bsl<`MYpAg)
zO@+5p)P(WYX&ugE(>IGKv;OTCe;fMuN_5G?j9J+Q%}K3Z%2Qd6EaE@)SFr!^v^B@A
z^^GQPZ~wjTVWvlpqc1b3ha=PdK9f)Lbsf*!YO$Cl?(tS-dYQrF-CNue7%FnbXB+2^
wrYqC#E)8Vbdwr|WKQ6n)FLETj|Mb3^f9;&YF}H{NAHDNf&Lt$ag6;kR0B?Dx(f|Me
literal 0
HcmV?d00001
diff --git a/man/AndradeEx8.11.Rd b/man/AndradeEx8.11.Rd
new file mode 100644
index 00000000..c0fe89c3
--- /dev/null
+++ b/man/AndradeEx8.11.Rd
@@ -0,0 +1,49 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/AndradeEx8.11.R
+\name{AndradeEx8.11}
+\alias{AndradeEx8.11}
+\title{Comparação entre o Peso Vivo e o Peso Jejum do Gado Crioulo
+ Lageano}
+\format{Um \code{data.frame} com 30 observações e 3 variáveis, em que
+
+\describe{
+
+\item{\code{animal}}{Fator de 15 níveis qualitativos, que são
+ os animais.}
+
+\item{\code{estado}}{Fator de 2 níveis qualitativos, que indica
+ o estado (vivo ou jejum) em que o animal foi pesado.}
+
+\item{\code{peso}}{Peso do animais, em kg.}
+
+}}
+\source{
+Andrade, D. F., Ogliari, P. J. (2010). Estatística para as
+ ciências agrárias e biológicas com noções de experimentação (2nd
+ ed.). Florianópolis, SC. Editora da UFSC. (Capítulo 8, Exercício
+ 11, pág. 409)
+}
+\description{
+Para comparar o peso vivo e o peso jejum do gado crioulo
+ lageano, um pesquisador selecionou aleatoriamente uma amostra de
+ 15 animais e anotou seus pesos.
+}
+\examples{
+
+data(AndradeEx8.11)
+str(AndradeEx8.11)
+
+library(lattice)
+dotplot(jitter(peso) ~ animal,
+ groups = estado,
+ auto.key = list(title = "Estado",
+ cex.title = 1.1,
+ columns = 2),
+ type = "o",
+ data = AndradeEx8.11,
+ xlab = "Animal",
+ ylab = "Peso (kg)")
+
+}
+\keyword{AAS}
+
--
GitLab
From 2655968767ee06c6896c322a33cd6b05a3ddad52 Mon Sep 17 00:00:00 2001
From: Bruno Geronymo <geronymobruno@hotmail.com>
Date: Mon, 10 Oct 2016 16:57:43 -0300
Subject: [PATCH 08/13] Adiciona Tabela 53 (AndradeEx8.13).
---
R/AndradeEx8.13.R | 34 +++++++++++++++++++++
data-raw/AndradeEx8.13.txt | 61 +++++++++++++++++++++++++++++++++++++
data/AndradeEx8.13.rda | Bin 0 -> 402 bytes
man/AndradeEx8.13.Rd | 42 +++++++++++++++++++++++++
4 files changed, 137 insertions(+)
create mode 100644 R/AndradeEx8.13.R
create mode 100644 data-raw/AndradeEx8.13.txt
create mode 100644 data/AndradeEx8.13.rda
create mode 100644 man/AndradeEx8.13.Rd
diff --git a/R/AndradeEx8.13.R b/R/AndradeEx8.13.R
new file mode 100644
index 00000000..2b43db25
--- /dev/null
+++ b/R/AndradeEx8.13.R
@@ -0,0 +1,34 @@
+#' @name AndradeEx8.13
+#' @title Estudo do Desenvolvimento das Espécies Bracatinga e
+#' Canafístula
+#' @description Estudo, realizado por um agrônomo, sobre o
+#' desenvolvimento de duas espécies de árvores, a Bracatinga (
+#' \emph{Mimosa scabrella} e a Canafístula \emph{Peltophorum
+#' dubium}. Para essa finalidade foram coletadas duas amostras de
+#' tamanhos iguais a 30 árvores.
+#' @format Um \code{data.frame} com 60 observações e 2 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{arvores}}{Fator de 2 níveis qualitativos, que são as
+#' espécies de árvores.}
+#'
+#' \item{\code{altura}}{Altura das árvores, em metros.}
+#'
+#' }
+#' @keywords AAS
+#' @source Andrade, D. F., Ogliari, P. J. (2010). Estatística para as
+#' ciências agrárias e biológicas com noções de experimentação (2nd
+#' ed.). Florianópolis, SC. Editora da UFSC. (Capítulo 8, Exercício
+#' 13, pág. 410)
+#' @examples
+#'
+#' data(AndradeEx8.13)
+#' str(AndradeEx8.13)
+#'
+#' boxplot(altura ~ arvores,
+#' data = AndradeEx8.13,
+#' xlab = "Árvore",
+#' ylab = "Altura (m)")
+#'
+NULL
\ No newline at end of file
diff --git a/data-raw/AndradeEx8.13.txt b/data-raw/AndradeEx8.13.txt
new file mode 100644
index 00000000..00ce0e20
--- /dev/null
+++ b/data-raw/AndradeEx8.13.txt
@@ -0,0 +1,61 @@
+arvores altura
+Bracatinga 6.4
+Bracatinga 6.8
+Bracatinga 6.9
+Bracatinga 6.9
+Bracatinga 6.9
+Bracatinga 7
+Bracatinga 8.3
+Bracatinga 8.6
+Bracatinga 8.7
+Bracatinga 8.7
+Bracatinga 9
+Bracatinga 9.1
+Bracatinga 9.3
+Bracatinga 9.9
+Bracatinga 10.1
+Bracatinga 10.2
+Bracatinga 11.4
+Bracatinga 13.7
+Bracatinga 14.8
+Bracatinga 15.2
+Bracatinga 16.1
+Bracatinga 16.3
+Bracatinga 17.2
+Bracatinga 18.4
+Bracatinga 20
+Bracatinga 20.1
+Bracatinga 20.3
+Bracatinga 21.4
+Bracatinga 22.8
+Bracatinga 22.8
+Canafistula 8.2
+Canafistula 9.7
+Canafistula 9.8
+Canafistula 10.1
+Canafistula 10.1
+Canafistula 10.1
+Canafistula 10.3
+Canafistula 11.2
+Canafistula 13.2
+Canafistula 13.4
+Canafistula 14.1
+Canafistula 14.2
+Canafistula 14.4
+Canafistula 14.8
+Canafistula 15.9
+Canafistula 20.2
+Canafistula 20.3
+Canafistula 20.6
+Canafistula 29.9
+Canafistula 23.8
+Canafistula 25.7
+Canafistula 30.9
+Canafistula 35.5
+Canafistula 38.2
+Canafistula 40
+Canafistula 40.1
+Canafistula 40.2
+Canafistula 40.5
+Canafistula 41.8
+Canafistula 42.3
diff --git a/data/AndradeEx8.13.rda b/data/AndradeEx8.13.rda
new file mode 100644
index 0000000000000000000000000000000000000000..89742da642132a7a0b28af9cf8fed7b65e17fd42
GIT binary patch
literal 402
zcmZ>Y%CIzaj8qGboS32C%)prc|Ly<%9y+!1|DV^f2sr33pMSuCfx&=-!G(>Hfq`)Y
zW55bdSCKE7(x-e^F1Xdx({?3u;ete7Ba@6TMyV{VZYvisFgq}SfD}XFWVIe=UmlhV
zM=mb&aX4`(<Fb#!$+fu;A7{RQ8@*7wS+MucR0nU-2NxD3#XaQsP`~--loOwRZ`)d=
z()2m^Yl7dcumh~ouDMQcr<%PkZQ3;9!anB@3Jo6)b$Tyncj;ox={hnwV{wT}Guv$6
zlZu5&D$P4TY&yNR^FwOsWlJS_F2&x2Ymch5#d$**Zr-ia7dYs)R*^HjCWw2t_Nu=V
zmmHVsbzIKz#P`IqoK@<fL5stVoqiDTCwSReCoSE}WtK5JHYF4udM5rgt6OSo{G^t1
z(o<$I9Az-}o6d9J(Dv)q`TNhire`|`Regx6Wq&v+cSrVlzid&n%^P=yo!WI&q4L=j
zN$*?#LIgQ39GSK;di#>Mp9BtRO}cS$j)1yv(dE5WU)JYj@rH^-E<f_heV64wy(e7-
L3l)_v#IpeayUn|0
literal 0
HcmV?d00001
diff --git a/man/AndradeEx8.13.Rd b/man/AndradeEx8.13.Rd
new file mode 100644
index 00000000..2ed2bdb5
--- /dev/null
+++ b/man/AndradeEx8.13.Rd
@@ -0,0 +1,42 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/AndradeEx8.13.R
+\name{AndradeEx8.13}
+\alias{AndradeEx8.13}
+\title{Estudo do Desenvolvimento das Espécies Bracatinga e
+ Canafístula}
+\format{Um \code{data.frame} com 60 observações e 2 variáveis, em que
+
+\describe{
+
+\item{\code{arvores}}{Fator de 2 níveis qualitativos, que são as
+ espécies de árvores.}
+
+\item{\code{altura}}{Altura das árvores, em metros.}
+
+}}
+\source{
+Andrade, D. F., Ogliari, P. J. (2010). Estatística para as
+ ciências agrárias e biológicas com noções de experimentação (2nd
+ ed.). Florianópolis, SC. Editora da UFSC. (Capítulo 8, Exercício
+ 13, pág. 410)
+}
+\description{
+Estudo, realizado por um agrônomo, sobre o
+ desenvolvimento de duas espécies de árvores, a Bracatinga (
+ \emph{Mimosa scabrella} e a Canafístula \emph{Peltophorum
+ dubium}. Para essa finalidade foram coletadas duas amostras de
+ tamanhos iguais a 30 árvores.
+}
+\examples{
+
+data(AndradeEx8.13)
+str(AndradeEx8.13)
+
+boxplot(altura ~ arvores,
+ data = AndradeEx8.13,
+ xlab = "Árvore",
+ ylab = "Altura (m)")
+
+}
+\keyword{AAS}
+
--
GitLab
From 27b036962038867b63c12f95d459c6ea93d1a561 Mon Sep 17 00:00:00 2001
From: Bruno Geronymo <geronymobruno@hotmail.com>
Date: Mon, 10 Oct 2016 17:11:33 -0300
Subject: [PATCH 09/13] Adiciona Tabela 54 (AndradeEx8.23).
---
R/AndradeEx8.23.R | 35 ++++++++++++++++++++++++++++++
data-raw/AndradeEx8.23.txt | 41 +++++++++++++++++++++++++++++++++++
data/AndradeEx8.23.rda | Bin 0 -> 309 bytes
man/AndradeEx8.23.Rd | 43 +++++++++++++++++++++++++++++++++++++
4 files changed, 119 insertions(+)
create mode 100644 R/AndradeEx8.23.R
create mode 100644 data-raw/AndradeEx8.23.txt
create mode 100644 data/AndradeEx8.23.rda
create mode 100644 man/AndradeEx8.23.Rd
diff --git a/R/AndradeEx8.23.R b/R/AndradeEx8.23.R
new file mode 100644
index 00000000..cb2fbbb8
--- /dev/null
+++ b/R/AndradeEx8.23.R
@@ -0,0 +1,35 @@
+#' @name AndradeEx8.23
+#' @title Influência da Incidência Solar Sobre a Produção de Espiguetas
+#' @description Estudo para verificar a influência da incidência solar
+#' sobre a produção de espiguetas nas gramíneas da espécie
+#' \emph{Paspalum notatum} Flügge, conhecida como grama batatais.
+#' Com esta finalidade efetuou-se a contagem das espiguetas
+#' produzidas pelas plantas em dois locais, quais sejam: adjacentes
+#' ao sol e à sombra leve.
+#' @format Um \code{data.frame} com 40 observações e 2 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{ambiente}}{Fator de 2 níveis qualitativos, que indica se
+#' o ambiente é iluminado ou sombrio.}
+#'
+#' \item{\code{espiguetas}}{Produção de espiguetas nas gramíneas da
+#' espécie \emph{Paspalum notatum} Flügge.}
+#'
+#' }
+#' @keywords AAS
+#' @source Andrade, D. F., Ogliari, P. J. (2010). Estatística para as
+#' ciências agrárias e biológicas com noções de experimentação (2nd
+#' ed.). Florianópolis, SC. Editora da UFSC. (Capítulo 8, Exercício
+#' 23, pág. 414)
+#' @examples
+#'
+#' data(AndradeEx8.23)
+#' str(AndradeEx8.23)
+#'
+#' boxplot(espiguetas ~ ambiente,
+#' data = AndradeEx8.23,
+#' xlab = "Ambiente",
+#' ylab = "Produção de Espiguetas")
+#'
+NULL
\ No newline at end of file
diff --git a/data-raw/AndradeEx8.23.txt b/data-raw/AndradeEx8.23.txt
new file mode 100644
index 00000000..3c9f1b95
--- /dev/null
+++ b/data-raw/AndradeEx8.23.txt
@@ -0,0 +1,41 @@
+ambiente espiguetas
+Iluminado 44
+Iluminado 54
+Iluminado 60
+Iluminado 60
+Iluminado 70
+Iluminado 75
+Iluminado 79
+Iluminado 80
+Iluminado 81
+Iluminado 83
+Iluminado 86
+Iluminado 88
+Iluminado 88
+Iluminado 89
+Iluminado 90
+Iluminado 91
+Iluminado 95
+Iluminado 101
+Iluminado 107
+Iluminado 108
+Sombrio 44
+Sombrio 47
+Sombrio 52
+Sombrio 55
+Sombrio 57
+Sombrio 59
+Sombrio 60
+Sombrio 61
+Sombrio 62
+Sombrio 63
+Sombrio 64
+Sombrio 66
+Sombrio 67
+Sombrio 67
+Sombrio 68
+Sombrio 68
+Sombrio 69
+Sombrio 71
+Sombrio 73
+Sombrio 76
diff --git a/data/AndradeEx8.23.rda b/data/AndradeEx8.23.rda
new file mode 100644
index 0000000000000000000000000000000000000000..0612e4e81f8aab29a9bdaad63c08740667aac2fa
GIT binary patch
literal 309
zcmZ>Y%CIzaj8qGb^xEolgn`lf|FQp{Js21qB^=WC|NmjX{Qdz41_uTP2L{Fsj1oCV
zeU`sUnYn_eeFd`vFHZxTshO{n*{ZgN3k+-x3=9kmOfHkX7%~?wxaq#aB!z+5;Vavf
zKi*#sJW|M0JjlPEbN|63g`bjC`{$gDebOAWviClt7mMf~W3@@ESwfVbKI@+8JMFG-
z6(^_EjJfM|rF<1czcD%o2v20W%djIzN+2#%l_R0;Lgy(4l>>1S4+D<eoP6HYR`Pn}
z<J5VRawZ*<U}F$yb7+$cZ8eu#r{)`wbI6ycC9~LRU5i3f%Zk`dGD!v!Ya%$#lwV6)
z*%z_ogzt*BtLc4z&av+M5dNg>!as8_>uDZ_yaI+BD(#mp3_5R<-QU5XbXYNS*PYe3
PIR1+lxmpBF00k2O#%X~2
literal 0
HcmV?d00001
diff --git a/man/AndradeEx8.23.Rd b/man/AndradeEx8.23.Rd
new file mode 100644
index 00000000..42dc9cf6
--- /dev/null
+++ b/man/AndradeEx8.23.Rd
@@ -0,0 +1,43 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/AndradeEx8.23.R
+\name{AndradeEx8.23}
+\alias{AndradeEx8.23}
+\title{Influência da Incidência Solar Sobre a Produção de Espiguetas}
+\format{Um \code{data.frame} com 40 observações e 2 variáveis, em que
+
+\describe{
+
+\item{\code{ambiente}}{Fator de 2 níveis qualitativos, que indica se
+ o ambiente é iluminado ou sombrio.}
+
+\item{\code{espiguetas}}{Produção de espiguetas nas gramíneas da
+ espécie \emph{Paspalum notatum} Flügge.}
+
+}}
+\source{
+Andrade, D. F., Ogliari, P. J. (2010). Estatística para as
+ ciências agrárias e biológicas com noções de experimentação (2nd
+ ed.). Florianópolis, SC. Editora da UFSC. (Capítulo 8, Exercício
+ 23, pág. 414)
+}
+\description{
+Estudo para verificar a influência da incidência solar
+ sobre a produção de espiguetas nas gramíneas da espécie
+ \emph{Paspalum notatum} Flügge, conhecida como grama batatais.
+ Com esta finalidade efetuou-se a contagem das espiguetas
+ produzidas pelas plantas em dois locais, quais sejam: adjacentes
+ ao sol e à sombra leve.
+}
+\examples{
+
+data(AndradeEx8.23)
+str(AndradeEx8.23)
+
+boxplot(espiguetas ~ ambiente,
+ data = AndradeEx8.23,
+ xlab = "Ambiente",
+ ylab = "Produção de Espiguetas")
+
+}
+\keyword{AAS}
+
--
GitLab
From 128539d0573bfaa307ce01fccf70a1a4fe4b20a8 Mon Sep 17 00:00:00 2001
From: Bruno Geronymo <geronymobruno@hotmail.com>
Date: Mon, 10 Oct 2016 17:31:49 -0300
Subject: [PATCH 10/13] Adiciona Tabela Extra 1 (AndradeEx8.17).
---
R/AndradeEx8.17.R | 39 ++++++++++++++++++++++++++++++
data-raw/AndradeEx8.17.txt | 41 ++++++++++++++++++++++++++++++++
data/AndradeEx8.17.rda | Bin 0 -> 338 bytes
man/AndradeEx8.17.Rd | 47 +++++++++++++++++++++++++++++++++++++
4 files changed, 127 insertions(+)
create mode 100644 R/AndradeEx8.17.R
create mode 100644 data-raw/AndradeEx8.17.txt
create mode 100644 data/AndradeEx8.17.rda
create mode 100644 man/AndradeEx8.17.Rd
diff --git a/R/AndradeEx8.17.R b/R/AndradeEx8.17.R
new file mode 100644
index 00000000..61750419
--- /dev/null
+++ b/R/AndradeEx8.17.R
@@ -0,0 +1,39 @@
+#' @name AndradeEx8.17
+#' @title Comportamento da espécie \emph{Mandevilla velutina}
+#' @description Experimento para avaliar o comportamento \emph{in vitro}
+#' da espécie \emph{Mandevilla velutina} (Apocinácea), proveniente
+#' de duas regiões: cerrado e restinga. Após isolar os explantes,
+#' com um nó com duas gemas axilares, obtidos das plantas matrizes,
+#' foi instalado o experimento com delineamento inteiramente
+#' casualizado com 20 repetições (20 explantes para o cerrado de 20
+#' para a restinga); portanto, temos um total de 40 unidades
+#' experimentais. A variável utilizada foi a altura em cm dos
+#' explantes de \emph{Mandevilla} cultivadas \emph{in vitro} durante
+#' 45 dias.
+#' @format Um \code{data.frame} com 40 observações e 2 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{regiao}}{Fator de 2 níveis qualitativos, que indica a
+#' região da plantação.}
+#'
+#' \item{\code{altura}}{Altura em cm dos explantes de \emph{Mandevilla}
+#' cultivadas \emph{in vitro} durante 45 dias.}
+#'
+#' }
+#' @keywords AAS
+#' @source Andrade, D. F., Ogliari, P. J. (2010). Estatística para as
+#' ciências agrárias e biológicas com noções de experimentação (2nd
+#' ed.). Florianópolis, SC. Editora da UFSC. (Capítulo 8, Exercício
+#' 17, pág. 412)
+#' @examples
+#'
+#' data(AndradeEx8.17)
+#' str(AndradeEx8.17)
+#'
+#' boxplot(altura ~ regiao,
+#' data = AndradeEx8.17,
+#' xlab = "Região",
+#' ylab = "Altura (cm)")
+#'
+NULL
\ No newline at end of file
diff --git a/data-raw/AndradeEx8.17.txt b/data-raw/AndradeEx8.17.txt
new file mode 100644
index 00000000..216943c5
--- /dev/null
+++ b/data-raw/AndradeEx8.17.txt
@@ -0,0 +1,41 @@
+regiao altura
+Cerrado 5.3
+Cerrado 2.5
+Cerrado 5.1
+Cerrado 2.6
+Cerrado 1.2
+Cerrado 3.1
+Cerrado 4.1
+Cerrado 3.7
+Cerrado 5
+Cerrado 1.6
+Cerrado 3
+Cerrado 4.7
+Cerrado 2.6
+Cerrado 4.2
+Cerrado 4
+Cerrado 4.7
+Cerrado 6.4
+Cerrado 2.9
+Cerrado 3.2
+Cerrado 2.1
+Restinga 3.6
+Restinga 2.3
+Restinga 6
+Restinga 2.1
+Restinga 5.2
+Restinga 4.3
+Restinga 3.9
+Restinga 2.1
+Restinga 2.4
+Restinga 2
+Restinga 2.7
+Restinga 3.9
+Restinga 5.6
+Restinga 4.7
+Restinga 1.9
+Restinga 5.1
+Restinga 4.7
+Restinga 2.1
+Restinga 6.1
+Restinga 8.1
diff --git a/data/AndradeEx8.17.rda b/data/AndradeEx8.17.rda
new file mode 100644
index 0000000000000000000000000000000000000000..fbebb4b12f4ad996c0bb1b4c3eb5c287d3328f49
GIT binary patch
literal 338
zcmZ>Y%CIzaj8qGbw0bXW&cG;B|Lp(w{|OF`76;xj2sr33pMSuCfx&=*jlqFKaRZ~y
z4QF4?CG%J%ZT(q!c}*m)d}UmArAqDC6sf9}OBkR)Wn!=ol*y^qY<$Zq&V}*AOO}-!
zEXTE3G%U|lHt{Z9-6^Sd_x=ApE}ZWBo@XRS-#aAWlUQ$H@#OGvOB=5yXO#dpMxT^D
z$`_`v*a+N|QIp)h;mqL~6#;X_q|ZELR%uc2U=T_!E4QerkYHG($srPc`q=h`466CB
zR_=P0zV+>d371wlHXe9T&>A4Zs#v-rpyc4sn~T;?%m2K8r~Ao0g}dI~{U|u;dtB}r
zAx9~d6s5YG2UC~bjm(@^qnxs!$iG%+;V-kTecs|6$3DAg#hf}Zw{z2tjtPnV?!7B?
lIRv6E+zxqp<J~m&IF1=f^OKV&@9*BJG)Kcjw!Cw80|4|kjI#g$
literal 0
HcmV?d00001
diff --git a/man/AndradeEx8.17.Rd b/man/AndradeEx8.17.Rd
new file mode 100644
index 00000000..1a1bb3f4
--- /dev/null
+++ b/man/AndradeEx8.17.Rd
@@ -0,0 +1,47 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/AndradeEx8.17.R
+\name{AndradeEx8.17}
+\alias{AndradeEx8.17}
+\title{Comportamento da espécie \emph{Mandevilla velutina}}
+\format{Um \code{data.frame} com 40 observações e 2 variáveis, em que
+
+\describe{
+
+\item{\code{regiao}}{Fator de 2 níveis qualitativos, que indica a
+ região da plantação.}
+
+\item{\code{altura}}{Altura em cm dos explantes de \emph{Mandevilla}
+ cultivadas \emph{in vitro} durante 45 dias.}
+
+}}
+\source{
+Andrade, D. F., Ogliari, P. J. (2010). Estatística para as
+ ciências agrárias e biológicas com noções de experimentação (2nd
+ ed.). Florianópolis, SC. Editora da UFSC. (Capítulo 8, Exercício
+ 17, pág. 412)
+}
+\description{
+Experimento para avaliar o comportamento \emph{in vitro}
+ da espécie \emph{Mandevilla velutina} (Apocinácea), proveniente
+ de duas regiões: cerrado e restinga. Após isolar os explantes,
+ com um nó com duas gemas axilares, obtidos das plantas matrizes,
+ foi instalado o experimento com delineamento inteiramente
+ casualizado com 20 repetições (20 explantes para o cerrado de 20
+ para a restinga); portanto, temos um total de 40 unidades
+ experimentais. A variável utilizada foi a altura em cm dos
+ explantes de \emph{Mandevilla} cultivadas \emph{in vitro} durante
+ 45 dias.
+}
+\examples{
+
+data(AndradeEx8.17)
+str(AndradeEx8.17)
+
+boxplot(altura ~ regiao,
+ data = AndradeEx8.17,
+ xlab = "Região",
+ ylab = "Altura (cm)")
+
+}
+\keyword{AAS}
+
--
GitLab
From 1f31a9f8d2af8f7774cb576071724eec02a55aa0 Mon Sep 17 00:00:00 2001
From: Eduardo Junior <edujrrib@gmail.com>
Date: Tue, 29 Nov 2016 02:17:12 -0200
Subject: [PATCH 11/13] =?UTF-8?q?Realiza=20corre=C3=A7=C3=B5es/adequa?=
=?UTF-8?q?=C3=A7=C3=B5es=20e=20indica=C3=A7=C3=B5es=20para=20corre=C3=A7?=
=?UTF-8?q?=C3=A3o?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit
---
R/AndradeEx7.15.R | 19 ++++++++---------
R/AndradeEx8.11.R | 20 ++++++++++++------
R/AndradeEx8.13.R | 37 +++++++++++++++++++--------------
R/AndradeEx8.17.R | 34 ++++++++++++++++--------------
R/AndradeEx8.23.R | 28 ++++++++++++++-----------
R/AndradeEx8.9.R | 22 +++++++++++++++-----
R/AndradeTb8.6.R | 46 +++++++++++++++++------------------------
R/AndradeTb8.7.R | 22 +++++++++-----------
data/AndradeEx8.23.rda | Bin 309 -> 294 bytes
data/AndradeTb8.7.rda | Bin 263 -> 186 bytes
man/AndradeEx7.15.Rd | 17 +++++++--------
man/AndradeEx8.11.Rd | 17 ++++++++++-----
man/AndradeEx8.13.Rd | 35 +++++++++++++++++--------------
man/AndradeEx8.17.Rd | 32 +++++++++++++++-------------
man/AndradeEx8.23.Rd | 26 +++++++++++++----------
man/AndradeEx8.9.Rd | 20 ++++++++++++++----
man/AndradeTb8.6.Rd | 44 ++++++++++++++++-----------------------
man/AndradeTb8.7.Rd | 20 ++++++++----------
18 files changed, 241 insertions(+), 198 deletions(-)
diff --git a/R/AndradeEx7.15.R b/R/AndradeEx7.15.R
index 2ec950d8..fcaf743d 100644
--- a/R/AndradeEx7.15.R
+++ b/R/AndradeEx7.15.R
@@ -1,10 +1,12 @@
#' @name AndradeEx7.15
-#' @title DAP de Forófitos Possuidores de \emph{Vriesea incurvata}
-#' @description Estudo sobre os valores de DAP (Diâmetro à Altura do
-#' Peito), em cm, de uma amostra piloto de forófitos possuidores de
-#' \emph{Vriesea incurvata} (bromélia, conhecida como espada de
-#' Davi), em vegetação primária da Floresta Tropical Atlântica, em
-#' Santo Amaro da Imperatriz, SC.
+#' @title Diâmetro de Forófitos Possuidores de Bromélias \emph{Vriesea
+#' incurvata}
+#' @description Estudo sobre os valores de diâmetro à altura do peito
+#' (DAP), em centímetros, de uma amostra piloto de forófitos,
+#' árvores suporte para epífitas, possuidores de \emph{Vriesea
+#' incurvata} (bromélia, conhecida como espada de Davi), em
+#' vegetação primária da Floresta Tropical Atlântica, em Santo Amaro
+#' da Imperatriz, SC.
#' @format Um \code{vector} numérico com 30 observações.
#' @keywords AAS
#' @source Andrade, D. F., Ogliari, P. J. (2010). Estatística para as
@@ -13,8 +15,6 @@
#' 15, pág. 346)
#' @examples
#'
-#' library(lattice)
-#'
#' data(AndradeEx7.15)
#' str(AndradeEx7.15)
#'
@@ -26,7 +26,6 @@
#' col = "darkturquoise",
#' xlab = "DAP (cm)",
#' ylab = "Densidade")
-#'
#' lines(density(AndradeEx7.15), lwd = 2)
#'
-NULL
\ No newline at end of file
+NULL
diff --git a/R/AndradeEx8.11.R b/R/AndradeEx8.11.R
index 81fee5b7..e35695d3 100644
--- a/R/AndradeEx8.11.R
+++ b/R/AndradeEx8.11.R
@@ -17,7 +17,7 @@
#' \item{\code{peso}}{Peso do animais, em kg.}
#'
#' }
-#' @keywords AAS
+#' @keywords AASP
#' @source Andrade, D. F., Ogliari, P. J. (2010). Estatística para as
#' ciências agrárias e biológicas com noções de experimentação (2nd
#' ed.). Florianópolis, SC. Editora da UFSC. (Capítulo 8, Exercício
@@ -27,15 +27,23 @@
#' data(AndradeEx8.11)
#' str(AndradeEx8.11)
#'
+#' # Dados apresentados em formato largo ("wide")
+#' library(reshape2)
+#' (da <- dcast(AndradeEx8.11, animal ~ estado, value.var = "peso"))
+#'
+#' # Pares de peso para cada animal
#' library(lattice)
-#' dotplot(jitter(peso) ~ animal,
+#' dotplot(animal ~ peso,
#' groups = estado,
#' auto.key = list(title = "Estado",
#' cex.title = 1.1,
#' columns = 2),
-#' type = "o",
#' data = AndradeEx8.11,
-#' xlab = "Animal",
-#' ylab = "Peso (kg)")
+#' xlab = "Peso (kg)",
+#' ylab = "Animal")
+#'
+#' # Distribuição das diferenças
+#' densityplot(~jejum - vivo, data = da)
#'
-NULL
\ No newline at end of file
+
+NULL
diff --git a/R/AndradeEx8.13.R b/R/AndradeEx8.13.R
index 2b43db25..c9eaaa25 100644
--- a/R/AndradeEx8.13.R
+++ b/R/AndradeEx8.13.R
@@ -1,22 +1,21 @@
#' @name AndradeEx8.13
-#' @title Estudo do Desenvolvimento das Espécies Bracatinga e
-#' Canafístula
-#' @description Estudo, realizado por um agrônomo, sobre o
-#' desenvolvimento de duas espécies de árvores, a Bracatinga (
-#' \emph{Mimosa scabrella} e a Canafístula \emph{Peltophorum
-#' dubium}. Para essa finalidade foram coletadas duas amostras de
-#' tamanhos iguais a 30 árvores.
+#' @title Altura de Árvores Bracatinga e Canafístula
+#' @description Estudo realizado por um agrônomo sobre o desenvolvimento
+#' de duas espécies de árvores, Bracatinga (\emph{Mimosa scabrella})
+#' e Canafístula (\emph{Peltophorum dubium}). O objetivo é
+#' verificar diferença entre o densenvolvimento das duas espécies,
+#' para tal uma amostra de 30 árvores foi avaliada. O
+#' desenvolvimento foi mensurado pela altura das altura das árvores.
#' @format Um \code{data.frame} com 60 observações e 2 variáveis, em que
#'
#' \describe{
#'
-#' \item{\code{arvores}}{Fator de 2 níveis qualitativos, que são as
-#' espécies de árvores.}
+#' \item{\code{arvores}}{Espécie da árvore, Bracatinga ou Canafístula.}
#'
-#' \item{\code{altura}}{Altura das árvores, em metros.}
+#' \item{\code{altura}}{Altura da árvore, em metros.}
#'
#' }
-#' @keywords AAS
+#' @keywords AASI
#' @source Andrade, D. F., Ogliari, P. J. (2010). Estatística para as
#' ciências agrárias e biológicas com noções de experimentação (2nd
#' ed.). Florianópolis, SC. Editora da UFSC. (Capítulo 8, Exercício
@@ -26,9 +25,15 @@
#' data(AndradeEx8.13)
#' str(AndradeEx8.13)
#'
-#' boxplot(altura ~ arvores,
-#' data = AndradeEx8.13,
-#' xlab = "Árvore",
-#' ylab = "Altura (m)")
+#' with(AndradeEx8.13, by(altura, arvores, summary))
#'
-NULL
\ No newline at end of file
+#' library(lattice)
+#' densityplot(~altura, groups = arvores,
+#' data = AndradeEx8.13,
+#' auto.key = list(
+#' title = "Espécies",
+#' cex.title = 1,
+#' corner = c(0.9, 0.95)
+#' ))
+#'
+NULL
diff --git a/R/AndradeEx8.17.R b/R/AndradeEx8.17.R
index 61750419..f7914e30 100644
--- a/R/AndradeEx8.17.R
+++ b/R/AndradeEx8.17.R
@@ -4,24 +4,22 @@
#' da espécie \emph{Mandevilla velutina} (Apocinácea), proveniente
#' de duas regiões: cerrado e restinga. Após isolar os explantes,
#' com um nó com duas gemas axilares, obtidos das plantas matrizes,
-#' foi instalado o experimento com delineamento inteiramente
+#' foi instalado o experimento em delineamento inteiramente
#' casualizado com 20 repetições (20 explantes para o cerrado de 20
-#' para a restinga); portanto, temos um total de 40 unidades
-#' experimentais. A variável utilizada foi a altura em cm dos
-#' explantes de \emph{Mandevilla} cultivadas \emph{in vitro} durante
-#' 45 dias.
+#' para a restinga), totalizando 40 unidades experimentais. A
+#' variável mensurada foi a altura em centímetros dos explantes de
+#' \emph{Mandevilla}, cultivadas \emph{in vitro} durante 45 dias.
#' @format Um \code{data.frame} com 40 observações e 2 variáveis, em que
#'
#' \describe{
#'
-#' \item{\code{regiao}}{Fator de 2 níveis qualitativos, que indica a
-#' região da plantação.}
+#' \item{\code{regiao}}{Região da plantação (Cerrado ou Rastinga).}
#'
-#' \item{\code{altura}}{Altura em cm dos explantes de \emph{Mandevilla}
-#' cultivadas \emph{in vitro} durante 45 dias.}
+#' \item{\code{altura}}{Altura, em centímetros, dos explantes de
+#' \emph{Mandevilla} cultivadas \emph{in vitro} durante 45 dias.}
#'
#' }
-#' @keywords AAS
+#' @keywords AASI
#' @source Andrade, D. F., Ogliari, P. J. (2010). Estatística para as
#' ciências agrárias e biológicas com noções de experimentação (2nd
#' ed.). Florianópolis, SC. Editora da UFSC. (Capítulo 8, Exercício
@@ -31,9 +29,15 @@
#' data(AndradeEx8.17)
#' str(AndradeEx8.17)
#'
-#' boxplot(altura ~ regiao,
-#' data = AndradeEx8.17,
-#' xlab = "Região",
-#' ylab = "Altura (cm)")
+#' with(AndradeEx8.17, by(altura, regiao, summary))
#'
-NULL
\ No newline at end of file
+#' library(lattice)
+#' densityplot(~altura, groups = regiao,
+#' data = AndradeEx8.17,
+#' auto.key = list(
+#' title = "Região",
+#' cex.title = 1,
+#' corner = c(0.9, 0.95)
+#' ))
+#'
+NULL
diff --git a/R/AndradeEx8.23.R b/R/AndradeEx8.23.R
index cb2fbbb8..0bf69536 100644
--- a/R/AndradeEx8.23.R
+++ b/R/AndradeEx8.23.R
@@ -3,21 +3,19 @@
#' @description Estudo para verificar a influência da incidência solar
#' sobre a produção de espiguetas nas gramíneas da espécie
#' \emph{Paspalum notatum} Flügge, conhecida como grama batatais.
-#' Com esta finalidade efetuou-se a contagem das espiguetas
-#' produzidas pelas plantas em dois locais, quais sejam: adjacentes
-#' ao sol e à sombra leve.
+#' Realizou-se no estudo a contagem das espiguetas produzidas pelas
+#' plantas em dois locais: adjacentes ao sol e à sombra leve.
#' @format Um \code{data.frame} com 40 observações e 2 variáveis, em que
#'
#' \describe{
#'
-#' \item{\code{ambiente}}{Fator de 2 níveis qualitativos, que indica se
-#' o ambiente é iluminado ou sombrio.}
+#' \item{\code{ambiente}}{Indica se o ambiente é iluminado ou sombrio.}
#'
-#' \item{\code{espiguetas}}{Produção de espiguetas nas gramíneas da
+#' \item{\code{espiguetas}}{Contagem de espiguetas nas gramíneas da
#' espécie \emph{Paspalum notatum} Flügge.}
#'
#' }
-#' @keywords AAS
+#' @keywords AASI
#' @source Andrade, D. F., Ogliari, P. J. (2010). Estatística para as
#' ciências agrárias e biológicas com noções de experimentação (2nd
#' ed.). Florianópolis, SC. Editora da UFSC. (Capítulo 8, Exercício
@@ -27,9 +25,15 @@
#' data(AndradeEx8.23)
#' str(AndradeEx8.23)
#'
-#' boxplot(espiguetas ~ ambiente,
-#' data = AndradeEx8.23,
-#' xlab = "Ambiente",
-#' ylab = "Produção de Espiguetas")
+#' with(AndradeEx8.23, by(espiguetas, ambiente, summary))
#'
-NULL
\ No newline at end of file
+#' library(lattice)
+#' densityplot(~espiguetas, groups = ambiente,
+#' data = AndradeEx8.23,
+#' auto.key = list(
+#' title = "Ambiente",
+#' cex.title = 1,
+#' corner = c(0.9, 0.95)
+#' ))
+#'
+NULL
diff --git a/R/AndradeEx8.9.R b/R/AndradeEx8.9.R
index 9b4eb017..ff321ef8 100644
--- a/R/AndradeEx8.9.R
+++ b/R/AndradeEx8.9.R
@@ -3,7 +3,7 @@
#' @description Estudo sobre a possibilidade da quantidade de proteínas
#' totais no plasma, depois de determinada operação em portadores de
#' esquistossomose mansônica, ser diferente da quantidade de antes
-#' da operação.
+#' da operação.[VERIFICAR DESCRICAO]
#' @format Um \code{data.frame} com 34 observações e 3 variáveis, em que
#'
#' \describe{
@@ -18,7 +18,7 @@
#' \item{\code{prot}}{Quantidade de proteínas totais no plasma.}
#'
#' }
-#' @keywords AAS
+#' @keywords AASP
#' @source Andrade, D. F., Ogliari, P. J. (2010). Estatística para as
#' ciências agrárias e biológicas com noções de experimentação (2nd
#' ed.). Florianópolis, SC. Editora da UFSC. (Capítulo 8, Exercício
@@ -28,15 +28,27 @@
#' data(AndradeEx8.9)
#' str(AndradeEx8.9)
#'
+#' # Dados apresentados em formato largo ("wide")
+#' library(reshape2)
+#' (da <- dcast(AndradeEx8.9, paciente ~ periodo, value.var = "prot"))
+#'
+#' # Pares de peso para cada animal
#' library(lattice)
-#' dotplot(jitter(prot) ~ paciente,
+#' dotplot(prot ~ paciente,
#' groups = periodo,
#' auto.key = list(title = "Período",
#' cex.title = 1.1,
#' columns = 2),
-#' type = "o",
+#' type = "p",
#' data = AndradeEx8.9,
#' xlab = "Paciente",
#' ylab = "Quantidade de Proteínas Totais no Plasma")
#'
-NULL
\ No newline at end of file
+#' # Distribuição das diferenças
+#' densityplot(~antes - depois, data = da)
+#'
+#' # Testes de hipóteses
+#' t.test(prot ~ periodo, paired = TRUE, data = AndradeEx8.9)
+#' t.test(da$antes - da$depois)
+#'
+NULL
diff --git a/R/AndradeTb8.6.R b/R/AndradeTb8.6.R
index 337e930a..6e819550 100644
--- a/R/AndradeTb8.6.R
+++ b/R/AndradeTb8.6.R
@@ -1,48 +1,40 @@
#' @name AndradeTb8.6
-#' @title Experimento de Avaliação de Classes Fenotípicas de Plantas
-#' Dihíbridas
+#' @title Avaliação de Classes Fenotípicas de Plantas Dihíbridas
#' @description Na descendência obtida de cruzamentos entre plantas
-#' puras de ervilhas com sementes amarelas lisas e outras de
-#' sementes verdes rugosas, obtemos na primeira geração (F1),
-#' ervilhas amarelas lisas. Estas, por autofecundação, produzem, na
+#' puras de ervilhas com sementes amarelas lisas e outras com
+#' sementes verdes rugosas, obtêm-se na primeira geração (F1),
+#' ervilhas amarelas lisas. Essas, por autofecundação, produzem, na
#' segunda geração (F2), ervilhas de quatro tipos: amarelas lisas,
-#' verdes lisas, amarelas rugosas e verdes rugosas. Esse tipo de
-#' experimento avalia se o padrão de segregação dos caracteres
-#' envolvidos segue aquele proposto pela segunda lei de Mendel (lei
-#' da segregação independente), que diz que as proporções esperadas
-#' para esses tipos de ervilhas são: 9/16, 3/16, 3/16 e 1/16,
-#' respectivamente.
+#' verdes lisas, amarelas rugosas e verdes rugosas. Segundo a
+#' segunda lei de Mendel (lei da segregação independente), as
+#' proporções esperadas para esses tipos de ervilhas são: 9/16,
+#' 3/16, 3/16 e 1/16, respectivamente. Assim o objetivo desse
+#' experimento é avaliar se o padrão de segregação dos caracteres
+#' envolvidos segue o proposto pela segunda lei de Mendel.
#' @format Um \code{data.frame} com 4 observações e 3 variáveis, em que
#'
#' \describe{
#'
-#' \item{\code{textura}}{Fator de 2 níveis qualitativos, que são as
-#' texturas das ervilhas.}
+#' \item{\code{textura}}{Textura das ervilhas (Lisa e Rugosa).}
#'
-#' \item{\code{cor}}{Fator de 2 níveis qualitativos, que são as cores
-#' das ervilhas.}
+#' \item{\code{cor}}{Cor das ervilhas (Amarela e Verde).}
#'
#' \item{\code{freq}}{Frequência absoluta de cada tipo de ervilha.}
#'
#' }
-#' @keywords AAS
+#' @keywords contingência
#' @source Andrade, D. F., Ogliari, P. J. (2010). Estatística para as
#' ciências agrárias e biológicas com noções de experimentação (2nd
#' ed.). Florianópolis, SC. Editora da UFSC. (Tabela 8.6, pág. 372)
#' @examples
#'
-#' library(lattice)
-#'
#' data(AndradeTb8.6)
#' str(AndradeTb8.6)
#'
-#' xyplot(freq ~ cor,
-#' groups = textura,
-#' data = AndradeTb8.6,
-#' auto.key = list(title = "Textura",
-#' cex.title = 1.1,
-#' columns = 2),
-#' xlab = "Cor",
-#' ylab = "Frequência")
+#' (xt <- xtabs(freq ~ ., data = AndradeTb8.6))
+#' prop.table(xt)
+#'
+#' plot(xt, cex.axis = 1, main = "")
+#' barplot(xt, legend.text = TRUE)
#'
-NULL
\ No newline at end of file
+NULL
diff --git a/R/AndradeTb8.7.R b/R/AndradeTb8.7.R
index 4c3cba29..a6399013 100644
--- a/R/AndradeTb8.7.R
+++ b/R/AndradeTb8.7.R
@@ -1,22 +1,20 @@
#' @name AndradeTb8.7
-#' @title Número de Árvores por Quadrante de \emph{Guapira opposita}
-#' @description Estudo sobre o número de árvores por quadrante da
-#' espécie \emph{Guapira opposita}, realizado com o objetivo de
-#' verificar a distribuição espacial dessa espécie num local de
-#' restinga. Foi utilizado um total de 94 quadrantes e contou-se o
-#' número de quadrantes com zero árvores, uma árvore, duas árvores,
-#' e assim por diante.
+#' @title Número de Árvores \emph{Guapira opposita} em Restinga
+#' @description Estudo sobre o número de árvores da espécie
+#' \emph{Guapira opposita} em local de restinga. Estudo realizado
+#' com o objetivo de verificar a distribuição das árvores em local
+#' de restinga. A área avaliada foi dividida em 94 quadrantes de
+#' mesma área e contou-se o número de árvores por quadrante.
#' @format Um \code{data.frame} com 10 observações e 2 variáveis, em que
#'
#' \describe{
#'
-#' \item{\code{arvores}}{Fator de 10 níveis qualitativos, que representa
-#' o número de árvores por quadrante.}
+#' \item{\code{arvores}}{Número de árvores por quadrante.}
#'
-#' \item{\code{quadr}}{Número de quandrantes com X árvores.}
+#' \item{\code{quadr}}{Número de quadrantes com \code{arvores} árvores.}
#'
#' }
-#' @keywords DBC
+#' @keywords contingência*
#' @source Andrade, D. F., Ogliari, P. J. (2010). Estatística para as
#' ciências agrárias e biológicas com noções de experimentação (2nd
#' ed.). Florianópolis, SC. Editora da UFSC. (Tabela 8.7, pág. 374)
@@ -31,4 +29,4 @@
#' xlab = "Número de Árvores",
#' ylab = "Número de Quadrandres")
#'
-NULL
\ No newline at end of file
+NULL
diff --git a/data/AndradeEx8.23.rda b/data/AndradeEx8.23.rda
index 0612e4e81f8aab29a9bdaad63c08740667aac2fa..de6e99892af8298837dd8d43691dc66f17d97de5 100644
GIT binary patch
literal 294
zcmZ>Y%CIzaj8qGb)Mq`=#lR@=|Iq(W9t;ewbKn18^Rr_A`uhhQ7#JKF7&kE7n&HYh
z;lyQMNnVo-6NAgaZq5u2mmQ8c&2w9PQA%#XS6&8Q1_lO(TUneU0gdw(nwXqON@8Hh
zT#(SFEY##E)GXaB;CW$&cbt>m7bmGmlcRRaUf*AT_~6k5lgz8@(=OZ*n~}Nfi0!+N
zl^>p-Un2B%$ufH@1_uEP&Sg$5>7N{#0&~|Z%oSogJ%jtKVw1pygS<aXd|Mb?{VOy!
zn#oI;xRqbq5;m>*;$q>+;kV4^vFTZGFzhc?{NTh``KQI^LP5eUp0XR88gKNk$`X@(
z?xcM2y3vE9s>g!`Pn)~E46sO5{mIK$eMExSGqI~r{MteX2lbETD#5LsOdn!6761U=
Cs(W+*
literal 309
zcmZ>Y%CIzaj8qGb^xEolgn`lf|FQp{Js21qB^=WC|NmjX{Qdz41_uTP2L{Fsj1oCV
zeU`sUnYn_eeFd`vFHZxTshO{n*{ZgN3k+-x3=9kmOfHkX7%~?wxaq#aB!z+5;Vavf
zKi*#sJW|M0JjlPEbN|63g`bjC`{$gDebOAWviClt7mMf~W3@@ESwfVbKI@+8JMFG-
z6(^_EjJfM|rF<1czcD%o2v20W%djIzN+2#%l_R0;Lgy(4l>>1S4+D<eoP6HYR`Pn}
z<J5VRawZ*<U}F$yb7+$cZ8eu#r{)`wbI6ycC9~LRU5i3f%Zk`dGD!v!Ya%$#lwV6)
z*%z_ogzt*BtLc4z&av+M5dNg>!as8_>uDZ_yaI+BD(#mp3_5R<-QU5XbXYNS*PYe3
PIR1+lxmpBF00k2O#%X~2
diff --git a/data/AndradeTb8.7.rda b/data/AndradeTb8.7.rda
index 34929f63576975092b3e33acc1f899c881a2f8b3..b9a9cf56c92852c1b3772cc7c6769c6ca0e455f1 100644
GIT binary patch
literal 186
zcmZ>Y%CIzaj8qGboW8_Ig@K{^|AGJiA{rPN1rDe%h&b4@?{9EmU}Rjt(8Vj1x$>=M
zN7}*#7dJI7lWOczIbvvX*_7AhKu?>(cArfvu5Qh~X{AsU6zVs5-K;4OlA3=yhe*ek
zpLTE34*2!HS4B{YQ><gwp-a9jDgp`%1d0@&889(@mgQ-faXi9v?w<1A{%w}~oliK+
s@2Dzm4)ZaX`sh$_;bgUp^FD$f4Hl}T*vIk6e=JuCZsp{xayjGx07JM;7XSbN
literal 263
zcmZ>Y%CIzaj8qGbOuafel7ZoT{el1AeH<7W>kmF*5OJ_)-{0WC;K;av;hLG!@+l{K
zIU5b!npslLaxOc>wydkFEi3a?u0Te@3}FYJSq2_cuDCC%^fj?rkdWaYV8mb_a=Cg<
zb>WYLQ@eNtloA^*Zqz*Su;Kd5M5#&X9tQJj-U^pFzW?*={LE7|E0||p7cZ&0=q;cf
zp`&AvdG+?}*xTCcC!9JpYX$R8h8ssDXRs*tE?MfL5MrY6IcwRH_lW``zx)N&j|=eq
z_)w!I+M}nRw`!_XxksPaj9b&(TDaw>9cD6|(jooi!D5fvNgC4*F+RGrLUj_;2dB*+
W4pc3<GDlvpTqU@blPxyVbOHdL@p94t
diff --git a/man/AndradeEx7.15.Rd b/man/AndradeEx7.15.Rd
index af011b7e..bdbbef55 100644
--- a/man/AndradeEx7.15.Rd
+++ b/man/AndradeEx7.15.Rd
@@ -2,7 +2,8 @@
% Please edit documentation in R/AndradeEx7.15.R
\name{AndradeEx7.15}
\alias{AndradeEx7.15}
-\title{DAP de Forófitos Possuidores de \emph{Vriesea incurvata}}
+\title{Diâmetro de Forófitos Possuidores de Bromélias \emph{Vriesea
+ incurvata}}
\format{Um \code{vector} numérico com 30 observações.}
\source{
Andrade, D. F., Ogliari, P. J. (2010). Estatística para as
@@ -11,16 +12,15 @@ Andrade, D. F., Ogliari, P. J. (2010). Estatística para as
15, pág. 346)
}
\description{
-Estudo sobre os valores de DAP (Diâmetro à Altura do
- Peito), em cm, de uma amostra piloto de forófitos possuidores de
- \emph{Vriesea incurvata} (bromélia, conhecida como espada de
- Davi), em vegetação primária da Floresta Tropical Atlântica, em
- Santo Amaro da Imperatriz, SC.
+Estudo sobre os valores de diâmetro à altura do peito
+ (DAP), em centímetros, de uma amostra piloto de forófitos,
+ árvores suporte para epífitas, possuidores de \emph{Vriesea
+ incurvata} (bromélia, conhecida como espada de Davi), em
+ vegetação primária da Floresta Tropical Atlântica, em Santo Amaro
+ da Imperatriz, SC.
}
\examples{
-library(lattice)
-
data(AndradeEx7.15)
str(AndradeEx7.15)
@@ -32,7 +32,6 @@ hist(AndradeEx7.15,
col = "darkturquoise",
xlab = "DAP (cm)",
ylab = "Densidade")
-
lines(density(AndradeEx7.15), lwd = 2)
}
diff --git a/man/AndradeEx8.11.Rd b/man/AndradeEx8.11.Rd
index c0fe89c3..828100fe 100644
--- a/man/AndradeEx8.11.Rd
+++ b/man/AndradeEx8.11.Rd
@@ -33,17 +33,24 @@ Para comparar o peso vivo e o peso jejum do gado crioulo
data(AndradeEx8.11)
str(AndradeEx8.11)
+# Dados apresentados em formato largo ("wide")
+library(reshape2)
+(da <- dcast(AndradeEx8.11, animal ~ estado, value.var = "peso"))
+
+# Pares de peso para cada animal
library(lattice)
-dotplot(jitter(peso) ~ animal,
+dotplot(animal ~ peso,
groups = estado,
auto.key = list(title = "Estado",
cex.title = 1.1,
columns = 2),
- type = "o",
data = AndradeEx8.11,
- xlab = "Animal",
- ylab = "Peso (kg)")
+ xlab = "Peso (kg)",
+ ylab = "Animal")
+
+# Distribuição das diferenças
+densityplot(~jejum - vivo, data = da)
}
-\keyword{AAS}
+\keyword{AASP}
diff --git a/man/AndradeEx8.13.Rd b/man/AndradeEx8.13.Rd
index 2ed2bdb5..9a3459a2 100644
--- a/man/AndradeEx8.13.Rd
+++ b/man/AndradeEx8.13.Rd
@@ -2,16 +2,14 @@
% Please edit documentation in R/AndradeEx8.13.R
\name{AndradeEx8.13}
\alias{AndradeEx8.13}
-\title{Estudo do Desenvolvimento das Espécies Bracatinga e
- Canafístula}
+\title{Altura de Árvores Bracatinga e Canafístula}
\format{Um \code{data.frame} com 60 observações e 2 variáveis, em que
\describe{
-\item{\code{arvores}}{Fator de 2 níveis qualitativos, que são as
- espécies de árvores.}
+\item{\code{arvores}}{Espécie da árvore, Bracatinga ou Canafístula.}
-\item{\code{altura}}{Altura das árvores, em metros.}
+\item{\code{altura}}{Altura da árvore, em metros.}
}}
\source{
@@ -21,22 +19,29 @@ Andrade, D. F., Ogliari, P. J. (2010). Estatística para as
13, pág. 410)
}
\description{
-Estudo, realizado por um agrônomo, sobre o
- desenvolvimento de duas espécies de árvores, a Bracatinga (
- \emph{Mimosa scabrella} e a Canafístula \emph{Peltophorum
- dubium}. Para essa finalidade foram coletadas duas amostras de
- tamanhos iguais a 30 árvores.
+Estudo realizado por um agrônomo sobre o desenvolvimento
+ de duas espécies de árvores, Bracatinga (\emph{Mimosa scabrella})
+ e Canafístula (\emph{Peltophorum dubium}). O objetivo é
+ verificar diferença entre o densenvolvimento das duas espécies,
+ para tal uma amostra de 30 árvores foi avaliada. O
+ desenvolvimento foi mensurado pela altura das altura das árvores.
}
\examples{
data(AndradeEx8.13)
str(AndradeEx8.13)
-boxplot(altura ~ arvores,
- data = AndradeEx8.13,
- xlab = "Árvore",
- ylab = "Altura (m)")
+with(AndradeEx8.13, by(altura, arvores, summary))
+
+library(lattice)
+densityplot(~altura, groups = arvores,
+ data = AndradeEx8.13,
+ auto.key = list(
+ title = "Espécies",
+ cex.title = 1,
+ corner = c(0.9, 0.95)
+ ))
}
-\keyword{AAS}
+\keyword{AASI}
diff --git a/man/AndradeEx8.17.Rd b/man/AndradeEx8.17.Rd
index 1a1bb3f4..1b3957b7 100644
--- a/man/AndradeEx8.17.Rd
+++ b/man/AndradeEx8.17.Rd
@@ -7,11 +7,10 @@
\describe{
-\item{\code{regiao}}{Fator de 2 níveis qualitativos, que indica a
- região da plantação.}
+\item{\code{regiao}}{Região da plantação (Cerrado ou Rastinga).}
-\item{\code{altura}}{Altura em cm dos explantes de \emph{Mandevilla}
- cultivadas \emph{in vitro} durante 45 dias.}
+\item{\code{altura}}{Altura, em centímetros, dos explantes de
+ \emph{Mandevilla} cultivadas \emph{in vitro} durante 45 dias.}
}}
\source{
@@ -25,23 +24,28 @@ Experimento para avaliar o comportamento \emph{in vitro}
da espécie \emph{Mandevilla velutina} (Apocinácea), proveniente
de duas regiões: cerrado e restinga. Após isolar os explantes,
com um nó com duas gemas axilares, obtidos das plantas matrizes,
- foi instalado o experimento com delineamento inteiramente
+ foi instalado o experimento em delineamento inteiramente
casualizado com 20 repetições (20 explantes para o cerrado de 20
- para a restinga); portanto, temos um total de 40 unidades
- experimentais. A variável utilizada foi a altura em cm dos
- explantes de \emph{Mandevilla} cultivadas \emph{in vitro} durante
- 45 dias.
+ para a restinga), totalizando 40 unidades experimentais. A
+ variável mensurada foi a altura em centímetros dos explantes de
+ \emph{Mandevilla}, cultivadas \emph{in vitro} durante 45 dias.
}
\examples{
data(AndradeEx8.17)
str(AndradeEx8.17)
-boxplot(altura ~ regiao,
- data = AndradeEx8.17,
- xlab = "Região",
- ylab = "Altura (cm)")
+with(AndradeEx8.17, by(altura, regiao, summary))
+
+library(lattice)
+densityplot(~altura, groups = regiao,
+ data = AndradeEx8.17,
+ auto.key = list(
+ title = "Região",
+ cex.title = 1,
+ corner = c(0.9, 0.95)
+ ))
}
-\keyword{AAS}
+\keyword{AASI}
diff --git a/man/AndradeEx8.23.Rd b/man/AndradeEx8.23.Rd
index 42dc9cf6..c0105a63 100644
--- a/man/AndradeEx8.23.Rd
+++ b/man/AndradeEx8.23.Rd
@@ -7,10 +7,9 @@
\describe{
-\item{\code{ambiente}}{Fator de 2 níveis qualitativos, que indica se
- o ambiente é iluminado ou sombrio.}
+\item{\code{ambiente}}{Indica se o ambiente é iluminado ou sombrio.}
-\item{\code{espiguetas}}{Produção de espiguetas nas gramíneas da
+\item{\code{espiguetas}}{Contagem de espiguetas nas gramíneas da
espécie \emph{Paspalum notatum} Flügge.}
}}
@@ -24,20 +23,25 @@ Andrade, D. F., Ogliari, P. J. (2010). Estatística para as
Estudo para verificar a influência da incidência solar
sobre a produção de espiguetas nas gramíneas da espécie
\emph{Paspalum notatum} Flügge, conhecida como grama batatais.
- Com esta finalidade efetuou-se a contagem das espiguetas
- produzidas pelas plantas em dois locais, quais sejam: adjacentes
- ao sol e à sombra leve.
+ Realizou-se no estudo a contagem das espiguetas produzidas pelas
+ plantas em dois locais: adjacentes ao sol e à sombra leve.
}
\examples{
data(AndradeEx8.23)
str(AndradeEx8.23)
-boxplot(espiguetas ~ ambiente,
- data = AndradeEx8.23,
- xlab = "Ambiente",
- ylab = "Produção de Espiguetas")
+with(AndradeEx8.23, by(espiguetas, ambiente, summary))
+
+library(lattice)
+densityplot(~espiguetas, groups = ambiente,
+ data = AndradeEx8.23,
+ auto.key = list(
+ title = "Ambiente",
+ cex.title = 1,
+ corner = c(0.9, 0.95)
+ ))
}
-\keyword{AAS}
+\keyword{AASI}
diff --git a/man/AndradeEx8.9.Rd b/man/AndradeEx8.9.Rd
index 84f9223d..d5933b89 100644
--- a/man/AndradeEx8.9.Rd
+++ b/man/AndradeEx8.9.Rd
@@ -27,24 +27,36 @@ Andrade, D. F., Ogliari, P. J. (2010). Estatística para as
Estudo sobre a possibilidade da quantidade de proteínas
totais no plasma, depois de determinada operação em portadores de
esquistossomose mansônica, ser diferente da quantidade de antes
- da operação.
+ da operação.[VERIFICAR DESCRICAO]
}
\examples{
data(AndradeEx8.9)
str(AndradeEx8.9)
+# Dados apresentados em formato largo ("wide")
+library(reshape2)
+(da <- dcast(AndradeEx8.9, paciente ~ periodo, value.var = "prot"))
+
+# Pares de peso para cada animal
library(lattice)
-dotplot(jitter(prot) ~ paciente,
+dotplot(prot ~ paciente,
groups = periodo,
auto.key = list(title = "Período",
cex.title = 1.1,
columns = 2),
- type = "o",
+ type = "p",
data = AndradeEx8.9,
xlab = "Paciente",
ylab = "Quantidade de Proteínas Totais no Plasma")
+# Distribuição das diferenças
+densityplot(~antes - depois, data = da)
+
+# Testes de hipóteses
+t.test(prot ~ periodo, paired = TRUE, data = AndradeEx8.9)
+t.test(da$antes - da$depois)
+
}
-\keyword{AAS}
+\keyword{AASP}
diff --git a/man/AndradeTb8.6.Rd b/man/AndradeTb8.6.Rd
index 90bef0f5..acc1f673 100644
--- a/man/AndradeTb8.6.Rd
+++ b/man/AndradeTb8.6.Rd
@@ -2,17 +2,14 @@
% Please edit documentation in R/AndradeTb8.6.R
\name{AndradeTb8.6}
\alias{AndradeTb8.6}
-\title{Experimento de Avaliação de Classes Fenotípicas de Plantas
- Dihíbridas}
+\title{Avaliação de Classes Fenotípicas de Plantas Dihíbridas}
\format{Um \code{data.frame} com 4 observações e 3 variáveis, em que
\describe{
-\item{\code{textura}}{Fator de 2 níveis qualitativos, que são as
- texturas das ervilhas.}
+\item{\code{textura}}{Textura das ervilhas (Lisa e Rugosa).}
-\item{\code{cor}}{Fator de 2 níveis qualitativos, que são as cores
- das ervilhas.}
+\item{\code{cor}}{Cor das ervilhas (Amarela e Verde).}
\item{\code{freq}}{Frequência absoluta de cada tipo de ervilha.}
@@ -24,33 +21,28 @@ Andrade, D. F., Ogliari, P. J. (2010). Estatística para as
}
\description{
Na descendência obtida de cruzamentos entre plantas
- puras de ervilhas com sementes amarelas lisas e outras de
- sementes verdes rugosas, obtemos na primeira geração (F1),
- ervilhas amarelas lisas. Estas, por autofecundação, produzem, na
+ puras de ervilhas com sementes amarelas lisas e outras com
+ sementes verdes rugosas, obtêm-se na primeira geração (F1),
+ ervilhas amarelas lisas. Essas, por autofecundação, produzem, na
segunda geração (F2), ervilhas de quatro tipos: amarelas lisas,
- verdes lisas, amarelas rugosas e verdes rugosas. Esse tipo de
- experimento avalia se o padrão de segregação dos caracteres
- envolvidos segue aquele proposto pela segunda lei de Mendel (lei
- da segregação independente), que diz que as proporções esperadas
- para esses tipos de ervilhas são: 9/16, 3/16, 3/16 e 1/16,
- respectivamente.
+ verdes lisas, amarelas rugosas e verdes rugosas. Segundo a
+ segunda lei de Mendel (lei da segregação independente), as
+ proporções esperadas para esses tipos de ervilhas são: 9/16,
+ 3/16, 3/16 e 1/16, respectivamente. Assim o objetivo desse
+ experimento é avaliar se o padrão de segregação dos caracteres
+ envolvidos segue o proposto pela segunda lei de Mendel.
}
\examples{
-library(lattice)
-
data(AndradeTb8.6)
str(AndradeTb8.6)
-xyplot(freq ~ cor,
- groups = textura,
- data = AndradeTb8.6,
- auto.key = list(title = "Textura",
- cex.title = 1.1,
- columns = 2),
- xlab = "Cor",
- ylab = "Frequência")
+(xt <- xtabs(freq ~ ., data = AndradeTb8.6))
+prop.table(xt)
+
+plot(xt, cex.axis = 1, main = "")
+barplot(xt, legend.text = TRUE)
}
-\keyword{AAS}
+\keyword{contingência}
diff --git a/man/AndradeTb8.7.Rd b/man/AndradeTb8.7.Rd
index 3e938168..a58b4f5f 100644
--- a/man/AndradeTb8.7.Rd
+++ b/man/AndradeTb8.7.Rd
@@ -2,15 +2,14 @@
% Please edit documentation in R/AndradeTb8.7.R
\name{AndradeTb8.7}
\alias{AndradeTb8.7}
-\title{Número de Árvores por Quadrante de \emph{Guapira opposita}}
+\title{Número de Árvores \emph{Guapira opposita} em Restinga}
\format{Um \code{data.frame} com 10 observações e 2 variáveis, em que
\describe{
-\item{\code{arvores}}{Fator de 10 níveis qualitativos, que representa
- o número de árvores por quadrante.}
+\item{\code{arvores}}{Número de árvores por quadrante.}
-\item{\code{quadr}}{Número de quandrantes com X árvores.}
+\item{\code{quadr}}{Número de quadrantes com \code{arvores} árvores.}
}}
\source{
@@ -19,12 +18,11 @@ Andrade, D. F., Ogliari, P. J. (2010). Estatística para as
ed.). Florianópolis, SC. Editora da UFSC. (Tabela 8.7, pág. 374)
}
\description{
-Estudo sobre o número de árvores por quadrante da
- espécie \emph{Guapira opposita}, realizado com o objetivo de
- verificar a distribuição espacial dessa espécie num local de
- restinga. Foi utilizado um total de 94 quadrantes e contou-se o
- número de quadrantes com zero árvores, uma árvore, duas árvores,
- e assim por diante.
+Estudo sobre o número de árvores da espécie
+ \emph{Guapira opposita} em local de restinga. Estudo realizado
+ com o objetivo de verificar a distribuição das árvores em local
+ de restinga. A área avaliada foi dividida em 94 quadrantes de
+ mesma área e contou-se o número de árvores por quadrante.
}
\examples{
@@ -38,5 +36,5 @@ barplot(AndradeTb8.7$quadr,
ylab = "Número de Quadrandres")
}
-\keyword{DBC}
+\keyword{contingência*}
--
GitLab
From 1855f53a5f478160914f0becf6b2a5ceca8e6474 Mon Sep 17 00:00:00 2001
From: Eduardo Junior <edujrrib@gmail.com>
Date: Fri, 2 Dec 2016 15:28:49 -0200
Subject: [PATCH 12/13] =?UTF-8?q?Corrige=20descri=C3=A7=C3=A3o=20dos=20dad?=
=?UTF-8?q?os=20em=20AndradeEx8.9?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit
---
R/AndradeEx8.9.R | 16 +++++++---------
man/AndradeEx8.9.Rd | 16 +++++++---------
2 files changed, 14 insertions(+), 18 deletions(-)
diff --git a/R/AndradeEx8.9.R b/R/AndradeEx8.9.R
index ff321ef8..feacf167 100644
--- a/R/AndradeEx8.9.R
+++ b/R/AndradeEx8.9.R
@@ -1,19 +1,17 @@
#' @name AndradeEx8.9
#' @title Estudo da Quantidade de Proteínas após Operação
-#' @description Estudo sobre a possibilidade da quantidade de proteínas
-#' totais no plasma, depois de determinada operação em portadores de
-#' esquistossomose mansônica, ser diferente da quantidade de antes
-#' da operação.[VERIFICAR DESCRICAO]
+#' @description Estudo sobre a influência de uma determinada operação,
+#' realizada em portadores de esquistossomose mansônica, na
+#' quantidade de proteínas totais no plasma. No estudo mensurou-se a
+#' quantidade de proteínas antes e depois da operação.
#' @format Um \code{data.frame} com 34 observações e 3 variáveis, em que
#'
#' \describe{
#'
-#' \item{\code{paciente}}{Fator de 17 níveis qualitativos, que são
-#' os pacientes sujeitos a operação.}
+#' \item{\code{paciente}}{Indica os pacientes sujeitos a operação.}
#'
-#' \item{\code{periodo}}{Fator de 2 níveis qualitativos, que indica
-#' o período (antes ou depois) em que foi coletada a quantidade de
-#' proteínas totais no plasma.}
+#' \item{\code{periodo}}{Período em que foi mensurada a quantidade de
+#' proteínas totais no plasma (antes ou depois da operação).}
#'
#' \item{\code{prot}}{Quantidade de proteínas totais no plasma.}
#'
diff --git a/man/AndradeEx8.9.Rd b/man/AndradeEx8.9.Rd
index d5933b89..6aeb5bde 100644
--- a/man/AndradeEx8.9.Rd
+++ b/man/AndradeEx8.9.Rd
@@ -7,12 +7,10 @@
\describe{
-\item{\code{paciente}}{Fator de 17 níveis qualitativos, que são
- os pacientes sujeitos a operação.}
+\item{\code{paciente}}{Indica os pacientes sujeitos a operação.}
-\item{\code{periodo}}{Fator de 2 níveis qualitativos, que indica
- o período (antes ou depois) em que foi coletada a quantidade de
- proteínas totais no plasma.}
+\item{\code{periodo}}{Período em que foi mensurada a quantidade de
+ proteínas totais no plasma (antes ou depois da operação).}
\item{\code{prot}}{Quantidade de proteínas totais no plasma.}
@@ -24,10 +22,10 @@ Andrade, D. F., Ogliari, P. J. (2010). Estatística para as
9, pág. 408)
}
\description{
-Estudo sobre a possibilidade da quantidade de proteínas
- totais no plasma, depois de determinada operação em portadores de
- esquistossomose mansônica, ser diferente da quantidade de antes
- da operação.[VERIFICAR DESCRICAO]
+Estudo sobre a influência de uma determinada operação,
+ realizada em portadores de esquistossomose mansônica, na
+ quantidade de proteínas totais no plasma. No estudo mensurou-se a
+ quantidade de proteínas antes e depois da operação.
}
\examples{
--
GitLab
From 5bdc0b16dc30cbbfd560786702992d3a2ec8b416 Mon Sep 17 00:00:00 2001
From: Eduardo Junior <edujrrib@gmail.com>
Date: Fri, 2 Dec 2016 15:35:11 -0200
Subject: [PATCH 13/13] =?UTF-8?q?Realiza=20corre=C3=A7=C3=B5es=20ortogr?=
=?UTF-8?q?=C3=A1ficas?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit
---
R/AndradeEx8.13.R | 2 +-
R/AndradeEx8.17.R | 2 +-
R/AndradeTb8.6.R | 2 +-
man/AndradeEx8.13.Rd | 2 +-
man/AndradeEx8.17.Rd | 2 +-
man/AndradeTb8.6.Rd | 2 +-
6 files changed, 6 insertions(+), 6 deletions(-)
diff --git a/R/AndradeEx8.13.R b/R/AndradeEx8.13.R
index c9eaaa25..54009054 100644
--- a/R/AndradeEx8.13.R
+++ b/R/AndradeEx8.13.R
@@ -3,7 +3,7 @@
#' @description Estudo realizado por um agrônomo sobre o desenvolvimento
#' de duas espécies de árvores, Bracatinga (\emph{Mimosa scabrella})
#' e Canafístula (\emph{Peltophorum dubium}). O objetivo é
-#' verificar diferença entre o densenvolvimento das duas espécies,
+#' verificar diferença entre o desenvolvimento das duas espécies,
#' para tal uma amostra de 30 árvores foi avaliada. O
#' desenvolvimento foi mensurado pela altura das altura das árvores.
#' @format Um \code{data.frame} com 60 observações e 2 variáveis, em que
diff --git a/R/AndradeEx8.17.R b/R/AndradeEx8.17.R
index f7914e30..c29e4f7f 100644
--- a/R/AndradeEx8.17.R
+++ b/R/AndradeEx8.17.R
@@ -13,7 +13,7 @@
#'
#' \describe{
#'
-#' \item{\code{regiao}}{Região da plantação (Cerrado ou Rastinga).}
+#' \item{\code{regiao}}{Região da plantação (Cerrado ou Restinga).}
#'
#' \item{\code{altura}}{Altura, em centímetros, dos explantes de
#' \emph{Mandevilla} cultivadas \emph{in vitro} durante 45 dias.}
diff --git a/R/AndradeTb8.6.R b/R/AndradeTb8.6.R
index 6e819550..b596d721 100644
--- a/R/AndradeTb8.6.R
+++ b/R/AndradeTb8.6.R
@@ -1,5 +1,5 @@
#' @name AndradeTb8.6
-#' @title Avaliação de Classes Fenotípicas de Plantas Dihíbridas
+#' @title Avaliação de Classes Fenotípicas de Plantas Di-híbridas
#' @description Na descendência obtida de cruzamentos entre plantas
#' puras de ervilhas com sementes amarelas lisas e outras com
#' sementes verdes rugosas, obtêm-se na primeira geração (F1),
diff --git a/man/AndradeEx8.13.Rd b/man/AndradeEx8.13.Rd
index 9a3459a2..dd879dce 100644
--- a/man/AndradeEx8.13.Rd
+++ b/man/AndradeEx8.13.Rd
@@ -22,7 +22,7 @@ Andrade, D. F., Ogliari, P. J. (2010). Estatística para as
Estudo realizado por um agrônomo sobre o desenvolvimento
de duas espécies de árvores, Bracatinga (\emph{Mimosa scabrella})
e Canafístula (\emph{Peltophorum dubium}). O objetivo é
- verificar diferença entre o densenvolvimento das duas espécies,
+ verificar diferença entre o desenvolvimento das duas espécies,
para tal uma amostra de 30 árvores foi avaliada. O
desenvolvimento foi mensurado pela altura das altura das árvores.
}
diff --git a/man/AndradeEx8.17.Rd b/man/AndradeEx8.17.Rd
index 1b3957b7..e09bf2c3 100644
--- a/man/AndradeEx8.17.Rd
+++ b/man/AndradeEx8.17.Rd
@@ -7,7 +7,7 @@
\describe{
-\item{\code{regiao}}{Região da plantação (Cerrado ou Rastinga).}
+\item{\code{regiao}}{Região da plantação (Cerrado ou Restinga).}
\item{\code{altura}}{Altura, em centímetros, dos explantes de
\emph{Mandevilla} cultivadas \emph{in vitro} durante 45 dias.}
diff --git a/man/AndradeTb8.6.Rd b/man/AndradeTb8.6.Rd
index acc1f673..a03c4acc 100644
--- a/man/AndradeTb8.6.Rd
+++ b/man/AndradeTb8.6.Rd
@@ -2,7 +2,7 @@
% Please edit documentation in R/AndradeTb8.6.R
\name{AndradeTb8.6}
\alias{AndradeTb8.6}
-\title{Avaliação de Classes Fenotípicas de Plantas Dihíbridas}
+\title{Avaliação de Classes Fenotípicas de Plantas Di-híbridas}
\format{Um \code{data.frame} com 4 observações e 3 variáveis, em que
\describe{
--
GitLab