diff --git a/R/ZimmermannTb12.26.R b/R/ZimmermannTb12.26.R index 9604140005aece9ba5db220c81f26ef87b192b72..dbac6410f7f70ed6fb5b6e9d8392ab47d2318835 100644 --- a/R/ZimmermannTb12.26.R +++ b/R/ZimmermannTb12.26.R @@ -1,17 +1,18 @@ -#' @name ZimmermannTb12.26 -#' @title Dados de produtividade de espiguetas -#' @description Ensaio 1 de um experimento em DQL, que avaliou a resistência -#' a insetos em seis cultivares de arroz, sendo uma delas comum ao -#' ensaio 2. Os dados são de produtividade de espiguetas, em gramas. +#' @name ZimmermannTb12.26 +#' @title Produtividade de Arroz para Resistência a Insetos +#' @description Ensaio 1 de um experimento em DQL, que avaliou a +#' resistência a insetos em seis cultivares de arroz, sendo uma +#' delas comum ao ensaio 2. Os dados são de produtividade de +#' espiguetas, em gramas. #' @format Um \code{data.frame} com 36 observações e 4 variáveis #' #' \describe{ #' -#' \item{linha}{Fator de níveis numéricos. Indica em que linha do quadrado a -#' UE se encontra.} +#' \item{linha}{Fator de níveis numéricos. Indica em que linha do +#' quadrado a unidade experimental está.} #' -#' \item{coluna}{Fator de níveis numéricos. Indica em que coluna do quadrado a -#' UE se encontra} +#' \item{coluna}{Fator de níveis numéricos. Indica em que coluna do +#' quadrado a unidade experimental está.} #' #' \item{cult}{Indica a cultivar.} #' @@ -25,24 +26,25 @@ #' @examples #' #' library(lattice) -#' library(latticeExtra) #' library(reshape) #' #' data(ZimmermannTb12.26) -#' -#' cast(ZimmermannTb12.26, linha~coluna, value="prod") -#' cast(ZimmermannTb12.26, linha~coluna, value="cult") -#' -#' levelplot(prod~linha+coluna, -#' data=ZimmermannTb12.26, aspect="iso", -#' panel=function(x, y, z, subscripts, ...){ -#' panel.levelplot(x, y, z, subscripts=subscripts) -#' panel.text(x, y, ZimmermannTb12.26$cult[subscripts]) -#' panel.text(x, y, z, pos=1) +#' str(ZimmermannTb12.26) +#' +#' cast(ZimmermannTb12.26, linha ~ coluna, value = "cult") +#' cast(ZimmermannTb12.26, linha ~ coluna, value = "prod") +#' +#' levelplot(prod ~ linha + coluna, +#' data = ZimmermannTb12.26, aspect = "iso", +#' panel = function(x, y, z, subscripts, ...) { +#' panel.levelplot(x, y, z, subscripts = subscripts, ...) +#' panel.text(x, y, ZimmermannTb12.26$cult[subscripts], +#' cex = 0.8) +#' panel.text(x, y, z, pos = 1) #' }) -#' -#' xyplot(prod~cult, data=ZimmermannTb12.26, type=c("p","a"), col="blue", -#' xlab="Cultivar", ylab="Produtividade de Espiguetas", -#' main="Experimento em DQL") #' -NULL \ No newline at end of file +#' xyplot(prod ~ cult, data = ZimmermannTb12.26, type = c("p", "a"), +#' xlab = "Cultivares", +#' ylab = expression("Produtividade de espiguetas"~(g))) +#' +NULL diff --git a/R/ZimmermannTb12.27.R b/R/ZimmermannTb12.27.R index e3c8c5a373e12d9ed5ce71bdb45e58e51e028584..785239386d04bf8697d0e78a882a8f4fe2c29a90 100644 --- a/R/ZimmermannTb12.27.R +++ b/R/ZimmermannTb12.27.R @@ -1,5 +1,5 @@ #' @name ZimmermannTb12.27 -#' @title Produtividade de arroz pela resistência a insetos +#' @title Produtividade de Arroz para Resistência a Insetos #' @description Ensaio 2 de um experimento em delineamento quadrado #' latino, que avaliou a resistência a insetos em seis cultivares de #' arroz, sendo uma delas comum ao ensaio 1. Os dados são de diff --git a/data-raw/ZimmermannTb12.26.txt b/data-raw/ZimmermannTb12.26.txt index 2261748ab7c74d81488633c158d5a3fb1c22257a..b3187ec43a26b115df32b58bff12247dd1e32d38 100644 --- a/data-raw/ZimmermannTb12.26.txt +++ b/data-raw/ZimmermannTb12.26.txt @@ -1,37 +1,37 @@ -linha coluna prod cult -1 1 55 Canastra -2 1 52 Bonança -3 1 21 CNAs8989 -4 1 30 CNAs8957 -5 1 77 CNA8540 -6 1 38 CNAs8818 -1 2 33 CNA8540 -2 2 19 CNAs8818 -3 2 55 Bonança -4 2 40 Canastra -5 2 21 CNAs8957 -6 2 44 CNAs8989 -1 3 77 Bonança -2 3 37 CNAs8957 -3 3 49 CNA8540 -4 3 21 CNAs8989 -5 3 75 CNAs8818 -6 3 70 Canastra -1 4 20 CNAs8818 -2 4 64 Canastra -3 4 53 CNAs8957 -4 4 55 Bonança -5 4 12 CNAs8989 -6 4 30 CNA8540 -1 5 64 CNAs8989 -2 5 44 CNA8540 -3 5 48 Canastra -4 5 34 CNAs8818 -5 5 62 Bonança -6 5 63 CNAs8957 -1 6 52 CNAs8957 -2 6 39 CNAs8989 -3 6 25 CNAs8818 -4 6 50 CNA8540 -5 6 71 Canastra -6 6 17 Bonança +linha coluna cult prod +1 1 Canastra 55 +2 1 Bonança 52 +3 1 CNAs8989 21 +4 1 CNAs8957 30 +5 1 CNA8540 77 +6 1 CNAs8818 38 +1 2 CNA8540 33 +2 2 CNAs8818 19 +3 2 Bonança 55 +4 2 Canastra 40 +5 2 CNAs8957 21 +6 2 CNAs8989 44 +1 3 Bonança 77 +2 3 CNAs8957 37 +3 3 CNA8540 49 +4 3 CNAs8989 21 +5 3 CNAs8818 75 +6 3 Canastra 70 +1 4 CNAs8818 20 +2 4 Canastra 64 +3 4 CNAs8957 53 +4 4 Bonança 55 +5 4 CNAs8989 12 +6 4 CNA8540 30 +1 5 CNAs8989 64 +2 5 CNA8540 44 +3 5 Canastra 48 +4 5 CNAs8818 34 +5 5 Bonança 62 +6 5 CNAs8957 63 +1 6 CNAs8957 52 +2 6 CNAs8989 39 +3 6 CNAs8818 25 +4 6 CNA8540 50 +5 6 Canastra 71 +6 6 Bonança 17 diff --git a/data-raw/ZimmermannTb12.27.txt b/data-raw/ZimmermannTb12.27.txt index 058577f50a6e5138b60a702188121c4873f19281..92d510faab958dbbdba20573a99fb72e3fba00d2 100644 --- a/data-raw/ZimmermannTb12.27.txt +++ b/data-raw/ZimmermannTb12.27.txt @@ -1,37 +1,37 @@ -linha coluna prod cult -1 1 79 Bonança -2 1 53 CNAs8952 -3 1 27 CNAs8960 -4 1 30 CNAs8938 -5 1 31 CNAs8711 -6 1 39 CNAs8817 -1 2 44 CNAs8938 -2 2 71 CNAs8960 -3 2 88 Bonança -4 2 66 CNAs8711 -5 2 48 CNAs8817 -6 2 58 CNAs8952 -1 3 67 CNAs8817 -2 3 67 CNAs8938 -3 3 39 CNAs8711 -4 3 58 CNAs8952 -5 3 10 CNAs8960 -6 3 90 Bonança -1 4 20 CNAs8711 -2 4 98 Bonança -3 4 55 CNAs8938 -4 4 49 CNAs8817 -5 4 10 CNAs8952 -6 4 33 CNAs8960 -1 5 83 CNAs8952 -2 5 19 CNAs8711 -3 5 66 CNAs8817 -4 5 12 CNAs8960 -5 5 62 Bonança -6 5 79 CNAs8938 -1 6 30 CNAs8960 -2 6 50 CNAs8817 -3 6 67 CNAs8952 -4 6 36 Bonança -5 6 52 CNAs8938 -6 6 43 CNAs8711 +linha coluna cult prod +1 1 Bonança 79 +2 1 CNAs8952 53 +3 1 CNAs8960 27 +4 1 CNAs8938 30 +5 1 CNAs8711 31 +6 1 CNAs8817 39 +1 2 CNAs8938 44 +2 2 CNAs8960 71 +3 2 Bonança 88 +4 2 CNAs8711 66 +5 2 CNAs8817 48 +6 2 CNAs8952 58 +1 3 CNAs8817 67 +2 3 CNAs8938 67 +3 3 CNAs8711 39 +4 3 CNAs8952 58 +5 3 CNAs8960 10 +6 3 Bonança 90 +1 4 CNAs8711 20 +2 4 Bonança 98 +3 4 CNAs8938 55 +4 4 CNAs8817 49 +5 4 CNAs8952 10 +6 4 CNAs8960 33 +1 5 CNAs8952 83 +2 5 CNAs8711 19 +3 5 CNAs8817 66 +4 5 CNAs8960 12 +5 5 Bonança 62 +6 5 CNAs8938 79 +1 6 CNAs8960 30 +2 6 CNAs8817 50 +3 6 CNAs8952 67 +4 6 Bonança 36 +5 6 CNAs8938 52 +6 6 CNAs8711 43 diff --git a/data/ZimmermannTb12.26.rda b/data/ZimmermannTb12.26.rda index 7c0b48871d9b765df2abc0cf91d33d8f5c91fa29..e1e8ec6664b39b89231fe1fb16153ee02a31b3f9 100644 Binary files a/data/ZimmermannTb12.26.rda and b/data/ZimmermannTb12.26.rda differ diff --git a/data/ZimmermannTb12.27.rda b/data/ZimmermannTb12.27.rda index 5acad87ddc8c294314a01cda6ecaf4d190c3e4f1..0bd6a558b1fceebbdd10597f6ac9c7dd469f5fb3 100644 Binary files a/data/ZimmermannTb12.27.rda and b/data/ZimmermannTb12.27.rda differ