Merge branch 'alcides51' into devel

R/DemetrioEx2.12.15.R

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

R/DemetrioEx2.12.16.R

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

R/DemetrioEx2.12.5.R

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

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

R/DemetrioEx1.4.1.3.R → R/DemetrioTb2.10.R

-#' @name DemetrioEx1.4.1.3
+#' @name DemetrioTb2.10
 #' @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
+#' @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 11 linhas e 2 colunas.
+#' @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{CO2} absorvida pelas folhas
+#'     \item{\code{absorv}}{Quantia de \eqn{CO_2} absorvida pelas folhas
 #'     de trigo, medida em \eqn{cm^3/dm^2/hora.}}
 #'     
 #' }
@@ -20,18 +21,26 @@
 #' @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)
+#'     Regressão. Piracicaba: ESALQ. (Tabela 2.10 pág. 65, Exercício
+#'     1.4.1.3 pág. 14)
 #' 
 #' @examples 
 #' 
-#' data(DemetrioEx1.4.1.3)
+#' data(DemetrioTb2.10)
 #' 
 #' library(lattice)
 #' 
-#' xyplot(absorv ~ co2, data = DemetrioEx1.4.1.3,
+#' 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

R/DemetrioTb2.11.R

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

R/DemetrioTb2.12.R

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

R/DemetrioTb2.9.R

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

data-raw/DemetrioEx2.12.15.txt

+x	y
+0	13.464
+2	9.025
+3	7.389
+4	4.953
+6	4.055
+9	2.718

data-raw/DemetrioEx2.12.16.txt

+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

data-raw/DemetrioEx2.12.5.txt

+x	y
+0	4
+2	6
+4	10
+6	9
+8	6

data-raw/DemetrioEx1.4.1.3.txt → 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

data-raw/DemetrioTb2.11.txt

+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

data-raw/DemetrioTb2.12.txt

+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

data-raw/DemetrioTb2.9.txt

+x	y
+0	3
+1	2
+1	3
+2	5
+3	4
+3	4
+4	7
+5	6
+5	7
+6	9