diff --git a/R/ZimmermannTab12.7.R b/R/ZimmermannTab12.7.R new file mode 100644 index 0000000000000000000000000000000000000000..34c1c666cd38460d19b31590bbcf1c117874fdd9 --- /dev/null +++ b/R/ZimmermannTab12.7.R @@ -0,0 +1,38 @@ +#' @name ZimmermannTab12.7 +#' @title Dados de área sob a curva do progresso de uma doença +#' @description Dados de um ensaio cque avaliou as cultivares paraa área +#' foliar atacada por brusone (Pyricularia Orizae L.) em +#' diferentes datas e se calculou área sob a curva do progresso +#' da doença. Este primeiro experimento foi semeado na densidade +#' de oitenta sementes por metro. Os dados foram transformados por +#' logaritmo natural, procurando-se uma maior homogeneização +#' das variâncias. +#' @format Um \code{data.frame} com 18 observações e 3 variáveis +#' +#' \describe{ +#' +#' \item{trat}{Fator de níveis nominais. Tratamento aplicado em plantas.} +#' +#' \item{bloco}{Número inteiro que identifica o bloco da observação.} +#' +#' \item{prod}{Área sob a curva do progresso de uma doenças.} +#' +#' } +#' @keywords DBC área foliar plantas doença +#' @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 251) +#' @examples +#' +#' library(lattice) +#' +#' data(ZimmermannTab12.7) +#' +#' xyplot(prod ~ trat , groups = bloco, data = ZimmermannTab12.7, +#' type=c("p","a"), +#' xlab = "Tratamentos", +#' ylab = "Área sob a curva do progresso da doença") +#' +#' aggregate(prod ~ trat, data = ZimmermannTab12.7, +#' FUN = function(x) { c(mean = mean(x), var = var(x)) }) +NULL \ No newline at end of file diff --git a/R/ZimmermannTab12.8.R b/R/ZimmermannTab12.8.R new file mode 100644 index 0000000000000000000000000000000000000000..e0a142185ae9690ac246331713263936847f18e1 --- /dev/null +++ b/R/ZimmermannTab12.8.R @@ -0,0 +1,38 @@ +#' @name ZimmermannTab12.8 +#' @title Dados de área sob a curva do progresso de uma doença +#' @description Dados de um ensaio cque avaliou as cultivares paraa área +#' foliar atacada por brusone (Pyricularia Orizae L.) em +#' diferentes datas e se calculou área sob a curva do progresso +#' da doença. Este primeiro experimento foi semeado na densidade +#' de duzentas sementes por metro. Os dados foram transformados por +#' logaritmo natural, procurando-se uma maior homogeneização +#' das variâncias. +#' @format Um \code{data.frame} com 18 observações e 3 variáveis +#' +#' \describe{ +#' +#' \item{trat}{Fator de níveis nominais. Tratamento aplicado em plantas.} +#' +#' \item{bloco}{Número inteiro que identifica o bloco da observação.} +#' +#' \item{prod}{Área sob a curva do progresso de uma doenças.} +#' +#' } +#' @keywords DBC área foliar plantas doença +#' @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 252) +#' @examples +#' +#' library(lattice) +#' +#' data(ZimmermannTab12.8) +#' +#' xyplot(prod ~ trat , groups = bloco, data = ZimmermannTab12.8, +#' type=c("p","a"), +#' xlab = "Tratamentos", +#' ylab = "Área sob a curva do progresso da doença") +#' +#' aggregate(prod ~ trat, data = ZimmermannTab12.8, +#' FUN = function(x) { c(mean = mean(x), var = var(x)) }) +NULL \ No newline at end of file diff --git a/data-raw/ZimmermannTab12.7.txt b/data-raw/ZimmermannTab12.7.txt new file mode 100644 index 0000000000000000000000000000000000000000..18bd58119eb365aed1a4524a516f474984d32ae6 --- /dev/null +++ b/data-raw/ZimmermannTab12.7.txt @@ -0,0 +1,19 @@ +"trat" "bloco" "prod" +"Caiapó" 1 5.74616 +"Canastra" 1 6.29754 +"Confiança" 1 6.35712 +"Maravilha" 1 4.92718 +"Primavera" 1 6.26963 +"R. Paranaíba" 1 6.38072 +"Caiapó" 2 6.05715 +"Canastra" 2 6.03998 +"Confiança" 2 5.83999 +"Maravilha" 2 6.03634 +"Primavera" 2 5.91024 +"R. Paranaíba" 2 6.12295 +"Caiapó" 3 6.49288 +"Canastra" 3 6.13508 +"Confiança" 3 5.75745 +"Maravilha" 3 5.44038 +"Primavera" 3 6.47247 +"R. Paranaíba" 3 6.75723 diff --git a/data-raw/ZimmermannTab12.8.txt b/data-raw/ZimmermannTab12.8.txt new file mode 100644 index 0000000000000000000000000000000000000000..4091f5c82b7cc79ae3cf7ab25b8ac668592643bc --- /dev/null +++ b/data-raw/ZimmermannTab12.8.txt @@ -0,0 +1,19 @@ +"trat" "bloco" "prod" +"Caiapó" 1 4.82607 +"Canastra" 1 4.99789 +"Confiança" 1 5.67312 +"Maravilha" 1 4.37519 +"Primavera" 1 6.08142 +"R. Paranaíba" 1 5.94118 +"Caiapó" 2 5.4038 +"Canastra" 2 5.23228 +"Confiança" 2 5.30094 +"Maravilha" 2 5.0411 +"Primavera" 2 5.96179 +"R. Paranaíba" 2 5.86669 +"Caiapó" 3 4.92129 +"Canastra" 3 4.62698 +"Confiança" 3 5.51192 +"Maravilha" 3 4.0582 +"Primavera" 3 4.87302 +"R. Paranaíba" 3 5.08187 diff --git a/data/ZimmermannTab12.7.rda b/data/ZimmermannTab12.7.rda new file mode 100644 index 0000000000000000000000000000000000000000..922dd923e5d25b5f4f617f0b2e1f6553eb493087 Binary files /dev/null and b/data/ZimmermannTab12.7.rda differ diff --git a/data/ZimmermannTab12.8.rda b/data/ZimmermannTab12.8.rda new file mode 100644 index 0000000000000000000000000000000000000000..96a6a2babadcc71e4d06bfdeac17b97037e5fecf Binary files /dev/null and b/data/ZimmermannTab12.8.rda differ