From 0ec8b1ab4f8e504c23732523f1483d1cabdb640a Mon Sep 17 00:00:00 2001
From: Alcides Conte Neto <neto_conte@hotmail.com>
Date: Fri, 18 Mar 2016 17:55:19 -0300
Subject: [PATCH] Adicionado e Documentado Ex2.12.[5, 15, 16]

---
 R/DemetrioEx2.12.15.R          |  34 ++++++++++++++++++++++++++++++++
 R/DemetrioEx2.12.16.R          |  35 +++++++++++++++++++++++++++++++++
 R/DemetrioEx2.12.5.R           |  34 ++++++++++++++++++++++++++++++++
 R/DemetrioTb1.3.R              |   3 ++-
 data-raw/DemetrioEx2.12.15.txt |   7 +++++++
 data-raw/DemetrioEx2.12.16.txt |  10 ++++++++++
 data-raw/DemetrioEx2.12.5.txt  |   6 ++++++
 data/DemetrioEx2.12.15.rda     | Bin 0 -> 255 bytes
 data/DemetrioEx2.12.16.rda     | Bin 0 -> 231 bytes
 data/DemetrioEx2.12.5.rda      | Bin 0 -> 180 bytes
 10 files changed, 128 insertions(+), 1 deletion(-)
 create mode 100644 R/DemetrioEx2.12.15.R
 create mode 100644 R/DemetrioEx2.12.16.R
 create mode 100644 R/DemetrioEx2.12.5.R
 create mode 100644 data-raw/DemetrioEx2.12.15.txt
 create mode 100644 data-raw/DemetrioEx2.12.16.txt
 create mode 100644 data-raw/DemetrioEx2.12.5.txt
 create mode 100644 data/DemetrioEx2.12.15.rda
 create mode 100644 data/DemetrioEx2.12.16.rda
 create mode 100644 data/DemetrioEx2.12.5.rda

diff --git a/R/DemetrioEx2.12.15.R b/R/DemetrioEx2.12.15.R
new file mode 100644
index 0000000..127d15c
--- /dev/null
+++ b/R/DemetrioEx2.12.15.R
@@ -0,0 +1,34 @@
+#' @name DemetrioEx2.12.15
+#' @title Valores Simulados
+#' 
+#' @description Os dados estão presentes no exercício com o objetivo de
+#'     desenhar o gráfico de dispersão e realizar o ajuste do modelo.
+#' 
+#' @format Um \code{data.frame} de 6 linhas e 2 colunas.
+#' 
+#' \describe{
+#' 
+#'     \item{\code{x}}{Sem interpretação.}
+#'     
+#'     \item{\code{y}}{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 0000000..7ce292e
--- /dev/null
+++ b/R/DemetrioEx2.12.16.R
@@ -0,0 +1,35 @@
+#' @name DemetrioEx2.12.16
+#' @title Calagem para a sucessão batata-triticale-milho
+#' 
+#' @description Foi obtido 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 as 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 meq/100cm3.}
+#'     
+#'     \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 0000000..f8beaa8
--- /dev/null
+++ b/R/DemetrioEx2.12.5.R
@@ -0,0 +1,34 @@
+#' @name DemetrioEx2.12.5
+#' @title Estimativa de Quadrados Mínimos
+#' 
+#' @description Os dados estão presentes no exercício com o objetivo de
+#'     estimar na prática o quadrado mínimo.
+#' 
+#' @format Um \code{data.frame} de 5 linhas e 2 colunas.
+#' 
+#' \describe{
+#' 
+#'     \item{\code{x}}{Sem interpretação.}
+#'     
+#'     \item{\code{y}}{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.5 pág. 60)
+#' 
+#' @examples 
+#' 
+#' data(DemetrioEx2.12.5)
+#' 
+#' library(lattice)
+#' 
+#' xyplot(y ~ x, data = DemetrioEx2.12.5,
+#'      main = "x vs y",
+#'      xlab = "x",
+#'      ylab = "y",
+#'      type = c("p", "r"), col.line = 3)
+#'      
+NULL
diff --git a/R/DemetrioTb1.3.R b/R/DemetrioTb1.3.R
index 4abe4ab..6d106f2 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/data-raw/DemetrioEx2.12.15.txt b/data-raw/DemetrioEx2.12.15.txt
new file mode 100644
index 0000000..d61e59f
--- /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 0000000..0e2d80c
--- /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 0000000..22cb191
--- /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/DemetrioEx2.12.15.rda b/data/DemetrioEx2.12.15.rda
new file mode 100644
index 0000000000000000000000000000000000000000..51a4f672df4525c71cfbcc56dec02eda874ce39c
GIT binary patch
literal 255
zcmZ>Y%CIzaj8qGboMNncmw}=9|NH;t8O{cRMj37lh5`EN^B*`dYB0DsGPpG`G;lEp
zZeZB9VcCj|vkoQ<Y(0+48kad_)J<IRsc~W8GQr8dQj8Or6&M&8q}a5YeHj=oFl1a{
zU|hh!8kze{He!mU<FUmXd}phva5fxEJ)>fn7b0j^=(x{NK%;{rL-+HEDvpdP{w*98
zOpGnej7$XzQVwSrj&50$w5o&Wn!`Sk$5%NECr@FVuE_uG$Mv?m?Te~yq7v)Rv-2~5
z_$nw=J?DMu(FVOp-j|yWZ0xtmb}9YE*des&PY|<bp>wRpmKmo%9}-zw7t!GGPwz=r
L!9qoiH1Ayi>o#Mu

literal 0
HcmV?d00001

diff --git a/data/DemetrioEx2.12.16.rda b/data/DemetrioEx2.12.16.rda
new file mode 100644
index 0000000000000000000000000000000000000000..2859a94f016dc1630636bcaf6269a5889205f798
GIT binary patch
literal 231
zcmZ>Y%CIzaj8qGb^uG2(n1P}G|NH;O84L`Jh789T<{!{kpL4*0fx&=5!9f9p9Tsk2
zSkvqh>}#_?(uCRB;exGlR^7^Fj%{rX3=9_-7#Ns5MQ$}P@H8-FFfQO*@<e4->}He2
zW=)f{y_qyV>ZVSRD3)8W^G)9a7S*-q8MF*mZudC8sVYe2faatE3xz`+iTnwi`sq~x
zh5EfLYFA?SiAHYxC~tLA*jTeHW~(&g^hE(3g71Q7?pzinb@^(==^h?OF6UX2XPd2-
kEPcuHgv0o$^V>2X*Vs1hj~7Jvf9#&5d8nl+Zu@~50BDw4GXMYp

literal 0
HcmV?d00001

diff --git a/data/DemetrioEx2.12.5.rda b/data/DemetrioEx2.12.5.rda
new file mode 100644
index 0000000000000000000000000000000000000000..2ad57b5174482e357e6fe202c7400805fa4191e3
GIT binary patch
literal 180
zcmZ>Y%CIzaj8qGb)Oc3q#=ubW|G+<E4~Gy&BL+7H0SA5cIS(8d7&sR&bn%*ME<Tb~
zmBlto($+tK=c~iSkjrkfGA=7FIB0Uj<YGkMZokhl^Lh=0dc#<@9O)FgV6&$!Y3Ei3
z@u{&4)2>a)sr=%?WVPf1kA%~umP`Q?rV2y7J%&;Trt+QcUU=QLe-oqTX+2quRg3L6
nWbIfocj`&2IlHFW-hQx0c60FYuZ-+Jc2Ckg)Y9l~e8~U+i+D?~

literal 0
HcmV?d00001

-- 
GitLab