From a3fa3fbab4c6dbf875d2fd6f2df5279b12a8e627 Mon Sep 17 00:00:00 2001
From: Eduardo Junior <edujrrib@gmail.com>
Date: Thu, 17 Nov 2016 23:16:22 -0200
Subject: [PATCH] =?UTF-8?q?Corre=C3=A7=C3=B5es=20textuais=20e=20de=20nomen?=
=?UTF-8?q?clatura=20de=20vari=C3=A1veis?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit
---
R/AndradeEg7.5.R | 17 ++++++--------
R/AndradeEx4.14.R | 25 ++++++++++++--------
R/AndradeEx4.9.R | 33 +++++++++++++++-----------
R/AndradeEx7.13.R | 31 +++++++++++++-----------
R/AndradeEx7.3.R | 11 ++++-----
R/AndradeTb6.1.R | 47 +++++++++++++++++++++----------------
R/AndradeTb6.2.R | 22 ++++++++---------
data-raw/AndradeEx4.14.txt | 2 +-
data-raw/AndradeEx4.9.txt | 3 +--
data/AndradeEx4.14.rda | Bin 166 -> 170 bytes
data/AndradeEx4.9.rda | Bin 240 -> 183 bytes
man/AndradeEg7.5.Rd | 15 +++++-------
man/AndradeEx4.14.Rd | 23 +++++++++++-------
man/AndradeEx4.9.Rd | 31 ++++++++++++++----------
man/AndradeEx7.13.Rd | 29 +++++++++++++----------
man/AndradeEx7.3.Rd | 9 ++++---
man/AndradeTb6.1.Rd | 45 ++++++++++++++++++++---------------
man/AndradeTb6.2.Rd | 20 ++++++++--------
18 files changed, 197 insertions(+), 166 deletions(-)
diff --git a/R/AndradeEg7.5.R b/R/AndradeEg7.5.R
index faa07028..3675115a 100644
--- a/R/AndradeEg7.5.R
+++ b/R/AndradeEg7.5.R
@@ -1,9 +1,9 @@
#' @name AndradeEg7.5
#' @title Pesos de Pacotes de Sementes de Milho
-#' @description Sabendo-se que a distribuição dos pesos de pacotes de
-#' sementes de milho enchidos automaticamente por uma certa máquina,
-#' é normal, com desvio padrão conhecido e igual a 0,20kg, uma
-#' amostra de 15 pacotes foi retirada ao acaso.
+#' @description Amostra de 15 pacotes de sementes de milho, enchidos por
+#' uma máquina. Supõe-se que os pacotes enchidos por essa máquina
+#' são normalmente distribuídos com média [???] e desvio padrão 0,2
+#' Kg.
#' @format Um \code{vector} numérico com 15 observações.
#' @keywords AAS
#' @source Andrade, D. F., Ogliari, P. J. (2010). Estatística para as
@@ -15,16 +15,13 @@
#' str(AndradeEg7.5)
#'
#' hist(AndradeEg7.5,
-#' prob = TRUE,
#' labels = TRUE,
#' col = "darkturquoise",
#' xlab = "Peso do Pacote (em kg)",
#' ylab = "Densidade",
#' main = NULL,
-#' ylim = c(0, 2.8))
-#'
-#' lines(density(AndradeEg7.5), lwd = 2)
-#' rug(AndradeEg7.5)
+#' border = "white")
+#' rug(AndradeEg7.5, lwd = 2, col = "darkturquoise")
#'
#' boxplot(AndradeEg7.5,
#' ylab = "Peso do Pacote (em kg)")
@@ -33,4 +30,4 @@
#' sd(AndradeEg7.5)
#' fivenum(AndradeEg7.5)
#'
-NULL
\ No newline at end of file
+NULL
diff --git a/R/AndradeEx4.14.R b/R/AndradeEx4.14.R
index f20c93f6..896e1a62 100644
--- a/R/AndradeEx4.14.R
+++ b/R/AndradeEx4.14.R
@@ -1,18 +1,19 @@
#' @name AndradeEx4.14
-#' @title Número de Parcelas com X Plantas Doentes
-#' @description Avaliaram-se 30 parcelas (área da terra de
-#' \eqn{20 m^{2}}) de 27 plantas de mandioca cada uma, de acordo com
-#' o número de plantas doentes colhidas.
+#' @title Plantas Doentes no Cultivo de Mandioca
+#' @description Avaliaram-se 30 parcelas (área da terra de \eqn{20
+#' m^{2}}) de 27 plantas de mandioca cada uma, contabilizando o
+#' número de plantas doentes colhidas.
#' @format Um \code{data.frame} com 5 observações e 2 variáveis, em que
#'
#' \describe{
#'
-#' \item{\code{x}}{Número de plantas doentes na parcela.}
+#' \item{\code{nplantas}}{Número de plantas doentes na parcela.}
#'
-#' \item{\code{quadrados}}{Número de parcelas com x plantas doentes.}
+#' \item{\code{nparc}}{Número de parcelas com \code{nplantas} plantas
+#' doentes.}
#'
#' }
-#' @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. (Capítulo 4, Exercício
@@ -22,10 +23,14 @@
#' data(AndradeEx4.14)
#' str(AndradeEx4.14)
#'
-#' barplot(AndradeEx4.14$parcelas,
+#' # Média do número de plantas doentes por parcela
+#' with(AndradeEx4.14, weighted.mean(nplantas, nparc))
+#'
+#' # Distribuição de frequências
+#' barplot(AndradeEx4.14$nparc,
#' col = "darkturquoise",
-#' names.arg = AndradeEx4.14$x,
+#' names.arg = AndradeEx4.14$nplantas,
#' xlab = "Número de Plantas Doentes na Parcela",
#' ylab = "Número de Parcelas")
#'
-NULL
\ No newline at end of file
+NULL
diff --git a/R/AndradeEx4.9.R b/R/AndradeEx4.9.R
index 345c19f0..452ab653 100644
--- a/R/AndradeEx4.9.R
+++ b/R/AndradeEx4.9.R
@@ -1,19 +1,19 @@
#' @name AndradeEx4.9
-#' @title Número de Quadrados com X Plantas
-#' @description Uma certa região florestal foi dividida em 109 quadrados
-#' para estudar a distribuição de \emph{Primula simenses} selvagem.
-#' A priori, supomos que essa espécie distribui-se aleatoriamente na
-#' região.
+#' @title Ocorrências de Plantas \emph{Primula Sinensis} Selvagens
+#' @description Uma certa região florestal foi dividida em 109 parcelas
+#' de mesma área (quadrados) para se estudar a distribuição das
+#' plantas \emph{Primula sinensis} selvagens na região. A priori,
+#' supõe-se que plantas dessa espécie distribuem-se aleatoriamente.
#' @format Um \code{data.frame} com 10 observações e 2 variáveis, em que
#'
#' \describe{
#'
-#' \item{\code{x}}{Número de plantas no quadrado.}
+#' \item{\code{nplantas}}{Número de plantas na parcela.}
#'
-#' \item{\code{quadrados}}{Número de quadrados com x plantas.}
+#' \item{\code{nparc}}{Número de parcelas com \code{nplantas} plantas.}
#'
#' }
-#' @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. (Capítulo 4, Exercício
@@ -23,10 +23,15 @@
#' data(AndradeEx4.9)
#' str(AndradeEx4.9)
#'
-#' barplot(AndradeEx4.9$quadrados,
-#' col = "darkturquoise",
-#' names.arg = AndradeEx4.9$x,
-#' xlab = "Número de Plantas no Quadrado",
-#' ylab = "Número de Quadrados")
+#' #' # Média do número de plantas doentes por parcela
+#' with(AndradeEx4.9, weighted.mean(nplantas, nparc))
#'
-NULL
\ No newline at end of file
+#' # Distribuição de frequências
+#' txt <- barplot(AndradeEx4.9$nparc,
+#' col = "darkturquoise",
+#' names.arg = AndradeEx4.9$nplantas,
+#' xlab = "Número de Plantas no Quadrado",
+#' ylab = "Número de Quadrados")
+#' text(x = txt, y = AndradeEx4.9$nparc)
+#'
+NULL
diff --git a/R/AndradeEx7.13.R b/R/AndradeEx7.13.R
index 6bbf9334..e739283a 100644
--- a/R/AndradeEx7.13.R
+++ b/R/AndradeEx7.13.R
@@ -1,20 +1,18 @@
#' @name AndradeEx7.13
-#' @title Estudo do Desenvolvimento de Duas Espécies de Árvores
-#' @description Estudo, realizado por um agrônomo, sobre o
-#' desenvolvimento de duas espécies de árvores, a Bracatinga e a
-#' Canafístula. Para essa finalidade foram coletadas duas amostras
-#' de tamanhos iguais a 10 árvores.
+#' @title Comparação de Alturas de Duas Espécies de Árvores
+#' @description Estudo realizado por um agrônomo sobre o desenvolvimento
+#' de duas espécies de árvores, a Bracatinga e a Canafístula. O
+#' desenvolvimento foi mensurado com base na altura das árvores.
#' @format Um \code{data.frame} com 20 observações e 2 variáveis, em que
#'
#' \describe{
#'
-#' \item{\code{arvore}}{Fator de 2 níveis qualitativos, que são as
-#' espécies das árvores.}
+#' \item{\code{arvore}}{Espécies da árvore.}
#'
-#' \item{\code{altura}}{Altura das árvores, em metros.}
+#' \item{\code{altura}}{Altura da árvore, em metros.}
#'
#' }
-#' @keywords DBC
+#' @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 7, Exercício
@@ -24,10 +22,15 @@
#' data(AndradeEx7.13)
#' str(AndradeEx7.13)
#'
+#' with(AndradeEx7.13, by(altura, arvore, summary))
+#'
#' library(lattice)
-#' dotplot(altura ~ arvore,
-#' data = AndradeEx7.13,
-#' xlab = "Espécie",
-#' ylab = "Altura (m)")
+#' densityplot(~altura, groups = arvore,
+#' data = AndradeEx7.13,
+#' auto.key = list(
+#' corner = c(0.9, 0.9),
+#' title = "Espécie da árvore",
+#' cex.title = 1
+#' ))
#'
-NULL
\ No newline at end of file
+NULL
diff --git a/R/AndradeEx7.3.R b/R/AndradeEx7.3.R
index 05e0edbc..257f6f22 100644
--- a/R/AndradeEx7.3.R
+++ b/R/AndradeEx7.3.R
@@ -1,8 +1,8 @@
#' @name AndradeEx7.3
#' @title Diâmetros de Árvores de Eucalipto
-#' @description De um povoamento de eucaliptos, sortearam-se 30 árvores
-#' e determinaram-se os diâmetros, em cm, com a finalidade de
-#' estimar o diâmetro médio do povoamento.
+#' @description Estudo em que sortearam-se 30 árvores, de um povoamento
+#' de eucaliptos e mensuraram-se seus diâmetros à altura do peito,
+#' com a finalidade de se estimar o diâmetro médio do povoamento.
#' @format Um \code{vector} numérico com 30 observações.
#' @keywords AAS
#' @source Andrade, D. F., Ogliari, P. J. (2010). Estatística para as
@@ -16,7 +16,6 @@
#'
#' hist(AndradeEx7.3,
#' prob = TRUE,
-#' labels = TRUE,
#' col = "darkturquoise",
#' xlab = "Diâmetro (em cm)",
#' ylab = "Densidade",
@@ -24,7 +23,7 @@
#' ylim = c(0, 0.055))
#'
#' lines(density(AndradeEx7.3), lwd = 2)
-#' rug(AndradeEx7.3)
+#' rug(AndradeEx7.3, lwd = 2)
#'
#' boxplot(AndradeEx7.3,
#' ylab = "Diâmetro (em cm)")
@@ -33,4 +32,4 @@
#' sd(AndradeEx7.3)
#' fivenum(AndradeEx7.3)
#'
-NULL
\ No newline at end of file
+NULL
diff --git a/R/AndradeTb6.1.R b/R/AndradeTb6.1.R
index a5b7ab91..d5fbbc9a 100644
--- a/R/AndradeTb6.1.R
+++ b/R/AndradeTb6.1.R
@@ -1,26 +1,22 @@
#' @name AndradeTb6.1
-#' @title Produção por Planta de Maçãs das Cultivares Gala e Golden
-#' @description Estudo para avaliar a produção média por palnta da
-#' cultivar de maçã denominada Gala, para as seguintes condições:
-#' plantas com idade de aproximadamente 5 anos, em bom estado
-#' fitossanitário, cultivadas com alta tecnologia e para a região I
-#' do zoneamento agroclimático de Santa Catarina. A população é
-#' formada por todas as plantas da cultivar Gala nas condições
-#' citadas. Mais especificamente, a população é constituída por
-#' todos os valores de produção por planta. Para essa finalidade,
-#' foi coletado uma amostra aleatória de 10 plantas, da referida
-#' cultivar nas condições descritas.
+#' @title Produção de Maçãs das Cultivares Gala e Golden
+#' @description Estudo para avaliar a produção média por planta das
+#' cultivares de maçã Gala e Golden. O estudo foi conduzido apenas
+#' com plantas nas seguintes condições: idade de aproximadamente 5
+#' anos, em bom estado fitossanitário, cultivadas com alta
+#' tecnologia e para a região I do zoneamento agroclimático de Santa
+#' Catarina. A produção foi avaliada pelo peso de maças produzidas
+#' por planta (macieira).
#' @format Um \code{data.frame} com 20 observações e 2 variáveis, em que
#'
#' \describe{
#'
-#' \item{\code{varied}}{Fator de 2 níveis qualitativos, que são as
-#' variedades de maçãs.}
+#' \item{\code{varied}}{Variedade da maça produzida (Gala ou Golden).}
#'
-#' \item{\code{prod}}{Produção por planta de maçãs, em kg.}
+#' \item{\code{prod}}{Produção da planta (macieira), em kg.}
#'
#' }
-#' @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. (Tabela 6.1, pág. 284)
@@ -29,9 +25,20 @@
#' data(AndradeTb6.1)
#' str(AndradeTb6.1)
#'
-#' boxplot(prod ~ varied,
-#' data = AndradeTb6.1,
-#' xlab = "Variedade",
-#' ylab = "Produção (kg)")
+#' with(AndradeTb6.1, by(prod, varied, summary))
#'
-NULL
\ No newline at end of file
+#' library(lattice)
+#' bwplot(prod ~ varied,
+#' data = AndradeTb6.1,
+#' xlab = "Variedade",
+#' ylab = "Produção (kg)")
+#'
+#' densityplot(~prod, groups = varied,
+#' data = AndradeTb6.1,
+#' auto.key = list(
+#' corner = c(0.9, 0.9),
+#' title = "Variedade das maças",
+#' cex.title = 1
+#' ))
+#'
+NULL
diff --git a/R/AndradeTb6.2.R b/R/AndradeTb6.2.R
index 9eb43cea..9f2e0ed2 100644
--- a/R/AndradeTb6.2.R
+++ b/R/AndradeTb6.2.R
@@ -11,7 +11,7 @@
#' \item{\code{freq}}{Frequência absoluta das alturas das alunas.}
#'
#' }
-#' @keywords CENSO
+#' @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 6.2, pág. 289)
@@ -22,22 +22,22 @@
#'
#' # Gráfico de barras
#' with(AndradeTb6.2, {
-#' fr <- paste0("(", round(100 * freq / sum(freq)), "% )")
-#' bp <- barplot(freq,
-#' names.arg = altura,
+#' fr <- paste0("(", round(100 * freq / sum(freq)), "%)")
+#' bp <- barplot(freq,
+#' names.arg = altura,
#' col = "darkturquoise",
-#' beside = TRUE,
+#' beside = TRUE,
#' ylim = c(0, 5),
#' xlab = "Altura das Alunas",
#' ylab = "Frequência Absoluta")
-#' text(bp, freq + 0.3, labels = paste(freq, fr))
-#' })
+#' text(bp, freq + 0.3, labels = paste(freq, fr), srt = 90)
+#' })
#'
-#' # Gráfico de setores
-#' with(AndradeTb6.2, {
+#' # Gráfico de setores
+#' with(AndradeTb6.2, {
#' fr <- paste0("(", round(100 * freq / sum(freq)), "%)")
-#' pie(freq, labels = paste(altura, "metros", fr),
+#' pie(freq, labels = paste(altura, "metros", fr),
#' col = gray.colors(length(freq)))
#' })
#'
-NULL
\ No newline at end of file
+NULL
diff --git a/data-raw/AndradeEx4.14.txt b/data-raw/AndradeEx4.14.txt
index 23357f32..36fab3c0 100644
--- a/data-raw/AndradeEx4.14.txt
+++ b/data-raw/AndradeEx4.14.txt
@@ -1,4 +1,4 @@
-x parcelas
+nplantas nparc
0 14
1 8
2 4
diff --git a/data-raw/AndradeEx4.9.txt b/data-raw/AndradeEx4.9.txt
index d9b0dcea..cf0fab51 100644
--- a/data-raw/AndradeEx4.9.txt
+++ b/data-raw/AndradeEx4.9.txt
@@ -1,4 +1,4 @@
-x quadrados
+nplantas nparc
0 26
1 21
2 23
@@ -8,4 +8,3 @@ x quadrados
6 5
7 4
8 1
->8 0
diff --git a/data/AndradeEx4.14.rda b/data/AndradeEx4.14.rda
index a232daf9d3da4b1b3c6114ec1172ac6096a7cb36..dcea1d8ef2f75b5e7752c43e36bec4a6b35ec321 100644
GIT binary patch
delta 150
zcmZ3+xQda_DJsL#&@oaiIFkF3h`~fY*?LjiMF|V48l(eXWxlEo;qhdcp*E9;VWz<q
zr-|DNJsmIfFuQc6#eJ$aU2tg4L2+R@%`hgVS&T{#rDyDzsHws1#M<CEL0`>ba{Vy|
zBg@C@VyDlad&l}}NUeCt)v~K!>SU58o;`B>&KFM?ch03cIqF)szcx1i(|giYuuwt#
Hh(-bcrhGlH
delta 146
zcmZ3*xQvm{DJsL#&@oaiI5M)}-iwKRvel~g4$EIG$lx`b@MX5C!%>yX3=9kmeA!+;
z-Ou_aIjS@sWVsRA;$Q4~HO(bfLiV&Vi^~xfj%ECU8G@V|%t{_&3=O=?CbB$CW?-8V
zFL123_+gt#s2F$R>P#8M^4kf|_uO-r4ffsM*7>o`J9Pc4Hnw{4B3Fxm2_WkMDTOzu
diff --git a/data/AndradeEx4.9.rda b/data/AndradeEx4.9.rda
index d5d4bd1fd11b6ba9ac2714336ad807f9f9b94488..b28fc7b4ca3bed31ec7c60e2d50e65ab6460d30d 100644
GIT binary patch
literal 183
zcmZ>Y%CIzaj8qGbT$TB(kb$A%|AGJiy(Ta)iYTZt2sr4o-#OsGz`&@$(8Vh-Z{@2>
zU*lk3W?x&iS?nvHvP@DjP`J#XkYU1WuIie(L_0ax)$VNL!6&D_t&cEd{`Dh2V&9i@
z6Iddon%13n;*5}Ne3D;OG3BKJyO?leyTJle2?eJ9{h<OpM#n9e8lCoD*WVRTC$v~p
oYfFx_iDB{vr|6W*jqmtoEALX<<P~Jm|LC2^axNiJUz>9Z0CSK=d;kCd
literal 240
zcmZ>Y%CIzaj8qGb<g?c0U|={@f8hUruL%r{^$*n;1RV6)_aAUzU}W6DuysaLlPwdE
z36sQ?%Zx?_vv_@ZeciXJFI&LCz`&5Xm8EL}F9Wj!1Fsb0!iA=9MFf-_78Dv6UU+_x
ziL=?mKZ!^5prXs3(83}G%R4`JZnx;*yx_^j+mthbf#aBi3<qo6-9Nsz9G~{9Ii;=c
z%yKX@;f{82XfvBCc|k=(LgB^LGT|GuLzm22wB$ro@9{9ZjVWFJ`%31|KNMMgzqMJ*
w&ztXS{--zBf`eu(vA%LJv;R@RtU^xdLT~xGUe`A4fAr2{IhPRQ@zjM30AX5Pf&c&j
diff --git a/man/AndradeEg7.5.Rd b/man/AndradeEg7.5.Rd
index 6c12d5af..ddab206b 100644
--- a/man/AndradeEg7.5.Rd
+++ b/man/AndradeEg7.5.Rd
@@ -10,10 +10,10 @@ Andrade, D. F., Ogliari, P. J. (2010). Estatística para as
ed.). Florianópolis, SC. Editora da UFSC. (Exemplo 7.5, pág. 324)
}
\description{
-Sabendo-se que a distribuição dos pesos de pacotes de
- sementes de milho enchidos automaticamente por uma certa máquina,
- é normal, com desvio padrão conhecido e igual a 0,20kg, uma
- amostra de 15 pacotes foi retirada ao acaso.
+Amostra de 15 pacotes de sementes de milho, enchidos por
+ uma máquina. Supõe-se que os pacotes enchidos por essa máquina
+ são normalmente distribuídos com média [???] e desvio padrão 0,2
+ Kg.
}
\examples{
@@ -21,16 +21,13 @@ data(AndradeEg7.5)
str(AndradeEg7.5)
hist(AndradeEg7.5,
- prob = TRUE,
labels = TRUE,
col = "darkturquoise",
xlab = "Peso do Pacote (em kg)",
ylab = "Densidade",
main = NULL,
- ylim = c(0, 2.8))
-
-lines(density(AndradeEg7.5), lwd = 2)
-rug(AndradeEg7.5)
+ border = "white")
+rug(AndradeEg7.5, lwd = 2, col = "darkturquoise")
boxplot(AndradeEg7.5,
ylab = "Peso do Pacote (em kg)")
diff --git a/man/AndradeEx4.14.Rd b/man/AndradeEx4.14.Rd
index 13d9e155..b965234b 100644
--- a/man/AndradeEx4.14.Rd
+++ b/man/AndradeEx4.14.Rd
@@ -2,14 +2,15 @@
% Please edit documentation in R/AndradeEx4.14.R
\name{AndradeEx4.14}
\alias{AndradeEx4.14}
-\title{Número de Parcelas com X Plantas Doentes}
+\title{Plantas Doentes no Cultivo de Mandioca}
\format{Um \code{data.frame} com 5 observações e 2 variáveis, em que
\describe{
-\item{\code{x}}{Número de plantas doentes na parcela.}
+\item{\code{nplantas}}{Número de plantas doentes na parcela.}
-\item{\code{quadrados}}{Número de parcelas com x plantas doentes.}
+\item{\code{nparc}}{Número de parcelas com \code{nplantas} plantas
+ doentes.}
}}
\source{
@@ -19,21 +20,25 @@ Andrade, D. F., Ogliari, P. J. (2010). Estatística para as
14, pág. 239)
}
\description{
-Avaliaram-se 30 parcelas (área da terra de
- \eqn{20 m^{2}}) de 27 plantas de mandioca cada uma, de acordo com
- o número de plantas doentes colhidas.
+Avaliaram-se 30 parcelas (área da terra de \eqn{20
+ m^{2}}) de 27 plantas de mandioca cada uma, contabilizando o
+ número de plantas doentes colhidas.
}
\examples{
data(AndradeEx4.14)
str(AndradeEx4.14)
-barplot(AndradeEx4.14$parcelas,
+# Média do número de plantas doentes por parcela
+with(AndradeEx4.14, weighted.mean(nplantas, nparc))
+
+# Distribuição de frequências
+barplot(AndradeEx4.14$nparc,
col = "darkturquoise",
- names.arg = AndradeEx4.14$x,
+ names.arg = AndradeEx4.14$nplantas,
xlab = "Número de Plantas Doentes na Parcela",
ylab = "Número de Parcelas")
}
-\keyword{DBC}
+\keyword{contingência*}
diff --git a/man/AndradeEx4.9.Rd b/man/AndradeEx4.9.Rd
index 2739ac3c..f89df143 100644
--- a/man/AndradeEx4.9.Rd
+++ b/man/AndradeEx4.9.Rd
@@ -2,14 +2,14 @@
% Please edit documentation in R/AndradeEx4.9.R
\name{AndradeEx4.9}
\alias{AndradeEx4.9}
-\title{Número de Quadrados com X Plantas}
+\title{Ocorrências de Plantas \emph{Primula Sinensis} Selvagens}
\format{Um \code{data.frame} com 10 observações e 2 variáveis, em que
\describe{
-\item{\code{x}}{Número de plantas no quadrado.}
+\item{\code{nplantas}}{Número de plantas na parcela.}
-\item{\code{quadrados}}{Número de quadrados com x plantas.}
+\item{\code{nparc}}{Número de parcelas com \code{nplantas} plantas.}
}}
\source{
@@ -19,22 +19,27 @@ Andrade, D. F., Ogliari, P. J. (2010). Estatística para as
9, pág. 238)
}
\description{
-Uma certa região florestal foi dividida em 109 quadrados
- para estudar a distribuição de \emph{Primula simenses} selvagem.
- A priori, supomos que essa espécie distribui-se aleatoriamente na
- região.
+Uma certa região florestal foi dividida em 109 parcelas
+ de mesma área (quadrados) para se estudar a distribuição das
+ plantas \emph{Primula sinensis} selvagens na região. A priori,
+ supõe-se que plantas dessa espécie distribuem-se aleatoriamente.
}
\examples{
data(AndradeEx4.9)
str(AndradeEx4.9)
-barplot(AndradeEx4.9$quadrados,
- col = "darkturquoise",
- names.arg = AndradeEx4.9$x,
- xlab = "Número de Plantas no Quadrado",
- ylab = "Número de Quadrados")
+#' # Média do número de plantas doentes por parcela
+with(AndradeEx4.9, weighted.mean(nplantas, nparc))
+
+# Distribuição de frequências
+txt <- barplot(AndradeEx4.9$nparc,
+ col = "darkturquoise",
+ names.arg = AndradeEx4.9$nplantas,
+ xlab = "Número de Plantas no Quadrado",
+ ylab = "Número de Quadrados")
+text(x = txt, y = AndradeEx4.9$nparc)
}
-\keyword{AAS}
+\keyword{contingência*}
diff --git a/man/AndradeEx7.13.Rd b/man/AndradeEx7.13.Rd
index 84a7d5c3..fc5f4b18 100644
--- a/man/AndradeEx7.13.Rd
+++ b/man/AndradeEx7.13.Rd
@@ -2,15 +2,14 @@
% Please edit documentation in R/AndradeEx7.13.R
\name{AndradeEx7.13}
\alias{AndradeEx7.13}
-\title{Estudo do Desenvolvimento de Duas Espécies de Árvores}
+\title{Comparação de Alturas de Duas Espécies de Árvores}
\format{Um \code{data.frame} com 20 observações e 2 variáveis, em que
\describe{
-\item{\code{arvore}}{Fator de 2 níveis qualitativos, que são as
- espécies das árvores.}
+\item{\code{arvore}}{Espécies da árvore.}
-\item{\code{altura}}{Altura das árvores, em metros.}
+\item{\code{altura}}{Altura da árvore, em metros.}
}}
\source{
@@ -20,22 +19,26 @@ Andrade, D. F., Ogliari, P. J. (2010). Estatística para as
13, pág. 344)
}
\description{
-Estudo, realizado por um agrônomo, sobre o
- desenvolvimento de duas espécies de árvores, a Bracatinga e a
- Canafístula. Para essa finalidade foram coletadas duas amostras
- de tamanhos iguais a 10 árvores.
+Estudo realizado por um agrônomo sobre o desenvolvimento
+ de duas espécies de árvores, a Bracatinga e a Canafístula. O
+ desenvolvimento foi mensurado com base na altura das árvores.
}
\examples{
data(AndradeEx7.13)
str(AndradeEx7.13)
+with(AndradeEx7.13, by(altura, arvore, summary))
+
library(lattice)
-dotplot(altura ~ arvore,
- data = AndradeEx7.13,
- xlab = "Espécie",
- ylab = "Altura (m)")
+densityplot(~altura, groups = arvore,
+ data = AndradeEx7.13,
+ auto.key = list(
+ corner = c(0.9, 0.9),
+ title = "Espécie da árvore",
+ cex.title = 1
+ ))
}
-\keyword{DBC}
+\keyword{AASI}
diff --git a/man/AndradeEx7.3.Rd b/man/AndradeEx7.3.Rd
index 195ae98d..89ef43dc 100644
--- a/man/AndradeEx7.3.Rd
+++ b/man/AndradeEx7.3.Rd
@@ -11,9 +11,9 @@ Andrade, D. F., Ogliari, P. J. (2010). Estatística para as
3, pág. 342)
}
\description{
-De um povoamento de eucaliptos, sortearam-se 30 árvores
- e determinaram-se os diâmetros, em cm, com a finalidade de
- estimar o diâmetro médio do povoamento.
+Estudo em que sortearam-se 30 árvores, de um povoamento
+ de eucaliptos e mensuraram-se seus diâmetros à altura do peito,
+ com a finalidade de se estimar o diâmetro médio do povoamento.
}
\examples{
@@ -22,7 +22,6 @@ str(AndradeEx7.3)
hist(AndradeEx7.3,
prob = TRUE,
- labels = TRUE,
col = "darkturquoise",
xlab = "Diâmetro (em cm)",
ylab = "Densidade",
@@ -30,7 +29,7 @@ hist(AndradeEx7.3,
ylim = c(0, 0.055))
lines(density(AndradeEx7.3), lwd = 2)
-rug(AndradeEx7.3)
+rug(AndradeEx7.3, lwd = 2)
boxplot(AndradeEx7.3,
ylab = "Diâmetro (em cm)")
diff --git a/man/AndradeTb6.1.Rd b/man/AndradeTb6.1.Rd
index cd876609..29956a54 100644
--- a/man/AndradeTb6.1.Rd
+++ b/man/AndradeTb6.1.Rd
@@ -2,15 +2,14 @@
% Please edit documentation in R/AndradeTb6.1.R
\name{AndradeTb6.1}
\alias{AndradeTb6.1}
-\title{Produção por Planta de Maçãs das Cultivares Gala e Golden}
+\title{Produção de Maçãs das Cultivares Gala e Golden}
\format{Um \code{data.frame} com 20 observações e 2 variáveis, em que
\describe{
-\item{\code{varied}}{Fator de 2 níveis qualitativos, que são as
- variedades de maçãs.}
+\item{\code{varied}}{Variedade da maça produzida (Gala ou Golden).}
-\item{\code{prod}}{Produção por planta de maçãs, em kg.}
+\item{\code{prod}}{Produção da planta (macieira), em kg.}
}}
\source{
@@ -19,27 +18,35 @@ Andrade, D. F., Ogliari, P. J. (2010). Estatística para as
ed.). Florianópolis, SC. Editora da UFSC. (Tabela 6.1, pág. 284)
}
\description{
-Estudo para avaliar a produção média por palnta da
- cultivar de maçã denominada Gala, para as seguintes condições:
- plantas com idade de aproximadamente 5 anos, em bom estado
- fitossanitário, cultivadas com alta tecnologia e para a região I
- do zoneamento agroclimático de Santa Catarina. A população é
- formada por todas as plantas da cultivar Gala nas condições
- citadas. Mais especificamente, a população é constituída por
- todos os valores de produção por planta. Para essa finalidade,
- foi coletado uma amostra aleatória de 10 plantas, da referida
- cultivar nas condições descritas.
+Estudo para avaliar a produção média por planta das
+ cultivares de maçã Gala e Golden. O estudo foi conduzido apenas
+ com plantas nas seguintes condições: idade de aproximadamente 5
+ anos, em bom estado fitossanitário, cultivadas com alta
+ tecnologia e para a região I do zoneamento agroclimático de Santa
+ Catarina. A produção foi avaliada pelo peso de maças produzidas
+ por planta (macieira).
}
\examples{
data(AndradeTb6.1)
str(AndradeTb6.1)
-boxplot(prod ~ varied,
- data = AndradeTb6.1,
- xlab = "Variedade",
- ylab = "Produção (kg)")
+with(AndradeTb6.1, by(prod, varied, summary))
+
+library(lattice)
+bwplot(prod ~ varied,
+ data = AndradeTb6.1,
+ xlab = "Variedade",
+ ylab = "Produção (kg)")
+
+densityplot(~prod, groups = varied,
+ data = AndradeTb6.1,
+ auto.key = list(
+ corner = c(0.9, 0.9),
+ title = "Variedade das maças",
+ cex.title = 1
+ ))
}
-\keyword{AAS}
+\keyword{AASI}
diff --git a/man/AndradeTb6.2.Rd b/man/AndradeTb6.2.Rd
index b0818600..1877cd4d 100644
--- a/man/AndradeTb6.2.Rd
+++ b/man/AndradeTb6.2.Rd
@@ -28,24 +28,24 @@ str(AndradeTb6.2)
# Gráfico de barras
with(AndradeTb6.2, {
- fr <- paste0("(", round(100 * freq / sum(freq)), "\% )")
- bp <- barplot(freq,
- names.arg = altura,
+ fr <- paste0("(", round(100 * freq / sum(freq)), "\%)")
+ bp <- barplot(freq,
+ names.arg = altura,
col = "darkturquoise",
- beside = TRUE,
+ beside = TRUE,
ylim = c(0, 5),
xlab = "Altura das Alunas",
ylab = "Frequência Absoluta")
- text(bp, freq + 0.3, labels = paste(freq, fr))
- })
+ text(bp, freq + 0.3, labels = paste(freq, fr), srt = 90)
+ })
-# Gráfico de setores
-with(AndradeTb6.2, {
+# Gráfico de setores
+with(AndradeTb6.2, {
fr <- paste0("(", round(100 * freq / sum(freq)), "\%)")
- pie(freq, labels = paste(altura, "metros", fr),
+ pie(freq, labels = paste(altura, "metros", fr),
col = gray.colors(length(freq)))
})
}
-\keyword{CENSO}
+\keyword{contingência*}
--
GitLab