From 1755915531446f02302941761689720a53ee6ade Mon Sep 17 00:00:00 2001
From: Walmes Zeviani <walmes@ufpr.br>
Date: Tue, 1 Mar 2016 14:04:30 -0300
Subject: [PATCH] =?UTF-8?q?Adiciona=20quadro=203.2.1=20do=20Banzatto=20&?=
=?UTF-8?q?=20Kronka=20para=20refer=C3=AAncia.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit
---
R/BanzattoQd3.2.1.R | 37 ++++++++++++++++++++++++++++
data-raw/BanzattoQd3.2.1.txt | 31 ++++++++++++++++++++++++
data/BanzattoQd3.2.1.rda | Bin 0 -> 339 bytes
man/BanzattoQd3.2.1.Rd | 45 +++++++++++++++++++++++++++++++++++
4 files changed, 113 insertions(+)
create mode 100644 R/BanzattoQd3.2.1.R
create mode 100644 data-raw/BanzattoQd3.2.1.txt
create mode 100644 data/BanzattoQd3.2.1.rda
create mode 100644 man/BanzattoQd3.2.1.Rd
diff --git a/R/BanzattoQd3.2.1.R b/R/BanzattoQd3.2.1.R
new file mode 100644
index 0000000..02c8c69
--- /dev/null
+++ b/R/BanzattoQd3.2.1.R
@@ -0,0 +1,37 @@
+#' @name BanzattoQd3.2.1
+#' @title Controle de pulgão na cultura de pepino
+#' @description Dados de um experimento visando controle de pulgão
+#' (\emph{Aphis gossypii} Glover) em cultura de pepino, instalado em
+#' delineamento inteiramente casualizado com 6 repetições. A
+#' resposta observada foi o número de pulgões após a aplicação de
+#' produtos indicados para seu controle.
+#' @format Um \code{data.frame} com 30 observações e 3 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{trat}{Fator de níveis nominais. Tratamento aplicado para
+#' controle do púlgão.}
+#'
+#' \item{rept}{Número inteiro que identifica as repetições de cada
+#' tratamento.}
+#'
+#' \item{pulgoes}{Número de pulgões coletados 36 horas após a
+#' pulverização dos tratamentos.}
+#'
+#' }
+#' @keywords DIC contagem
+#' @source Banzatto, D. A., & Kronka, S. D. (2013). Experimentação
+#' Agrícola (4th ed.). Jaboticabal, SP: Funep. (pg 44)
+#' @examples
+#'
+#' library(lattice)
+#'
+#' data(BanzattoQd3.2.1)
+#'
+#' aggregate(pulgoes ~ trat, data = BanzattoQd3.2.1,
+#' FUN = function(x) { c(mean = mean(x), var = var(x)) })
+#'
+#' xyplot(pulgoes ~ trat, data = BanzattoQd3.2.1,
+#' xlab = "Tratamentos",
+#' ylab = "Número de pulgões 36h após pulverização")
+NULL
diff --git a/data-raw/BanzattoQd3.2.1.txt b/data-raw/BanzattoQd3.2.1.txt
new file mode 100644
index 0000000..287a532
--- /dev/null
+++ b/data-raw/BanzattoQd3.2.1.txt
@@ -0,0 +1,31 @@
+trat rept pulgoes
+Testemunha 1 2370
+Azinfós etílico 1 1282
+Supracid 40CE dose 1 1 562
+Supracid 40CE dose 2 1 173
+Diazinon 60CE 1 193
+Testemunha 2 1687
+Azinfós etílico 2 1527
+Supracid 40CE dose 1 2 321
+Supracid 40CE dose 2 2 127
+Diazinon 60CE 2 71
+Testemunha 3 2592
+Azinfós etílico 3 871
+Supracid 40CE dose 1 3 636
+Supracid 40CE dose 2 3 132
+Diazinon 60CE 3 82
+Testemunha 4 2283
+Azinfós etílico 4 1025
+Supracid 40CE dose 1 4 317
+Supracid 40CE dose 2 4 150
+Diazinon 60CE 4 62
+Testemunha 5 2910
+Azinfós etílico 5 825
+Supracid 40CE dose 1 5 485
+Supracid 40CE dose 2 5 129
+Diazinon 60CE 5 96
+Testemunha 6 3020
+Azinfós etílico 6 920
+Supracid 40CE dose 1 6 842
+Supracid 40CE dose 2 6 227
+Diazinon 60CE 6 44
diff --git a/data/BanzattoQd3.2.1.rda b/data/BanzattoQd3.2.1.rda
new file mode 100644
index 0000000000000000000000000000000000000000..94ad5288ac9b5d2253c4d7c6e630d6f38086edc9
GIT binary patch
literal 339
zcmZ>Y%CIzaj8qGb4091+Wni?Z|N8&e2}TE23uU_r29Ejd_oqBzU_8LUq`)G@!O*yY
zQOeudQB`jFq7;6YFTG2?GJLs|xPsp)^Vjl~4{ZaEFO_J^m}PRnr>EKBKrge8!^IaW
zK`xaXRWsCld>Rs&l?7WeTP{pv_#tTUB)Rya8N*TMK2651IEm%U+D@F{?qE)8-Nhs@
zziQQvqlY%`&&|(W`)<<8ZNEQXmQXO<$>EhCQlg;L7oYWX>pvld_wjx|<qDfL&*U4a
z%Sv8;@y|?&LCb(MqPcrh`~G7u-m*ybDj2HFP%)d7ktyWFa!u88+a$q--%Wgya+3?w
zFaKWVDY&8VK=PCC5*;_bW}2(JKUQ4snk?#l>fO3o>m#0DD0cJ-Si45uaaxg5@C2Uw
vheOWt&E`mCKBXWt_w{t21E=3Mh%Ivzopvx?=~N6q%YX4ASBroNpg;rw+|iK3
literal 0
HcmV?d00001
diff --git a/man/BanzattoQd3.2.1.Rd b/man/BanzattoQd3.2.1.Rd
new file mode 100644
index 0000000..e76cfb5
--- /dev/null
+++ b/man/BanzattoQd3.2.1.Rd
@@ -0,0 +1,45 @@
+% Generated by roxygen2 (4.1.1): do not edit by hand
+% Please edit documentation in R/BanzattoQd3.2.1.R
+\name{BanzattoQd3.2.1}
+\alias{BanzattoQd3.2.1}
+\title{Controle de pulgão na cultura de pepino}
+\format{Um \code{data.frame} com 30 observações e 3 variáveis, em que
+
+\describe{
+
+\item{trat}{Fator de níveis nominais. Tratamento aplicado para
+ controle do púlgão.}
+
+\item{rept}{Número inteiro que identifica as repetições de cada
+ tratamento.}
+
+\item{pulgoes}{Número de pulgões coletados 36 horas após a
+ pulverização dos tratamentos.}
+
+}}
+\source{
+Banzatto, D. A., & Kronka, S. D. (2013). Experimentação
+ Agrícola (4th ed.). Jaboticabal, SP: Funep. (pg 44)
+}
+\description{
+Dados de um experimento visando controle de pulgão
+ (\emph{Aphis gossypii} Glover) em cultura de pepino, instalado em
+ delineamento inteiramente casualizado com 6 repetições. A
+ resposta observada foi o número de pulgões após a aplicação de
+ produtos indicados para seu controle.
+}
+\examples{
+library(lattice)
+
+data(BanzattoQd3.2.1)
+
+aggregate(pulgoes ~ trat, data = BanzattoQd3.2.1,
+ FUN = function(x) { c(mean = mean(x), var = var(x)) })
+
+xyplot(pulgoes ~ trat, data = BanzattoQd3.2.1,
+ xlab = "Tratamentos",
+ ylab = "Número de pulgões 36h após pulverização")
+}
+\keyword{DIC}
+\keyword{contagem}
+
--
GitLab