Merge branch 'alcides51' into devel

man/DemetrioEx2.12.15.Rd

+% 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}
+

man/DemetrioEx2.12.16.Rd

+% 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}
+

man/DemetrioEx2.12.5.Rd

+% 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}
+

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

man/DemetrioEx1.4.1.3.Rd → man/DemetrioTb2.10.Rd

 % 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}
+% 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 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.}}
     
 }}
 \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)
 }
 \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
+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(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)
+
 }
 \keyword{TODO}
 

man/DemetrioTb2.11.Rd

+% 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}
+

man/DemetrioTb2.12.Rd

+% 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}
+

man/DemetrioTb2.9.Rd

+% 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}
+