diff --git a/R/DemetrioEx1.4.1.3.R b/R/DemetrioEx1.4.1.3.R
deleted file mode 100644
index 890cadab65c04393c9eab5c2f284535137118465..0000000000000000000000000000000000000000
--- a/R/DemetrioEx1.4.1.3.R
+++ /dev/null
@@ -1,37 +0,0 @@
-#' @name DemetrioEx1.4.1.3
-#' @title Absorção de CO2 por Folhas de Trigo
-#'
-#' @description Foi aplicado \eqn{CO_2} sobre folhas de trigo a uma
-#' temperatura de 35°C. Mediu-se a quantia de \eqn{CO_2} absorvido
-#' pelas folhas.
-#'
-#' @format Um \code{data.frame} de 11 linhas e 2 colunas.
-#'
-#' \describe{
-#'
-#' \item{\code{co2}}{Concentração de \eqn{CO_2} aplicada sobre as
-#' folhas de trigo.}
-#'
-#' \item{\code{absorv}}{Quantia de \eqn{CO2} absorvida pelas folhas
-#' de trigo, medida em \eqn{cm^3/dm^2/hora.}}
-#'
-#' }
-#'
-#' @keywords TODO
-#'
-#' @source Demétrio, C. G. B., & Zocchi, S. S. (2011). Modelos de
-#' Regressão. Piracicaba: ESALQ. (Exercício 1.4.1.3 pág. 14)
-#'
-#' @examples
-#'
-#' data(DemetrioEx1.4.1.3)
-#'
-#' library(lattice)
-#'
-#' xyplot(absorv ~ co2, data = DemetrioEx1.4.1.3,
-#' main = "CO2 Aplicado VS Absorvido",
-#' xlab = "Aplicado",
-#' ylab = "Absorvido",
-#' type = c("p", "r"), col.line = 3)
-#'
-NULL
diff --git a/R/DemetrioEx2.12.15.R b/R/DemetrioEx2.12.15.R
new file mode 100644
index 0000000000000000000000000000000000000000..4461d265062b53636e52a96075b0d3ba2a272be2
--- /dev/null
+++ b/R/DemetrioEx2.12.15.R
@@ -0,0 +1,35 @@
+#' @name DemetrioEx2.12.15
+#' @title Dados Genéricos Simulados para Regressão Simples
+#'
+#' @description Dados simulados para exercício analítico de estimação
+#' via método dos quadrados mínimos em diferentes modelos de
+#' regressão linear.
+#'
+#' @format Um \code{data.frame} de 6 linhas e 2 colunas.
+#'
+#' \describe{
+#'
+#' \item{\code{x}}{Variável independente, sem interpretação.}
+#'
+#' \item{\code{y}}{Variável dependente, sem interpretação.}
+#'
+#' }
+#'
+#' @keywords TODO
+#'
+#' @source Demétrio, C. G. B., & Zocchi, S. S. (2011). Modelos de
+#' Regressão. Piracicaba: ESALQ. (Exercício 2.12.15 pág. 63)
+#'
+#' @examples
+#'
+#' data(DemetrioEx2.12.15)
+#'
+#' library(lattice)
+#'
+#' xyplot(y ~ x, data = DemetrioEx2.12.15,
+#' main = "x vs y",
+#' xlab = "x",
+#' ylab = "y",
+#' type = c("p", "r"), col.line = 3)
+#'
+NULL
diff --git a/R/DemetrioEx2.12.16.R b/R/DemetrioEx2.12.16.R
new file mode 100644
index 0000000000000000000000000000000000000000..60f64cf29982c24a939a92049d5214581eb8c284
--- /dev/null
+++ b/R/DemetrioEx2.12.16.R
@@ -0,0 +1,36 @@
+#' @name DemetrioEx2.12.16
+#' @title Calagem para a Sucessão batata-triticale-milho
+#'
+#' @description Neste experimento foram obtidos os valores para o teor
+#' de cálcio no solo e a porcentagem de tubérculos maduros com o
+#' objetivo de verificar a relação existente entre estas variáveis.
+#'
+#' @format Um \code{data.frame} de 9 linhas e 2 colunas.
+#'
+#' \describe{
+#'
+#' \item{\code{calcio}}{Teor de cálcio no solo, medido em
+#' \eqn{meq/100cm^{3}} (miliequivalente por 100 centímetros
+#' cúbicos).}
+#'
+#' \item{\code{tm}}{Porcentagem de tubérculos maduros.}
+#'
+#' }
+#'
+#' @keywords TODO
+#'
+#' @source Demétrio, C. G. B., & Zocchi, S. S. (2011). Modelos de
+#' Regressão. Piracicaba: ESALQ. (Exercício 2.12.16 pág. 63)
+#'
+#' @examples
+#'
+#' data(DemetrioEx2.12.16)
+#'
+#' library(lattice)
+#'
+#' xyplot(tm ~ calcio, data = DemetrioEx2.12.16,
+#' main = "Cálcio VS TM",
+#' xlab = "Cálcio",
+#' ylab = "Tubérculos Maduros")
+#'
+NULL
diff --git a/R/DemetrioEx2.12.5.R b/R/DemetrioEx2.12.5.R
new file mode 100644
index 0000000000000000000000000000000000000000..0b34ec77eb6f69f43e586c27411736f7f3567ed2
--- /dev/null
+++ b/R/DemetrioEx2.12.5.R
@@ -0,0 +1,46 @@
+#' @name DemetrioEx2.12.5
+#' @title Dados Genéricos para Regressão Segmentada
+#'
+#' @description Dados para exercício analítico, com o objetivo de obter
+#' as estimativas de mínimos quadrados dos parâmetros de um modelo
+#' de regressão linear segmentada.
+#'
+#' @format Um \code{data.frame} de 5 linhas e 2 colunas.
+#'
+#' \describe{
+#'
+#' \item{\code{x}}{Variável independente, sem interpretação.}
+#'
+#' \item{\code{y}}{Variável dependente, sem interpretação.}
+#'
+#' }
+#'
+#' @keywords RegSeg
+#'
+#' @source Demétrio, C. G. B., & Zocchi, S. S. (2011). Modelos de
+#' Regressão. Piracicaba: ESALQ. (Exercício 2.12.5 pág. 60)
+#'
+#' @examples
+#'
+#' data(DemetrioEx2.12.5)
+#'
+#' library(lattice)
+#'
+#' xyplot(y ~ x, data = DemetrioEx2.12.5,
+#' cex = 1.1, pch = 19,
+#' main = 'Regressão Segmentada',
+#' grid = TRUE,
+#' panel = function(x, y, ...) {
+#' # Regressão Segmentada com ponto de corte conhecido
+#' b <- DemetrioEx2.12.5$x[3]
+#' m0 <- lm(y ~ x + I(pmax(x - b, 0)),
+#' data = DemetrioEx2.12.5)
+#' # Pontos que definem os dois segmentos
+#' cx <- c(0, b, 8)
+#' cy <- predict(m0, newdata = data.frame(x = cx))
+#' panel.xyplot(x, y, ...)
+#' panel.segments(cx[1], cy[1], cx[2], cy[2])
+#' panel.segments(cx[2], cy[2], cx[3], cy[3])
+#' })
+#'
+NULL
diff --git a/R/DemetrioTb1.3.R b/R/DemetrioTb1.3.R
index 4abe4ab60989d7a9f5dbaef81b0206e36fbabbac..6d106f26e30558ee26b90b1c4578a0e66566d95f 100644
--- a/R/DemetrioTb1.3.R
+++ b/R/DemetrioTb1.3.R
@@ -20,7 +20,8 @@
#' @keywords tensiômetro
#'
#' @source Demétrio, C. G. B., & Zocchi, S. S. (2011). Modelos de
-#' Regressão. Piracicaba: ESALQ. (Tabela 1.3 pág. 10)
+#' Regressão. Piracicaba: ESALQ. (Tabela 1.3 pág. 10;
+#' Ex 2.12.14 pág. 62)
#'
#' @examples
#'
diff --git a/R/DemetrioTb2.10.R b/R/DemetrioTb2.10.R
new file mode 100644
index 0000000000000000000000000000000000000000..70fc19bfda7f42c39d5527a29d0677f25a62ace5
--- /dev/null
+++ b/R/DemetrioTb2.10.R
@@ -0,0 +1,46 @@
+#' @name DemetrioTb2.10
+#' @title Absorção de CO2 por Folhas de Trigo
+#'
+#' @description Dados provenientes de um ensaio inteiramente casualizado
+#' onde aplicou-se \eqn{CO_2} sobre folhas de trigo a uma
+#' temperatura de 35°C e mediu-se a quantia de \eqn{CO_2} absorvido
+#' pelas folhas.
+#'
+#' @format Um \code{data.frame} de 17 linhas e 2 colunas.
+#'
+#' \describe{
+#'
+#' \item{\code{co2}}{Concentração de \eqn{CO_2} aplicada sobre as
+#' folhas de trigo.}
+#'
+#' \item{\code{absorv}}{Quantia de \eqn{CO_2} absorvida pelas folhas
+#' de trigo, medida em \eqn{cm^3/dm^2/hora.}}
+#'
+#' }
+#'
+#' @keywords TODO
+#'
+#' @source Demétrio, C. G. B., & Zocchi, S. S. (2011). Modelos de
+#' Regressão. Piracicaba: ESALQ. (Tabela 2.10 pág. 65, Exercício
+#' 1.4.1.3 pág. 14)
+#'
+#' @examples
+#'
+#' data(DemetrioTb2.10)
+#'
+#' library(lattice)
+#'
+#' xyplot(absorv ~ co2, data = DemetrioTb2.10,
+#' main = "CO2 Aplicado VS Absorvido",
+#' xlab = "Aplicado",
+#' ylab = "Absorvido",
+#' type = c("p", "r"), col.line = 3)
+#'
+#' # Subconjunto do exercício 1.4.1.3
+#' obs <- c(1, 2, 3, 5, 6, 7, 8, 11, 12, 16, 17)
+#' DemetrioEx1.4.1.3 <- DemetrioTb2.10[obs, ]
+#'
+#' xyplot(absorv ~ co2, data = DemetrioEx1.4.1.3,
+#' type = c("p", "r"), col.line = 3)
+#'
+NULL
diff --git a/R/DemetrioTb2.11.R b/R/DemetrioTb2.11.R
new file mode 100644
index 0000000000000000000000000000000000000000..a923f234a7b60880a5c4c40ec5f9c525842fc8ab
--- /dev/null
+++ b/R/DemetrioTb2.11.R
@@ -0,0 +1,49 @@
+#' @name DemetrioTb2.11
+#' @title Radiação Gama em Explantes de Abacaxis
+#'
+#' @description Dados provenientes de um experimento inteiramente
+#' casualizado onde expuseram explantes de abacaxis a diferentes
+#' doses de radiação gama e, 45 dias após a irradiação, mensurou-se
+#' o peso destes explantes.
+#'
+#' @format Um \code{data.frame} de 70 linhas e 2 colunas.
+#'
+#' \describe{
+#'
+#' \item{\code{dose}}{Dose de radiação gama a qual os
+#' explantes de abacaxi foram expostos durante 45 dias.}
+#'
+#' \item{\code{absorv}}{Peso dos explantes de abacaxi após a
+#' irradiação, medido em gramas (g).}
+#'
+#' }
+#'
+#' @keywords TODO
+#'
+#' @source Demétrio, C. G. B., & Zocchi, S. S. (2011). Modelos de
+#' Regressão. Piracicaba: ESALQ. (Tabela 2.11 pág. 66)
+#'
+#' @examples
+#'
+#' data(DemetrioTb2.11)
+#'
+#' library(lattice)
+#' # Estatísticas descritivas
+#' with(DemetrioTb2.11, tapply(peso, dose, summary))
+#'
+#' with(DemetrioTb2.11, {
+#' mu <<- aggregate(peso, list(dose), mean)
+#' des <<- aggregate(peso, list(dose), sd)
+#' })
+#'
+#' xyplot(peso ~ dose, data = DemetrioTb2.11,
+#' type = c("p", "r"), grid = TRUE,
+#' panel = function(x, y, ...) {
+#' panel.points(x = mu$G - 1, y = mu$x, pch = 15, col = 1)
+#' panel.arrows(x0 = mu$G - 1, y0 = mu$x - des$x,
+#' x1 = mu$G - 1, y1 = mu$x + des$x,
+#' code = 3, length = 0.05, angle = 90)
+#' panel.xyplot(x, y, ...)
+#' })
+#'
+NULL
diff --git a/R/DemetrioTb2.12.R b/R/DemetrioTb2.12.R
new file mode 100644
index 0000000000000000000000000000000000000000..6737bbabc457cff2894e6a77f227fd264873893c
--- /dev/null
+++ b/R/DemetrioTb2.12.R
@@ -0,0 +1,52 @@
+#' @name DemetrioTb2.12
+#' @title Produção de Ruibarbo
+#'
+#' @description Dados de um experimento conduzido em delineamento de
+#' blocos ao acaso onde foi mensurada a produção de ruibarbos para
+#' enlatamento, considerando diferentes datas de colheita.
+#'
+#' @format Um \code{data.frame} de 28 linhas e 3 colunas.
+#'
+#' \describe{
+#'
+#' \item{\code{data}}{Data de colheita dos ruibarbos. Obs.: Para
+#' utilizar o formato \code{\link{Date}} foi considerado o ano 1983
+#' (Date de publicação do livro que referencia os dados).}
+#'
+#' \item{\code{bloco}}{Fator que indica o bloco, para controle de
+#' variação, ao qual a observação pertence.}
+#'
+#' \item{\code{prod}}{Valor da produção de ruibarbo.}
+#'
+#' }
+#'
+#' @keywords TODO
+#'
+#' @source Demétrio, C. G. B., & Zocchi, S. S. (2011). Modelos de
+#' Regressão. Piracicaba: ESALQ. (Tabela 2.12 pág. 66-67)
+#'
+#' @examples
+#'
+#' data(DemetrioTb2.12)
+#'
+#' library(lattice)
+#'
+#' # Estatísticas descritivas
+#' with(DemetrioTb2.12, tapply(prod, data, summary))
+#'
+#' with(DemetrioTb2.12, {
+#' mu <<- aggregate(prod, list(data), mean)
+#' des <<- aggregate(prod, list(data), sd)
+#' })
+#'
+#' xyplot(prod ~ data, data = DemetrioTb2.12,
+#' type = c("p", "r"), grid = TRUE,
+#' panel = function(x, y, ...) {
+#' panel.points(x = mu$G - 0.5, y = mu$x, pch = 15, col = 1)
+#' panel.arrows(x0 = mu$G - 0.5, y0 = mu$x - des$x,
+#' x1 = mu$G - 0.5, y1 = mu$x + des$x,
+#' code = 3, length = 0.05, angle = 90)
+#' panel.xyplot(x, y, ...)
+#' })
+#'
+NULL
diff --git a/R/DemetrioTb2.9.R b/R/DemetrioTb2.9.R
new file mode 100644
index 0000000000000000000000000000000000000000..85437017f31051bdf159e9c88f5f97121aba2652
--- /dev/null
+++ b/R/DemetrioTb2.9.R
@@ -0,0 +1,39 @@
+#' @name DemetrioTb2.9
+#' @title Dados Genéricos para Regressão Simples
+#'
+#' @description Dados para exercício analítico, com o objetivo de
+#' estimar os parâmetros de forma pontual e intervalar, realizar a
+#' ANOVA, entre outros.
+#'
+#' @format Um \code{data.frame} de 10 linhas e 2 colunas.
+#'
+#' \describe{
+#'
+#' \item{\code{x}}{Variável independente, sem interpretação.}
+#'
+#' \item{\code{y}}{Variável dependente, sem interpretação.}
+#'
+#' }
+#'
+#' @keywords TODO
+#'
+#' @source Demétrio, C. G. B., & Zocchi, S. S. (2011). Modelos de
+#' Regressão. Piracicaba: ESALQ. (Tabela 2.9 pág. 64)
+#'
+#' @examples
+#'
+#' data(DemetrioTb2.9)
+#'
+#' library(lattice)
+#'
+#' xyplot(y ~ x, data = DemetrioTb2.9,
+#' main = "x vs y",
+#' xlab = "x",
+#' ylab = "y",
+#' type = c("p", "r"), col.line = 3)
+#'
+#' model <- lm(y ~ x, data = DemetrioTb2.9)
+#' summary(model)
+#' anova(model)
+#'
+NULL
diff --git a/data-raw/DemetrioEx2.12.15.txt b/data-raw/DemetrioEx2.12.15.txt
new file mode 100644
index 0000000000000000000000000000000000000000..d61e59f6ff483a491c524680a0242ab311387576
--- /dev/null
+++ b/data-raw/DemetrioEx2.12.15.txt
@@ -0,0 +1,7 @@
+x y
+0 13.464
+2 9.025
+3 7.389
+4 4.953
+6 4.055
+9 2.718
diff --git a/data-raw/DemetrioEx2.12.16.txt b/data-raw/DemetrioEx2.12.16.txt
new file mode 100644
index 0000000000000000000000000000000000000000..0e2d80c556e332e38f14705f688800edb0c12d66
--- /dev/null
+++ b/data-raw/DemetrioEx2.12.16.txt
@@ -0,0 +1,10 @@
+calcio tm
+0.1 63
+0.2 79
+0.2 80
+0.4 86
+0.5 88
+0.8 89
+1 93
+1.6 93
+3.2 96
diff --git a/data-raw/DemetrioEx2.12.5.txt b/data-raw/DemetrioEx2.12.5.txt
new file mode 100644
index 0000000000000000000000000000000000000000..22cb1918cc6b2a086b9dbefe9c06ef384a6a49c6
--- /dev/null
+++ b/data-raw/DemetrioEx2.12.5.txt
@@ -0,0 +1,6 @@
+x y
+0 4
+2 6
+4 10
+6 9
+8 6
diff --git a/data-raw/DemetrioEx1.4.1.3.txt b/data-raw/DemetrioTb2.10.txt
similarity index 65%
rename from data-raw/DemetrioEx1.4.1.3.txt
rename to data-raw/DemetrioTb2.10.txt
index 8f0e28faed39d02cfe03acac31520acdf070199a..b1637710ee64a23cc4d78a202f38490e97743a20 100644
--- a/data-raw/DemetrioEx1.4.1.3.txt
+++ b/data-raw/DemetrioTb2.10.txt
@@ -2,11 +2,17 @@ co2 absorv
75 0
100 0.65
100 0.5
+100 0.4
120 1
130 0.95
130 1.3
160 1.8
+160 1.8
+160 2.1
190 2.8
200 2.5
+200 2.9
+200 2.45
+200 3.05
240 4.3
250 4.5
diff --git a/data-raw/DemetrioTb2.11.txt b/data-raw/DemetrioTb2.11.txt
new file mode 100644
index 0000000000000000000000000000000000000000..13c1417c431c8af966a429a04e4034d20cb82bac
--- /dev/null
+++ b/data-raw/DemetrioTb2.11.txt
@@ -0,0 +1,71 @@
+dose peso
+0 9.45
+0 10.84
+0 10.12
+0 11.14
+0 10.3
+0 11.04
+0 11.45
+0 12.23
+0 9.46
+0 12.75
+30 10.14
+30 10.73
+30 9.02
+30 0.91
+30 1.35
+30 6.89
+30 1.14
+30 8.98
+30 9.18
+30 0.82
+40 8.61
+40 5.48
+40 8.88
+40 9.23
+40 6.15
+40 8.86
+40 7.32
+40 7.66
+40 9.63
+40 5.7
+50 6.46
+50 5.88
+50 7.14
+50 2.49
+50 8.33
+50 6.93
+50 6.18
+50 4.14
+50 6.75
+50 5.5
+60 7.22
+60 5.49
+60 0.45
+60 6
+60 5.05
+60 0.15
+60 4.97
+60 3.52
+60 7.07
+60 9.93
+70 2.45
+70 4.45
+70 5.04
+70 6.19
+70 4.15
+70 5.49
+70 4.65
+70 2.78
+70 5.98
+70 0.7
+80 3.75
+80 5.75
+80 2.94
+80 0.23
+80 2.22
+80 2.65
+80 2.61
+80 4.13
+80 2.8
+80 4.95
diff --git a/data-raw/DemetrioTb2.12.txt b/data-raw/DemetrioTb2.12.txt
new file mode 100644
index 0000000000000000000000000000000000000000..28007e4318bd2dadadf0f36bd2d5395da21c0b64
--- /dev/null
+++ b/data-raw/DemetrioTb2.12.txt
@@ -0,0 +1,29 @@
+data bloco prod
+03/5 1 21.2
+07/5 1 19.3
+11/5 1 22.8
+15/5 1 26
+19/5 1 43.5
+23/5 1 32.1
+27/5 1 33
+03/5 2 21.4
+07/5 2 17.4
+11/5 2 29
+15/5 2 34
+19/5 2 37
+23/5 2 30.5
+27/5 2 32.2
+03/5 3 12
+07/5 3 24.5
+11/5 3 18.5
+15/5 3 33
+19/5 3 23.1
+23/5 3 35.7
+27/5 3 35.4
+03/5 4 17.2
+07/5 4 30.2
+11/5 4 24.5
+15/5 4 30.2
+19/5 4 23.5
+23/5 4 32.3
+27/5 4 35.4
diff --git a/data-raw/DemetrioTb2.9.txt b/data-raw/DemetrioTb2.9.txt
new file mode 100644
index 0000000000000000000000000000000000000000..46eafe586b5c27560d722903ac7c963d7ee020cd
--- /dev/null
+++ b/data-raw/DemetrioTb2.9.txt
@@ -0,0 +1,11 @@
+x y
+0 3
+1 2
+1 3
+2 5
+3 4
+3 4
+4 7
+5 6
+5 7
+6 9
diff --git a/data/DemetrioEx1.4.1.3.rda b/data/DemetrioEx1.4.1.3.rda
deleted file mode 100644
index 080ba8e793b87b5d1d277a7fb78c918861b660d3..0000000000000000000000000000000000000000
Binary files a/data/DemetrioEx1.4.1.3.rda and /dev/null differ
diff --git a/data/DemetrioEx2.12.15.rda b/data/DemetrioEx2.12.15.rda
new file mode 100644
index 0000000000000000000000000000000000000000..51a4f672df4525c71cfbcc56dec02eda874ce39c
Binary files /dev/null and b/data/DemetrioEx2.12.15.rda differ
diff --git a/data/DemetrioEx2.12.16.rda b/data/DemetrioEx2.12.16.rda
new file mode 100644
index 0000000000000000000000000000000000000000..2859a94f016dc1630636bcaf6269a5889205f798
Binary files /dev/null and b/data/DemetrioEx2.12.16.rda differ
diff --git a/data/DemetrioEx2.12.5.rda b/data/DemetrioEx2.12.5.rda
new file mode 100644
index 0000000000000000000000000000000000000000..2ad57b5174482e357e6fe202c7400805fa4191e3
Binary files /dev/null and b/data/DemetrioEx2.12.5.rda differ
diff --git a/data/DemetrioTb2.10.rda b/data/DemetrioTb2.10.rda
new file mode 100644
index 0000000000000000000000000000000000000000..6f6cf9c4643ac45b60146fa7a665b49a74f8d39b
Binary files /dev/null and b/data/DemetrioTb2.10.rda differ
diff --git a/data/DemetrioTb2.11.rda b/data/DemetrioTb2.11.rda
new file mode 100644
index 0000000000000000000000000000000000000000..27e5704dd27beb3cf4370851264c6d23505a73aa
Binary files /dev/null and b/data/DemetrioTb2.11.rda differ
diff --git a/data/DemetrioTb2.12.rda b/data/DemetrioTb2.12.rda
new file mode 100644
index 0000000000000000000000000000000000000000..1a5fb57c1b32e193919c2b2da883217b29dee32e
Binary files /dev/null and b/data/DemetrioTb2.12.rda differ
diff --git a/data/DemetrioTb2.9.rda b/data/DemetrioTb2.9.rda
new file mode 100644
index 0000000000000000000000000000000000000000..aa7e1528238c12c70653494e30c820ba4e169387
Binary files /dev/null and b/data/DemetrioTb2.9.rda differ
diff --git a/man/DemetrioEx1.4.1.3.Rd b/man/DemetrioEx1.4.1.3.Rd
deleted file mode 100644
index 55701e640975e881d8212540158102900a3851c7..0000000000000000000000000000000000000000
--- a/man/DemetrioEx1.4.1.3.Rd
+++ /dev/null
@@ -1,40 +0,0 @@
-% Generated by roxygen2: do not edit by hand
-% Please edit documentation in R/DemetrioEx1.4.1.3.R
-\name{DemetrioEx1.4.1.3}
-\alias{DemetrioEx1.4.1.3}
-\title{Absorção de CO2 por Folhas de Trigo}
-\format{Um \code{data.frame} de 11 linhas e 2 colunas.
-
-\describe{
-
- \item{\code{co2}}{Concentração de \eqn{CO_2} aplicada sobre as
- folhas de trigo.}
-
- \item{\code{absorv}}{Quantia de \eqn{CO2} absorvida pelas folhas
- de trigo, medida em \eqn{cm^3/dm^2/hora.}}
-
-}}
-\source{
-Demétrio, C. G. B., & Zocchi, S. S. (2011). Modelos de
- Regressão. Piracicaba: ESALQ. (Exercício 1.4.1.3 pág. 14)
-}
-\description{
-Foi aplicado \eqn{CO_2} sobre folhas de trigo a uma
- temperatura de 35°C. Mediu-se a quantia de \eqn{CO_2} absorvido
- pelas folhas.
-}
-\examples{
-
-data(DemetrioEx1.4.1.3)
-
-library(lattice)
-
-xyplot(absorv ~ co2, data = DemetrioEx1.4.1.3,
- main = "CO2 Aplicado VS Absorvido",
- xlab = "Aplicado",
- ylab = "Absorvido",
- type = c("p", "r"), col.line = 3)
-
-}
-\keyword{TODO}
-
diff --git a/man/DemetrioEx2.12.15.Rd b/man/DemetrioEx2.12.15.Rd
new file mode 100644
index 0000000000000000000000000000000000000000..5873ef447fd97e3fb8cbe662306ac2d42cbb1666
--- /dev/null
+++ b/man/DemetrioEx2.12.15.Rd
@@ -0,0 +1,38 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/DemetrioEx2.12.15.R
+\name{DemetrioEx2.12.15}
+\alias{DemetrioEx2.12.15}
+\title{Dados Genéricos Simulados para Regressão Simples}
+\format{Um \code{data.frame} de 6 linhas e 2 colunas.
+
+\describe{
+
+ \item{\code{x}}{Variável independente, sem interpretação.}
+
+ \item{\code{y}}{Variável dependente, sem interpretação.}
+
+}}
+\source{
+Demétrio, C. G. B., & Zocchi, S. S. (2011). Modelos de
+ Regressão. Piracicaba: ESALQ. (Exercício 2.12.15 pág. 63)
+}
+\description{
+Dados simulados para exercício analítico de estimação
+ via método dos quadrados mínimos em diferentes modelos de
+ regressão linear.
+}
+\examples{
+
+data(DemetrioEx2.12.15)
+
+library(lattice)
+
+xyplot(y ~ x, data = DemetrioEx2.12.15,
+ main = "x vs y",
+ xlab = "x",
+ ylab = "y",
+ type = c("p", "r"), col.line = 3)
+
+}
+\keyword{TODO}
+
diff --git a/man/DemetrioEx2.12.16.Rd b/man/DemetrioEx2.12.16.Rd
new file mode 100644
index 0000000000000000000000000000000000000000..25d4cc1cf210f284c4ceb03c20375216abfe7bfd
--- /dev/null
+++ b/man/DemetrioEx2.12.16.Rd
@@ -0,0 +1,39 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/DemetrioEx2.12.16.R
+\name{DemetrioEx2.12.16}
+\alias{DemetrioEx2.12.16}
+\title{Calagem para a Sucessão batata-triticale-milho}
+\format{Um \code{data.frame} de 9 linhas e 2 colunas.
+
+\describe{
+
+ \item{\code{calcio}}{Teor de cálcio no solo, medido em
+ \eqn{meq/100cm^{3}} (miliequivalente por 100 centímetros
+ cúbicos).}
+
+ \item{\code{tm}}{Porcentagem de tubérculos maduros.}
+
+}}
+\source{
+Demétrio, C. G. B., & Zocchi, S. S. (2011). Modelos de
+ Regressão. Piracicaba: ESALQ. (Exercício 2.12.16 pág. 63)
+}
+\description{
+Neste experimento foram obtidos os valores para o teor
+ de cálcio no solo e a porcentagem de tubérculos maduros com o
+ objetivo de verificar a relação existente entre estas variáveis.
+}
+\examples{
+
+data(DemetrioEx2.12.16)
+
+library(lattice)
+
+xyplot(tm ~ calcio, data = DemetrioEx2.12.16,
+ main = "Cálcio VS TM",
+ xlab = "Cálcio",
+ ylab = "Tubérculos Maduros")
+
+}
+\keyword{TODO}
+
diff --git a/man/DemetrioEx2.12.5.Rd b/man/DemetrioEx2.12.5.Rd
new file mode 100644
index 0000000000000000000000000000000000000000..f32c2adabb0fc5ebca808b75b3f0cd8cac51819c
--- /dev/null
+++ b/man/DemetrioEx2.12.5.Rd
@@ -0,0 +1,49 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/DemetrioEx2.12.5.R
+\name{DemetrioEx2.12.5}
+\alias{DemetrioEx2.12.5}
+\title{Dados Genéricos para Regressão Segmentada}
+\format{Um \code{data.frame} de 5 linhas e 2 colunas.
+
+\describe{
+
+ \item{\code{x}}{Variável independente, sem interpretação.}
+
+ \item{\code{y}}{Variável dependente, sem interpretação.}
+
+}}
+\source{
+Demétrio, C. G. B., & Zocchi, S. S. (2011). Modelos de
+ Regressão. Piracicaba: ESALQ. (Exercício 2.12.5 pág. 60)
+}
+\description{
+Dados para exercício analítico, com o objetivo de obter
+ as estimativas de mínimos quadrados dos parâmetros de um modelo
+ de regressão linear segmentada.
+}
+\examples{
+
+data(DemetrioEx2.12.5)
+
+library(lattice)
+
+xyplot(y ~ x, data = DemetrioEx2.12.5,
+ cex = 1.1, pch = 19,
+ main = 'Regressão Segmentada',
+ grid = TRUE,
+ panel = function(x, y, ...) {
+ # Regressão Segmentada com ponto de corte conhecido
+ b <- DemetrioEx2.12.5$x[3]
+ m0 <- lm(y ~ x + I(pmax(x - b, 0)),
+ data = DemetrioEx2.12.5)
+ # Pontos que definem os dois segmentos
+ cx <- c(0, b, 8)
+ cy <- predict(m0, newdata = data.frame(x = cx))
+ panel.xyplot(x, y, ...)
+ panel.segments(cx[1], cy[1], cx[2], cy[2])
+ panel.segments(cx[2], cy[2], cx[3], cy[3])
+ })
+
+}
+\keyword{RegSeg}
+
diff --git a/man/DemetrioTb1.3.Rd b/man/DemetrioTb1.3.Rd
index e789ac68ade11a9f70f6dde8ee27a5146d40ea8b..13357882417cbd867f84fd94d0f8cec45b26f4d6 100644
--- a/man/DemetrioTb1.3.Rd
+++ b/man/DemetrioTb1.3.Rd
@@ -16,7 +16,8 @@
}}
\source{
Demétrio, C. G. B., & Zocchi, S. S. (2011). Modelos de
- Regressão. Piracicaba: ESALQ. (Tabela 1.3 pág. 10)
+ Regressão. Piracicaba: ESALQ. (Tabela 1.3 pág. 10;
+ Ex 2.12.14 pág. 62)
}
\description{
Estudo da construção de um tensiômetro de leitura
diff --git a/man/DemetrioTb2.10.Rd b/man/DemetrioTb2.10.Rd
new file mode 100644
index 0000000000000000000000000000000000000000..da30046cf82a6d1cfd9303deae6e417c329cd521
--- /dev/null
+++ b/man/DemetrioTb2.10.Rd
@@ -0,0 +1,49 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/DemetrioTb2.10.R
+\name{DemetrioTb2.10}
+\alias{DemetrioTb2.10}
+\title{Absorção de CO2 por Folhas de Trigo}
+\format{Um \code{data.frame} de 17 linhas e 2 colunas.
+
+\describe{
+
+ \item{\code{co2}}{Concentração de \eqn{CO_2} aplicada sobre as
+ folhas de trigo.}
+
+ \item{\code{absorv}}{Quantia de \eqn{CO_2} absorvida pelas folhas
+ de trigo, medida em \eqn{cm^3/dm^2/hora.}}
+
+}}
+\source{
+Demétrio, C. G. B., & Zocchi, S. S. (2011). Modelos de
+ Regressão. Piracicaba: ESALQ. (Tabela 2.10 pág. 65, Exercício
+ 1.4.1.3 pág. 14)
+}
+\description{
+Dados provenientes de um ensaio inteiramente casualizado
+ onde aplicou-se \eqn{CO_2} sobre folhas de trigo a uma
+ temperatura de 35°C e mediu-se a quantia de \eqn{CO_2} absorvido
+ pelas folhas.
+}
+\examples{
+
+data(DemetrioTb2.10)
+
+library(lattice)
+
+xyplot(absorv ~ co2, data = DemetrioTb2.10,
+ main = "CO2 Aplicado VS Absorvido",
+ xlab = "Aplicado",
+ ylab = "Absorvido",
+ type = c("p", "r"), col.line = 3)
+
+# Subconjunto do exercício 1.4.1.3
+obs <- c(1, 2, 3, 5, 6, 7, 8, 11, 12, 16, 17)
+DemetrioEx1.4.1.3 <- DemetrioTb2.10[obs, ]
+
+xyplot(absorv ~ co2, data = DemetrioEx1.4.1.3,
+ type = c("p", "r"), col.line = 3)
+
+}
+\keyword{TODO}
+
diff --git a/man/DemetrioTb2.11.Rd b/man/DemetrioTb2.11.Rd
new file mode 100644
index 0000000000000000000000000000000000000000..f39999db45ead342b73c7316712e4168ff135516
--- /dev/null
+++ b/man/DemetrioTb2.11.Rd
@@ -0,0 +1,52 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/DemetrioTb2.11.R
+\name{DemetrioTb2.11}
+\alias{DemetrioTb2.11}
+\title{Radiação Gama em Explantes de Abacaxis}
+\format{Um \code{data.frame} de 70 linhas e 2 colunas.
+
+\describe{
+
+ \item{\code{dose}}{Dose de radiação gama a qual os
+ explantes de abacaxi foram expostos durante 45 dias.}
+
+ \item{\code{absorv}}{Peso dos explantes de abacaxi após a
+ irradiação, medido em gramas (g).}
+
+}}
+\source{
+Demétrio, C. G. B., & Zocchi, S. S. (2011). Modelos de
+ Regressão. Piracicaba: ESALQ. (Tabela 2.11 pág. 66)
+}
+\description{
+Dados provenientes de um experimento inteiramente
+ casualizado onde expuseram explantes de abacaxis a diferentes
+ doses de radiação gama e, 45 dias após a irradiação, mensurou-se
+ o peso destes explantes.
+}
+\examples{
+
+data(DemetrioTb2.11)
+
+library(lattice)
+# Estatísticas descritivas
+with(DemetrioTb2.11, tapply(peso, dose, summary))
+
+with(DemetrioTb2.11, {
+ mu <<- aggregate(peso, list(dose), mean)
+ des <<- aggregate(peso, list(dose), sd)
+})
+
+xyplot(peso ~ dose, data = DemetrioTb2.11,
+ type = c("p", "r"), grid = TRUE,
+ panel = function(x, y, ...) {
+ panel.points(x = mu$G - 1, y = mu$x, pch = 15, col = 1)
+ panel.arrows(x0 = mu$G - 1, y0 = mu$x - des$x,
+ x1 = mu$G - 1, y1 = mu$x + des$x,
+ code = 3, length = 0.05, angle = 90)
+ panel.xyplot(x, y, ...)
+ })
+
+}
+\keyword{TODO}
+
diff --git a/man/DemetrioTb2.12.Rd b/man/DemetrioTb2.12.Rd
new file mode 100644
index 0000000000000000000000000000000000000000..d6a6d47f2bb58ce09be1adf24ce67698308ac48e
--- /dev/null
+++ b/man/DemetrioTb2.12.Rd
@@ -0,0 +1,55 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/DemetrioTb2.12.R
+\name{DemetrioTb2.12}
+\alias{DemetrioTb2.12}
+\title{Produção de Ruibarbo}
+\format{Um \code{data.frame} de 28 linhas e 3 colunas.
+
+\describe{
+
+ \item{\code{data}}{Data de colheita dos ruibarbos. Obs.: Para
+ utilizar o formato \code{\link{Date}} foi considerado o ano 1983
+ (Date de publicação do livro que referencia os dados).}
+
+ \item{\code{bloco}}{Fator que indica o bloco, para controle de
+ variação, ao qual a observação pertence.}
+
+ \item{\code{prod}}{Valor da produção de ruibarbo.}
+
+}}
+\source{
+Demétrio, C. G. B., & Zocchi, S. S. (2011). Modelos de
+ Regressão. Piracicaba: ESALQ. (Tabela 2.12 pág. 66-67)
+}
+\description{
+Dados de um experimento conduzido em delineamento de
+ blocos ao acaso onde foi mensurada a produção de ruibarbos para
+ enlatamento, considerando diferentes datas de colheita.
+}
+\examples{
+
+data(DemetrioTb2.12)
+
+library(lattice)
+
+# Estatísticas descritivas
+with(DemetrioTb2.12, tapply(prod, data, summary))
+
+with(DemetrioTb2.12, {
+ mu <<- aggregate(prod, list(data), mean)
+ des <<- aggregate(prod, list(data), sd)
+})
+
+xyplot(prod ~ data, data = DemetrioTb2.12,
+ type = c("p", "r"), grid = TRUE,
+ panel = function(x, y, ...) {
+ panel.points(x = mu$G - 0.5, y = mu$x, pch = 15, col = 1)
+ panel.arrows(x0 = mu$G - 0.5, y0 = mu$x - des$x,
+ x1 = mu$G - 0.5, y1 = mu$x + des$x,
+ code = 3, length = 0.05, angle = 90)
+ panel.xyplot(x, y, ...)
+ })
+
+}
+\keyword{TODO}
+
diff --git a/man/DemetrioTb2.9.Rd b/man/DemetrioTb2.9.Rd
new file mode 100644
index 0000000000000000000000000000000000000000..39c3a9c79b4f660cbd141809b0f94bd727d56489
--- /dev/null
+++ b/man/DemetrioTb2.9.Rd
@@ -0,0 +1,42 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/DemetrioTb2.9.R
+\name{DemetrioTb2.9}
+\alias{DemetrioTb2.9}
+\title{Dados Genéricos para Regressão Simples}
+\format{Um \code{data.frame} de 10 linhas e 2 colunas.
+
+\describe{
+
+ \item{\code{x}}{Variável independente, sem interpretação.}
+
+ \item{\code{y}}{Variável dependente, sem interpretação.}
+
+}}
+\source{
+Demétrio, C. G. B., & Zocchi, S. S. (2011). Modelos de
+ Regressão. Piracicaba: ESALQ. (Tabela 2.9 pág. 64)
+}
+\description{
+Dados para exercício analítico, com o objetivo de
+ estimar os parâmetros de forma pontual e intervalar, realizar a
+ ANOVA, entre outros.
+}
+\examples{
+
+data(DemetrioTb2.9)
+
+library(lattice)
+
+xyplot(y ~ x, data = DemetrioTb2.9,
+ main = "x vs y",
+ xlab = "x",
+ ylab = "y",
+ type = c("p", "r"), col.line = 3)
+
+model <- lm(y ~ x, data = DemetrioTb2.9)
+summary(model)
+anova(model)
+
+}
+\keyword{TODO}
+