From c399bd31ea19d83931fdc47a028cc7e8eddaa6c5 Mon Sep 17 00:00:00 2001
From: Eduardo Junior <edujrrib@gmail.com>
Date: Wed, 26 Oct 2016 22:51:20 -0200
Subject: [PATCH] =?UTF-8?q?Modifica=20dados=20em=20Pg90=20para=20adequ?=
=?UTF-8?q?=C3=A1-los=20conforme=20Tb2.32?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit
Ambos datasets referem-se a pesos de bezerros, padronizou-se o nome das
colunas e os níveis (com primeira maiúscula), além disso adiciou-se o
@seealso e uma ilustração conjunta nos exemplos.
---
R/AndradePg90.R | 43 +++++++++++++++++++++++++++++++++++++++
R/AndradeTb2.32.R | 31 ++++++++++++++++++++--------
data-raw/AndradePg90.txt | 25 +++++++++++++++++++++++
data/AndradePg90.rda | Bin 0 -> 249 bytes
4 files changed, 91 insertions(+), 8 deletions(-)
create mode 100644 R/AndradePg90.R
create mode 100644 data-raw/AndradePg90.txt
create mode 100644 data/AndradePg90.rda
diff --git a/R/AndradePg90.R b/R/AndradePg90.R
new file mode 100644
index 00000000..3338728b
--- /dev/null
+++ b/R/AndradePg90.R
@@ -0,0 +1,43 @@
+#' @name AndradePg90
+#' @title Pesos de Bezerros Recém-Nascidos (Charoleza e Gir)
+#' @description Pesos ao nascer de 24 bezerros machos das raças
+#' Charoleza e Gir.
+#' @format Um \code{data.frame} com 24 observações e 2 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{raca}}{Fator de 2 níveis qualitativos que são as raças
+#' dos bezerros (Charoleza e Gir).}
+#'
+#' \item{\code{peso}}{Peso do bezerro macho recém nascido, em kg.}
+#'
+#' }
+#' @seealso \code{\link{AndradeTb2.32}}
+#' @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. (Página 90)
+#' @examples
+#'
+#' data(AndradePg90)
+#' str(AndradePg90)
+#'
+#' library(lattice)
+#' densityplot(~peso, groups = raca,
+#' data = AndradePg90,
+#' auto.key = list(
+#' corner = c(0.1, 0.9),
+#' title = "Raça do bezerro",
+#' cex.title = 1
+#' ))
+#'
+#' # Agrupando dados de AndradeTb2.32, um estudo similar.
+#' # help(AndradeTb2.32)
+#'
+#' da <- rbind(AndradePg90, AndradeTb2.32)
+#' bwplot(peso ~ raca,
+#' data = da,
+#' xlab = "Raça do Bezerro",
+#' ylab = "Peso (em kg)")
+#'
+NULL
diff --git a/R/AndradeTb2.32.R b/R/AndradeTb2.32.R
index 7d9b4920..8bd6e8bf 100644
--- a/R/AndradeTb2.32.R
+++ b/R/AndradeTb2.32.R
@@ -1,18 +1,19 @@
#' @name AndradeTb2.32
-#' @title Pesos de Bezerros Recém-Nascidos
-#' @description Pesos, em kg, ao nascer de 10 bezerros da raça de gado
-#' Crioula, e 10 da raça Nelore.
+#' @title Pesos de Bezerros Recém-Nascidos (Crioula e Nelore)
+#' @description Pesos, em quilogramas, ao nascer de bezerros da raça de
+#' gado Crioula e Nelore.
#' @format Um \code{data.frame} com 20 observações e 2 variáveis, em que
#'
#' \describe{
#'
-#' \item{\code{raca}}{Fator de 2 níveis qualitativos que são as raças
-#' dos bezerros recém-nascidos.}
+#' \item{\code{raca}}{Fator de 2 níveis que são as raças dos bezerros
+#' recém-nascidos.}
#'
#' \item{\code{peso}}{Peso, em kg, do bezerro recém-nascido.}
#'
#' }
-#' @keywords AAS
+#' @seealso \code{\link{AndradePg90}}
+#' @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 2.32, pág. 113)
@@ -21,10 +22,24 @@
#' data(AndradeTb2.32)
#' str(AndradeTb2.32)
#'
+#' with(AndradeTb2.32, by(peso, raca, summary))
+#'
#' library(lattice)
+#' densityplot(~peso, groups = raca,
+#' data = AndradePg90,
+#' auto.key = list(
+#' corner = c(0.1, 0.9),
+#' title = "Raça do bezerro",
+#' cex.title = 1
+#' ))
+#'
+#' # Agrupando dados de AndradePg90, um estudo similar.
+#' # help(AndradePg90)
+#'
+#' da <- rbind(AndradeTb2.32, AndradePg90)
#' bwplot(peso ~ raca,
-#' data = AndradeTb2.32,
+#' data = da,
#' xlab = "Raça do Bezerro",
#' ylab = "Peso (em kg)")
#'
-NULL
\ No newline at end of file
+NULL
diff --git a/data-raw/AndradePg90.txt b/data-raw/AndradePg90.txt
new file mode 100644
index 00000000..9069ce89
--- /dev/null
+++ b/data-raw/AndradePg90.txt
@@ -0,0 +1,25 @@
+raca peso
+Charoleza 47
+Charoleza 45
+Charoleza 37
+Charoleza 41
+Charoleza 46
+Charoleza 47
+Charoleza 34
+Charoleza 25
+Charoleza 40
+Charoleza 45
+Charoleza 48
+Charoleza 40
+Gir 40
+Gir 43
+Gir 44
+Gir 46
+Gir 48
+Gir 51
+Gir 54
+Gir 55
+Gir 56
+Gir 57
+Gir 55
+Gir 54
diff --git a/data/AndradePg90.rda b/data/AndradePg90.rda
new file mode 100644
index 0000000000000000000000000000000000000000..32a4514eb12a0b9c713c80baca48e713fcb86636
GIT binary patch
literal 249
zcmZ>Y%CIzaj8qGb+|b-Gg@NJf|AYUnJQ9TRZ$8jz2yoDUes_Wc1A_wt;|7Ku8#$J#
zsm)MRob2qz*}x#x%4KpnE2(PcA_HMxTLwlp6HXzojKhJ8)t7wnG38Nfo8i_Ye8{ES
zCr_gD?##}&;Ys$Eb~&$X^e;Dk6<;*#qVFG(h;E6(tCO_ue|6VMXy%>Kb@g%0om-5e
zmNT-H9Bxg}4{76wlnQ9$+~}*}&>N-bxp1T4<DCvx3W3tkx{l1wi|Q@=yHO!W^7Z2B
z6P*+{KGTpCI2V%DCS+fF_{@qkXFFcy7+1XHIwGv}h^eP(dL;9c1i44=JeG3_i3t=4
GH2?sbr)Pfv
literal 0
HcmV?d00001
--
GitLab