Remove UE e usa por extenso. Faz exemplos serem iguais.

R/ZimmermannTb12.26.R

 #' @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.  
+#' @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)
+#' str(ZimmermannTb12.26)
 #'
-#' cast(ZimmermannTb12.26, linha~coluna, value="prod")
 #' 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])
+#'               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")
+#' xyplot(prod ~ cult, data = ZimmermannTb12.26, type = c("p", "a"),
+#'        xlab = "Cultivares",
+#'        ylab = expression("Produtividade de espiguetas"~(g)))
 #'
 NULL

R/ZimmermannTb12.27.R

 #' @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

data-raw/ZimmermannTb12.26.txt

-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

data-raw/ZimmermannTb12.27.txt

-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