diff --git a/R/ZimmermannTab12.13.R b/R/ZimmermannTab12.13.R new file mode 100644 index 0000000000000000000000000000000000000000..dffb7545de59526a1ad409f9a2219c5f032ed215 --- /dev/null +++ b/R/ZimmermannTab12.13.R @@ -0,0 +1,37 @@ +#' @name ZimmermannTab12.13 +#' @title Dados da proporção de insetos infectados +#' @description Dados do ensaio 1 de um experimento em DBC que estudou a +#' patogenicidade de fungos as percevejo do grão de +#' arroz. A testemunha sem infecção (1) era o tratamento +#' comum entre os dois experimentos. Os dados se referem +#' à proporção de percevejos infectados e transformados +#' por arcoseno da raiz quadrada da proporção. +#' @format Um \code{data.frame} com 35 observações e 3 variáveis +#' +#' \describe{ +#' +#' \item{trat}{Fator de níveis nominais. Tratamento aplicado em arroz.} +#' +#' \item{bloco}{Número inteiro que identifica o bloco da observação.} +#' +#' \item{prod}{Proporção de insetos infectados.} +#' +#' } +#' @keywords DBC insetos percevejos arroz +#' @source Zimmermann, F.J.(2004), Estatística aplicada à pesquisa +#' agrícola (1st ed.). Santo Antônio de Goiás, GO: Embrapa +#' Arroz e Feijão. (pg 255) +#' @examples +#' +#' library(lattice) +#' +#' data(ZimmermannTab12.13) +#' +#' xyplot(prod ~ trat , groups = bloco, data = ZimmermannTab12.13, +#' type=c("p","a"), +#' xlab = "Tratamentos", +#' ylab = "Proporção de insetos infectados") +#' +#' aggregate(prod ~ trat, data = ZimmermannTab12.13, +#' FUN = function(x) { c(mean = mean(x), var = var(x)) }) +NULL \ No newline at end of file diff --git a/R/ZimmermannTab12.14.R b/R/ZimmermannTab12.14.R new file mode 100644 index 0000000000000000000000000000000000000000..592f084c4a12cc69224e7934fc4298ff1708b2b2 --- /dev/null +++ b/R/ZimmermannTab12.14.R @@ -0,0 +1,37 @@ +#' @name ZimmermannTab12.14 +#' @title Dados da proporção de insetos infectados +#' @description Dados do ensaio 2 de um experimento em DBC que estudou a +#' patogenicidade de fungos as percevejo do grão de +#' arroz. A testemunha sem infecção (1) era o tratamento +#' comum entre os dois experimentos. Os dados se referem +#' à proporção de percevejos infectados e transformados +#' por arcoseno da raiz quadrada da proporção. +#' @format Um \code{data.frame} com 30 observações e 3 variáveis +#' +#' \describe{ +#' +#' \item{trat}{Fator de níveis nominais. Tratamento aplicado em arroz.} +#' +#' \item{bloco}{Número inteiro que identifica o bloco da observação.} +#' +#' \item{prod}{Proporção de insetos infectados.} +#' +#' } +#' @keywords DBC insetos percevejos arroz +#' @source Zimmermann, F.J.(2004), Estatística aplicada à pesquisa +#' agrícola (1st ed.). Santo Antônio de Goiás, GO: Embrapa +#' Arroz e Feijão. (pg 255) +#' @examples +#' +#' library(lattice) +#' +#' data(ZimmermannTab12.14) +#' +#' xyplot(prod ~ trat , groups = bloco, data = ZimmermannTab12.14, +#' type=c("p","a"), +#' xlab = "Tratamentos", +#' ylab = "Proporção de insetos infectados") +#' +#' aggregate(prod ~ trat, data = ZimmermannTab12.14, +#' FUN = function(x) { c(mean = mean(x), var = var(x)) }) +NULL \ No newline at end of file diff --git a/data-raw/ZimmermannTab12.13.txt b/data-raw/ZimmermannTab12.13.txt new file mode 100644 index 0000000000000000000000000000000000000000..c450b409eb4bb4494e209d4099bbe1d8a58347c7 --- /dev/null +++ b/data-raw/ZimmermannTab12.13.txt @@ -0,0 +1,36 @@ +"trat" "bloco" "prod" +1 1 0 +2 1 1.0799 +3 1 0.4909 +4 1 0.6847 +5 1 0.6155 +6 1 0.7854 +7 1 1.0799 +1 2 0 +2 2 1.0799 +3 2 0.4909 +4 2 0.6847 +5 2 0.6155 +6 2 0.7854 +7 2 1.0799 +1 3 0 +2 3 0.7854 +3 3 0.7297 +4 3 0.4909 +5 3 0.5495 +6 3 0.6847 +7 3 0.8691 +1 4 0 +2 4 0.3063 +3 4 0.4637 +4 4 0.5236 +5 4 1.1072 +6 4 0.9553 +7 4 0.8411 +1 5 0 +2 5 0.9553 +3 5 0.3614 +4 5 0.6155 +5 5 0.7137 +6 5 0.3876 +7 5 0.5796 diff --git a/data-raw/ZimmermannTab12.14.txt b/data-raw/ZimmermannTab12.14.txt new file mode 100644 index 0000000000000000000000000000000000000000..67a7b6dece018b66343f846720f36dcad9b24a4a --- /dev/null +++ b/data-raw/ZimmermannTab12.14.txt @@ -0,0 +1,31 @@ +"trat" "bloco" "prod" +1 1 0 +9 1 0.8411 +10 1 0.4909 +11 1 0.6155 +12 1 0.5796 +13 1 0.7297 +1 2 0 +9 2 0.9117 +10 2 0.7297 +11 2 0.5796 +12 2 1.1072 +13 2 0.6155 +1 3 0.3218 +9 3 0.5796 +10 3 0.5236 +11 3 0.7854 +12 3 0.7854 +13 3 0.9553 +1 4 0 +9 4 1.5708 +10 4 0.5236 +11 4 0.9117 +12 4 0.5236 +13 4 0.7297 +1 5 0 +9 5 0.8571 +10 5 0.5236 +11 5 0.8571 +12 5 0.4909 +13 5 0.9117 diff --git a/data/ZimmermannTab12.13.rda b/data/ZimmermannTab12.13.rda new file mode 100644 index 0000000000000000000000000000000000000000..74d80087c96c795724b19aeded4f7e5000dedd01 Binary files /dev/null and b/data/ZimmermannTab12.13.rda differ diff --git a/data/ZimmermannTab12.14.rda b/data/ZimmermannTab12.14.rda new file mode 100644 index 0000000000000000000000000000000000000000..62b0d6eee356ab55dfddbbb8a5b4117311b40475 Binary files /dev/null and b/data/ZimmermannTab12.14.rda differ