diff --git a/R/ZimmermannTb12.7.R b/R/ZimmermannTb12.7.R index f704359ee1de7189f246ee85faaf84dc08e9b741..be80483c5a6bb40f40f79be44b77a0834071825e 100644 --- a/R/ZimmermannTb12.7.R +++ b/R/ZimmermannTb12.7.R @@ -1,25 +1,23 @@ #' @name ZimmermannTb12.7 -#' @title Dados de área sob a curva do progresso de brusone -#' @description Dados do ensaio 1 de um experimento que avaliou -#' as cultivares para a área foliar atacada por brusone -#' (\emph{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. +#' @title Área Sob a Curva do Progresso de Brusone +#' @description Dados do ensaio 1 de um experimento que avaliou as +#' cultivares para a área foliar atacada por brusone +#' (\emph{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{\code{cult}}{Fator de níveis nominais. Indica a cultivar da -#' planta.} +#' \item{\code{cult}}{Fator de níveis nominais. Indica a cultivar.} #' #' \item{\code{bloco}}{Número inteiro que identifica o bloco da #' observação.} #' -#' \item{\code{aacpd}}{Logaritmo natural da área sob a curva de progresso -#' da doença. A unidade de medida não é conhecida.} +#' \item{\code{aacpd}}{Logaritmo natural da área sob a curva de +#' progresso da doença. A unidade de medida não é conhecida.} #' #' } #' @keywords DBC @@ -34,12 +32,12 @@ #' #' str(ZimmermannTb12.7) #' -#' xyplot(prod ~ trat , groups = bloco, data = ZimmermannTb12.7, +#' xyplot(aacpd ~ cult , groups = bloco, data = ZimmermannTb12.7, #' type = c("p", "a"), #' xlab = "Tratamentos", #' ylab = "Logaritmo da área sob a curva de progresso da doença") #' -#' aggregate(prod ~ trat, data = ZimmermannTb12.7, +#' aggregate(aacpd ~ cult, data = ZimmermannTb12.7, #' FUN = function(x) { c(mean = mean(x), var = var(x)) }) #' NULL diff --git a/R/ZimmermannTb12.8.R b/R/ZimmermannTb12.8.R index f85d9ee32b126459c6e75ccce4792273cfc91f47..fee9b0842c961d25463011179225da153f7ade24 100644 --- a/R/ZimmermannTb12.8.R +++ b/R/ZimmermannTb12.8.R @@ -1,24 +1,23 @@ #' @name ZimmermannTb12.8 -#' @title Dados de área sob a curva do progresso de uma doença -#' @description Dados do ensaio 2 de um experimento que avaliou as -#' cultivares para a á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. -#' A unidade de medida não é conhecida. +#' @title Área Sob a Curva do Progresso de uma doença +#' @description Dados do ensaio 1 de um experimento que avaliou as +#' cultivares para a área foliar atacada por brusone +#' (\emph{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{\code{cult}}{Fator de níveis nominais. Indica a cultivar da -#' planta.} +#' \item{\code{cult}}{Fator de níveis nominais. Indica a cultivar.} #' -#' \item{\code{bloco}}{Número inteiro que identifica o bloco da observação.} +#' \item{\code{bloco}}{Número inteiro que identifica o bloco da +#' observação.} #' -#' \item{\code{aacpd}}{Logaritmo natural da área sob a curva de progresso -#' da doença. A unidade de medida não é conhecida.} +#' \item{\code{aacpd}}{Logaritmo natural da área sob a curva de +#' progresso da doença. A unidade de medida não é conhecida.} #' #' } #' @keywords DBC @@ -31,11 +30,14 @@ #' #' data(ZimmermannTb12.8) #' -#' xyplot(prod ~ trat , groups = bloco, data = ZimmermannTb12.8, -#' type = c("p","a"), +#' str(ZimmermannTb12.8) +#' +#' xyplot(aacpd ~ cult, groups = bloco, data = ZimmermannTb12.8, +#' type = c("p", "a"), #' xlab = "Tratamentos", #' ylab = "Área sob a curva do progresso da doença") #' -#' aggregate(prod ~ trat, data = ZimmermannTb12.8, +#' aggregate(aacpd ~ cult, data = ZimmermannTb12.8, #' FUN = function(x) { c(mean = mean(x), var = var(x)) }) +#' NULL diff --git a/data-raw/ZimmermannTab12.7.txt b/data-raw/ZimmermannTab12.7.txt deleted file mode 100644 index 5d11090560af9e3a967c742c8974cc8cfd32720f..0000000000000000000000000000000000000000 --- a/data-raw/ZimmermannTab12.7.txt +++ /dev/null @@ -1,19 +0,0 @@ -"cult" "bloco" "aacpd" -"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 deleted file mode 100644 index 014b1b250301c8ee255a6ae5813387a3b479cf14..0000000000000000000000000000000000000000 --- a/data-raw/ZimmermannTab12.8.txt +++ /dev/null @@ -1,19 +0,0 @@ -"cult" "bloco" "aacpd" -"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-raw/ZimmermannTb12.7.txt b/data-raw/ZimmermannTb12.7.txt index c421aec715af18c76ff0429427f52045dd149122..fc3b4dedeb16dbbc4186232fc036d63831b5ced3 100644 --- a/data-raw/ZimmermannTb12.7.txt +++ b/data-raw/ZimmermannTb12.7.txt @@ -1,4 +1,4 @@ -trat bloco prod +cult bloco aacpd Caiapó 1 5.74616 Canastra 1 6.29754 Confiança 1 6.35712 diff --git a/data-raw/ZimmermannTb12.8.txt b/data-raw/ZimmermannTb12.8.txt index a94ad46dc2237cfb23c1318271107c42d2d5625d..63e3a9c6ee3520009b04229eb47a2d4505e3230d 100644 --- a/data-raw/ZimmermannTb12.8.txt +++ b/data-raw/ZimmermannTb12.8.txt @@ -1,4 +1,4 @@ -trat bloco prod +cult bloco aacpd Caiapó 1 4.82607 Canastra 1 4.99789 Confiança 1 5.67312 diff --git a/data/ZimmermannTab12.7.rda b/data/ZimmermannTab12.7.rda deleted file mode 100644 index 0d2d88316a3f0e03aa97620259a1b5f1c8eb7c26..0000000000000000000000000000000000000000 Binary files a/data/ZimmermannTab12.7.rda and /dev/null differ diff --git a/data/ZimmermannTab12.8.rda b/data/ZimmermannTab12.8.rda deleted file mode 100644 index c5b34dc28a43a5cfc2bc015cb1f095647828a622..0000000000000000000000000000000000000000 Binary files a/data/ZimmermannTab12.8.rda and /dev/null differ diff --git a/data/ZimmermannTb12.7.rda b/data/ZimmermannTb12.7.rda index 53b05459797365c2c59b14c2fb4b3b2b73a064cc..20bc79542df5560fabf6022a7bcaeab8eee38d45 100644 Binary files a/data/ZimmermannTb12.7.rda and b/data/ZimmermannTb12.7.rda differ diff --git a/data/ZimmermannTb12.8.rda b/data/ZimmermannTb12.8.rda index b321b201bbaa9f43398f439cc70c9793ba79a06b..6010368898b55da9005f7ee5cc5796e05f6436a1 100644 Binary files a/data/ZimmermannTb12.8.rda and b/data/ZimmermannTb12.8.rda differ