From 5e0e204254fdc869d55f07fbe56af792fd863bd6 Mon Sep 17 00:00:00 2001 From: Lineu <lialcafre@gmail.com> Date: Mon, 10 Oct 2016 19:23:57 -0300 Subject: [PATCH 1/9] Adiciona Tabela 5A.1 --- R/NetoTb5A.1.R | 27 +++++++++++++++++++++++++++ data-raw/NetoTb5A.1.txt | 26 ++++++++++++++++++++++++++ data/NetoTb5A.1.rda | Bin 0 -> 413 bytes man/NetoTb5A.1.Rd | 35 +++++++++++++++++++++++++++++++++++ 4 files changed, 88 insertions(+) create mode 100644 R/NetoTb5A.1.R create mode 100644 data-raw/NetoTb5A.1.txt create mode 100644 data/NetoTb5A.1.rda create mode 100644 man/NetoTb5A.1.Rd diff --git a/R/NetoTb5A.1.R b/R/NetoTb5A.1.R new file mode 100644 index 00000000..6e9343d0 --- /dev/null +++ b/R/NetoTb5A.1.R @@ -0,0 +1,27 @@ +#' @name NetoTb5A.1 +#' @title A Flexibilidade do Ar +#' @description Dados originais de Robert Boyle referente à sua +#' descoberta: a relação entre a pressão e o volume de uma dada massa +#' de ar. +#' @format Um \code{data.frame} com 25 observações e 2 variáveis, em que +#' +#' \describe{ +#' +#' \item{\code{v}}{Volume.} +#' +#' \item{\code{p}}{Pressão.} +#' +#' } +#' @keywords DBC +#' @source Barros Neto, Benício de (2010), (Tabela 5A.1, pág. 252) +#' @examples +#' +#' data(NetoTb5A.1) +#' str(NetoTb5A.1) +#' +#' plot(NetoTb5A.1, type = 'b', +#' xlab = "Volume", +#' ylab = "Pressão", +#' main = "Dados do Experimento de Boyle") +#' +NULL diff --git a/data-raw/NetoTb5A.1.txt b/data-raw/NetoTb5A.1.txt new file mode 100644 index 00000000..e5872b91 --- /dev/null +++ b/data-raw/NetoTb5A.1.txt @@ -0,0 +1,26 @@ +v p +1 48 +1.049 46 +1.097 44 +1.150 42 +1.212 40 +1.27 38 +1.35 36 +1.429 34 +1.517 32 +1.616 30 +1.727 28 +1.865 26 +2.019 24 +2.105 23 +2.199 22 +2.302 21 +2.427 20 +2.545 19 +2.674 18 +2.841 17 +3.017 16 +3.195 15 +3.449 14 +3.702 13 +4.036 12 diff --git a/data/NetoTb5A.1.rda b/data/NetoTb5A.1.rda new file mode 100644 index 0000000000000000000000000000000000000000..a2beeb39114772f062bd8c0ef08a75ca55e211fd GIT binary patch literal 413 zcmZ>Y%CIzaj8qGbl+lV^z`(Gn{{R2_|6fDHKWTkq+!|Uhe)p)CQp2VdEFysc0V!Qg zE9<j2Fp3%Sx-5LfAMEc^)oWtHaDiur!-b3thRg*<Rc*8EgR>kiE}Jp$O8W|}28OHz zmIE^w7<_sd7#I``7?=z=4)Azsm@qIfFe@-zFkxW0xIl`5fq{Y7<c12v2L+}lEj=6+ z2M!48tbO#vy_>OF<*c+t$;S^(4y{5a^E`vqgVy@Z+jZrEw1k;t-Xz9#P79sVISRy& zEby%B@Yw6J?ePK&x8k+3QU{NC98L4&Q#inO{2gEH@&Hcu7i>L=JT^(J4<a3N6|3(> zJ(Ri7u63-L|A2M4g6fvU;vaJyC;fVB9Wu||xMPm?{Y{a=M=wq3IaJB5CsVuAQuOP& z&0X_tW-Do}Ob=wYJS=*wW`Bm0r}->r7bW?}&a-EEZ8f|WrP<oEcc*KBsP)TwpGs~o z#<}$cUB0JoU$WE+E&suJf0N5W*U9IX2}pDC^c!eyRa%fS@2tWR!J7X`wo0D-0sSAG UbXHV||JXfA^H58}!=See02P_3BLDyZ literal 0 HcmV?d00001 diff --git a/man/NetoTb5A.1.Rd b/man/NetoTb5A.1.Rd new file mode 100644 index 00000000..77e043cf --- /dev/null +++ b/man/NetoTb5A.1.Rd @@ -0,0 +1,35 @@ +% Generated by roxygen2: do not edit by hand +% Please edit documentation in R/NetoTb5A.1.R +\name{NetoTb5A.1} +\alias{NetoTb5A.1} +\title{A Flexibilidade do Ar} +\format{Um \code{data.frame} com 25 observações e 2 variáveis, em que + +\describe{ + +\item{\code{v}}{Volume.} + +\item{\code{p}}{Pressão.} + +}} +\source{ +Barros Neto, Benício de (2010), (Tabela 5A.1, pág. 252) +} +\description{ +Dados originais de Robert Boyle referente à sua + descoberta: a relação entre a pressão e o volume de uma dada massa + de ar. +} +\examples{ + +data(NetoTb5A.1) +str(NetoTb5A.1) + +plot(NetoTb5A.1, type = 'b', + xlab = "Volume", + ylab = "Pressão", + main = "Dados do Experimento de Boyle") + +} +\keyword{DBC} + -- GitLab From 586e3c0a2e28e399bd4583b2040c829b1fd5bcf2 Mon Sep 17 00:00:00 2001 From: Lineu <lialcafre@gmail.com> Date: Mon, 10 Oct 2016 19:28:18 -0300 Subject: [PATCH 2/9] Adiciona Tabela 5A.2 --- R/NetoTb5A.2.R | 29 +++++++++++++++++++++++++++++ data-raw/NetoTb5A.2.txt | 22 ++++++++++++++++++++++ data/NetoTb5A.2.rda | Bin 0 -> 461 bytes man/NetoTb5A.2.Rd | 37 +++++++++++++++++++++++++++++++++++++ 4 files changed, 88 insertions(+) create mode 100644 R/NetoTb5A.2.R create mode 100644 data-raw/NetoTb5A.2.txt create mode 100644 data/NetoTb5A.2.rda create mode 100644 man/NetoTb5A.2.Rd diff --git a/R/NetoTb5A.2.R b/R/NetoTb5A.2.R new file mode 100644 index 00000000..a702c7c7 --- /dev/null +++ b/R/NetoTb5A.2.R @@ -0,0 +1,29 @@ +#' @name NetoTb5A.2 +#' @title Calibração em Cromatografia +#' @description Para construir uma curva de calibração mediu-se a altura +#' de um pico cromatográfico para seis diferentes concentrações de +#' bentazona. +#' @format Um \code{data.frame} com 21 observações e 2 variáveis, em que +#' +#' \describe{ +#' +#' \item{\code{con}}{Concentração.} +#' +#' \item{\code{alt}}{Altura do pico.} +#' +#' } +#' @keywords DBC +#' @source Barros Neto, Benício de (2010), (Tabela 5A.2, pág. 256) +#' @examples +#' +#' data(NetoTb5A.2) +#' str(NetoTb5A.2) +#' +#' plot(alt ~ con, data = NetoTb5A.2, +#' xlab = "Concentração", +#' ylab = "Altura", +#' main = "Dados da Calibração Cromatográfica da Bentazona") +#' +#' abline(lm(alt ~ con, data = NetoTb5A.2), col = 2) +#' +NULL diff --git a/data-raw/NetoTb5A.2.txt b/data-raw/NetoTb5A.2.txt new file mode 100644 index 00000000..ddef9f85 --- /dev/null +++ b/data-raw/NetoTb5A.2.txt @@ -0,0 +1,22 @@ +con alt +0.0133 0.1836 +0.0133 0.1787 +0.0133 0.1837 +0.0133 0.1806 +0.0133 0.1861 +0.0665 0.9373 +0.0665 0.9177 +0.0665 0.9224 +0.3325 4.6227 +0.3325 4.7812 +0.3325 4.6256 +0.665 9.6905 +0.665 9.9405 +0.665 9.5754 +0.9975 14.7607 +0.9975 15.0113 +0.9975 14.9641 +1.33 21.0033 +1.33 20.27 +1.33 20.5719 +1.33 20.0915 diff --git a/data/NetoTb5A.2.rda b/data/NetoTb5A.2.rda new file mode 100644 index 0000000000000000000000000000000000000000..7f1264c9c6b92a269ccdac72800073ff895d3f52 GIT binary patch literal 461 zcmZ>Y%CIzaj8qGbWYLH!U|?8U|NsByy36<3r)_)p+r-V@eeSI~OC#}fg$taNpOibj z=i9`%fzd26amixO1()60+8THn7<gA?WJsCtvb8msq%ElG<uy2=%-QQ;sy5}~vU!u; z)O-yY5_%0K4ICIuBor<S`#2aVc6Lr+U`SQ9^$%R;V8Uy{U~*Y;!C#LHybKHsCsL9a zE-;ud@X9T8uoPYBXCZIU9Ccb^p}@Dl4J{421~~_>m@v4c$t0R_Wil?<tjf@?VXUF_ zGC)KzHAI13(08E_15XXBngHL|9SMCW7PP%)IaF44JopCt&dql@Yh2jX?>#aIIhk(% z*`zm2bcK|`k=E<gXD=w^yf|X(cFEm%UqmH`^g0{ASv+n(s($epJNYi2F+)@1*1<QE z|EG#P3JG@P6iA&=B|PJ;q=Qvk`K;|vM9QAd7s%)M!7sKYUSPAyzKOo-a&FpfA=)?A zCS5eK7BG6|7HT!k%zT03r@wryv4x>$cDiuPc%#y>L~B<|x5s(q<ALfuvT6~+PyIR0 zOylrgt*M~#<J-YR{v_e4pZLTt=Wm$CW|M!|T2`SaWcd#-#v{9)-r(vEVXWJsA$G9x RL;S~bmEcxR2B+5L3;<^iw?qH{ literal 0 HcmV?d00001 diff --git a/man/NetoTb5A.2.Rd b/man/NetoTb5A.2.Rd new file mode 100644 index 00000000..cf34f880 --- /dev/null +++ b/man/NetoTb5A.2.Rd @@ -0,0 +1,37 @@ +% Generated by roxygen2: do not edit by hand +% Please edit documentation in R/NetoTb5A.2.R +\name{NetoTb5A.2} +\alias{NetoTb5A.2} +\title{Calibração em Cromatografia} +\format{Um \code{data.frame} com 21 observações e 2 variáveis, em que + +\describe{ + +\item{\code{con}}{Concentração.} + +\item{\code{alt}}{Altura do pico.} + +}} +\source{ +Barros Neto, Benício de (2010), (Tabela 5A.2, pág. 256) +} +\description{ +Para construir uma curva de calibração mediu-se a altura + de um pico cromatográfico para seis diferentes concentrações de + bentazona. +} +\examples{ + +data(NetoTb5A.2) +str(NetoTb5A.2) + +plot(alt ~ con, data = NetoTb5A.2, + xlab = "Concentração", + ylab = "Altura", + main = "Dados da Calibração Cromatográfica da Bentazona") + +abline(lm(alt ~ con, data = NetoTb5A.2), col = 2) + +} +\keyword{DBC} + -- GitLab From 07a3e8edb973ce2899aef83d016d92f0ea1c1f02 Mon Sep 17 00:00:00 2001 From: Lineu <lialcafre@gmail.com> Date: Mon, 10 Oct 2016 19:32:36 -0300 Subject: [PATCH 3/9] Adiciona Tabela 5A.3 --- R/NetoTb5A.3.R | 37 +++++++++++++++++++++++++++++++++ data-raw/NetoTb5A.3.txt | 10 +++++++++ data/NetoTb5A.3.rda | Bin 0 -> 409 bytes man/NetoTb5A.3.Rd | 45 ++++++++++++++++++++++++++++++++++++++++ 4 files changed, 92 insertions(+) create mode 100644 R/NetoTb5A.3.R create mode 100644 data-raw/NetoTb5A.3.txt create mode 100644 data/NetoTb5A.3.rda create mode 100644 man/NetoTb5A.3.Rd diff --git a/R/NetoTb5A.3.R b/R/NetoTb5A.3.R new file mode 100644 index 00000000..ad662900 --- /dev/null +++ b/R/NetoTb5A.3.R @@ -0,0 +1,37 @@ +#' @name NetoTb5A.3 +#' @title Calibração Multivariada +#' @description Várias misturas de soluções-padrão dessas três espécies +#' químicas foram preparadas e analisadas por espectrofotometria UV +#' visível em três comprimentos de onda diferentes. +#' @format Um \code{data.frame} com 9 observações e 4 variáveis, em que +#' +#' \describe{ +#' +#' \item{\code{vol}}{Volume do íon.} +#' +#' \item{\code{A1}}{Comprimento de onda A530.} +#' +#' \item{\code{A2}}{Comprimento de onda A440.} +#' +#' \item{\code{A3}}{Comprimento de onda A410.} +#' +#' } +#' @keywords DBC +#' @source Barros Neto, Benício de (2010), (Tabela 5A.3, pág. 258) +#' @examples +#' +#' data(NetoTb5A.3) +#' str(NetoTb5A.3) +#' +#' par(mfrow = c(1,3)) +#' +#' plot(vol ~ A1, data = NetoTb5A.3, xlab = "A530", ylab = "Volume") +#' abline(lm(vol ~ A1, data = NetoTb5A.3), col = 2) +#' +#' plot(vol ~ A2, data = NetoTb5A.3, xlab = "A440", ylab = "Volume") +#' abline(lm(vol ~ A2, data = NetoTb5A.3), col = 2) +#' +#' plot(vol ~ A3, data = NetoTb5A.3, xlab = "A410", ylab = "Volume") +#' abline(lm(vol ~ A3, data = NetoTb5A.3), col = 2) +#' +NULL diff --git a/data-raw/NetoTb5A.3.txt b/data-raw/NetoTb5A.3.txt new file mode 100644 index 00000000..8eee2832 --- /dev/null +++ b/data-raw/NetoTb5A.3.txt @@ -0,0 +1,10 @@ +vol A1 A2 A3 +7.5 0.084 0.506 0.602 +6.6 0.108 0.479 0.561 +5 0.149 0.426 0.472 +3.4 0.182 0.375 0.385 +2.5 0.205 0.342 0.334 +1.7 0.159 0.409 0.375 +5 0.149 0.426 0.472 +5 0.113 0.488 0.523 +4 0.149 0.432 0.456 diff --git a/data/NetoTb5A.3.rda b/data/NetoTb5A.3.rda new file mode 100644 index 0000000000000000000000000000000000000000..07b71cd42cc5c9a91d285483d3e0ec9dbc5c3722 GIT binary patch literal 409 zcmZ>Y%CIzaj8qGbRNSBNl7V6U|NsB1WA5rU@9KKTIX9p_{O-{NC9S4)Ey29H8`*xp zQ0iE@fl;Exq|20T7IT)AiQEEPhYO4gE|^sH2W0TBV0JzwH`%SZ%5AcOV*^tHgBk-8 z;0X%;>L09pB?(E4f#Kpy>%)mNXZSVDE1BN2sN<&EagGG#{@0Jy9(4Vi!o;x3wLHm! z!<b{DR>O%kYpZP9CLLm8;OJ;$=xAy)N>XBu$Q4xkE9+p<%xDpp*smTcW#)K{@37Lt z*)697yZFxBVbD3=bJz5SL#4IMhopHA#QfiUJb0U5ldZ={Y3WKy*Lk<R+F5zBGfZ=~ zU-j#L!QWTDfLX05G0@5VXiY_&YouRLu=iBizAcv(Q+98y(weEMJ>4#4kyCD_kpC|) z_E{B&*8PmrWUJ%ZJ@tMa;~sZ4vEw@f)n;pdS|ajg#?8&KcNXesG^YN@bN1^iuydSh x@-yY}fft5>D!-WTu+#-{aO}{2{UP>W`{R1?2S43>x&OqT6nW_6(Dt`^2>|mXr>g(} literal 0 HcmV?d00001 diff --git a/man/NetoTb5A.3.Rd b/man/NetoTb5A.3.Rd new file mode 100644 index 00000000..e7107aff --- /dev/null +++ b/man/NetoTb5A.3.Rd @@ -0,0 +1,45 @@ +% Generated by roxygen2: do not edit by hand +% Please edit documentation in R/NetoTb5A.3.R +\name{NetoTb5A.3} +\alias{NetoTb5A.3} +\title{Calibração Multivariada} +\format{Um \code{data.frame} com 9 observações e 4 variáveis, em que + +\describe{ + +\item{\code{vol}}{Volume do íon.} + +\item{\code{A1}}{Comprimento de onda A530.} + +\item{\code{A2}}{Comprimento de onda A440.} + +\item{\code{A3}}{Comprimento de onda A410.} + +}} +\source{ +Barros Neto, Benício de (2010), (Tabela 5A.3, pág. 258) +} +\description{ +Várias misturas de soluções-padrão dessas três espécies + químicas foram preparadas e analisadas por espectrofotometria UV + visível em três comprimentos de onda diferentes. +} +\examples{ + +data(NetoTb5A.3) +str(NetoTb5A.3) + +par(mfrow = c(1,3)) + +plot(vol ~ A1, data = NetoTb5A.3, xlab = "A530", ylab = "Volume") +abline(lm(vol ~ A1, data = NetoTb5A.3), col = 2) + +plot(vol ~ A2, data = NetoTb5A.3, xlab = "A440", ylab = "Volume") +abline(lm(vol ~ A2, data = NetoTb5A.3), col = 2) + +plot(vol ~ A3, data = NetoTb5A.3, xlab = "A410", ylab = "Volume") +abline(lm(vol ~ A3, data = NetoTb5A.3), col = 2) + +} +\keyword{DBC} + -- GitLab From 14309a3346559da6e675fa86e3055f0b83570ad7 Mon Sep 17 00:00:00 2001 From: Lineu <lialcafre@gmail.com> Date: Mon, 10 Oct 2016 19:36:14 -0300 Subject: [PATCH 4/9] Adiciona Tabela 5A.4 --- R/NetoTb5A.4.R | 26 ++++++++++++++++++++++++++ data-raw/NetoTb5A.4.txt | 19 +++++++++++++++++++ data/NetoTb5A.4.rda | Bin 0 -> 316 bytes man/NetoTb5A.4.Rd | 34 ++++++++++++++++++++++++++++++++++ 4 files changed, 79 insertions(+) create mode 100644 R/NetoTb5A.4.R create mode 100644 data-raw/NetoTb5A.4.txt create mode 100644 data/NetoTb5A.4.rda create mode 100644 man/NetoTb5A.4.Rd diff --git a/R/NetoTb5A.4.R b/R/NetoTb5A.4.R new file mode 100644 index 00000000..94ebca3e --- /dev/null +++ b/R/NetoTb5A.4.R @@ -0,0 +1,26 @@ +#' @name NetoTb5A.4 +#' @title Intervalo de Eergias Proíbidas em Semicondutores +#' @description Para se determinar o intervalo de energias proibidas em +#' um semicondutor, pode-se usar o fenômeno da variação da +#' condutividade eletrônica em função da temperatura. +#' @format Um \code{data.frame} com 18 observações e 2 variáveis, em que +#' +#' \describe{ +#' +#' \item{\code{gap}}{ogaritmo neperiano da variação da condutividade +#' eletrônica.} +#' +#' \item{\code{int}}{limites do intervalo.} +#' +#' } +#' @keywords DBC +#' @source Barros Neto, Benício de (2010), (Tabela 5A.4, pág. 260) +#' @examples +#' +#' data(NetoTb5A.4) +#' str(NetoTb5A.4) +#' +#' plot(int ~ gap, data = NetoTb5A.4, xlab = "gap", ylab = "Intervalo") +#' abline(lm(int ~ gap, data = NetoTb5A.4), col = 4, lwd = 1) +#' +NULL diff --git a/data-raw/NetoTb5A.4.txt b/data-raw/NetoTb5A.4.txt new file mode 100644 index 00000000..66e8dc9b --- /dev/null +++ b/data-raw/NetoTb5A.4.txt @@ -0,0 +1,19 @@ +gap int +3.19 2.24 +3.19 2.29 +3.09 2.74 +3.09 2.81 +3 3.19 +3 3.22 +2.91 3.6 +2.91 3.61 +2.83 3.95 +2.83 4.01 +2.75 4.33 +2.75 4.33 +2.68 4.62 +2.68 4.62 +2.61 4.92 +2.61 4.93 +2.54 5.21 +2.54 5.21 diff --git a/data/NetoTb5A.4.rda b/data/NetoTb5A.4.rda new file mode 100644 index 0000000000000000000000000000000000000000..c508efc55a360fe1594cc254ac6f6682c7904d3d GIT binary patch literal 316 zcmZ>Y%CIzaj8qGb{JdcAZU%-W|NsC0{)dslQH&|&poxq9@;@`27#a+C7#SQS*cciV zc$pYCF#MR1srjnPmvI3D16u<FTf;4rS<G#-Qj!d2B`7xd8uSPYD=u?uYw%cN>T5G0 z<FZ2rgOmxg0z>Ak-X)z8Q;fH0A5xq>!|&qVz0;Wv{tch=BJAcvf1d_zT@jPtPh6U| zOm;e-@%`vw11}cYjDxBQhMfiyv5PK??BPpXc5KFp%}i`Hils5HzpXFco-1sxv(LKo zxbX_J3k3@`oPGH7k5#!8as;dtuM*c)I56EYf+vTaMY1r@KPjjw*1P7B#_Zia7ANI| zW+ZYt7^s>aT&$aV*#B+KrwL-`Os$d(f9jw2k36Oo#-`)VslpN%erZ|N8lF(?B^N}! X%pNGK`KYk}(|giYuu$>2V|5t-Bujpg literal 0 HcmV?d00001 diff --git a/man/NetoTb5A.4.Rd b/man/NetoTb5A.4.Rd new file mode 100644 index 00000000..e579ab7d --- /dev/null +++ b/man/NetoTb5A.4.Rd @@ -0,0 +1,34 @@ +% Generated by roxygen2: do not edit by hand +% Please edit documentation in R/NetoTb5A.4.R +\name{NetoTb5A.4} +\alias{NetoTb5A.4} +\title{Intervalo de Eergias Proíbidas em Semicondutores} +\format{Um \code{data.frame} com 18 observações e 2 variáveis, em que + +\describe{ + +\item{\code{gap}}{ogaritmo neperiano da variação da condutividade + eletrônica.} + +\item{\code{int}}{limites do intervalo.} + +}} +\source{ +Barros Neto, Benício de (2010), (Tabela 5A.4, pág. 260) +} +\description{ +Para se determinar o intervalo de energias proibidas em + um semicondutor, pode-se usar o fenômeno da variação da + condutividade eletrônica em função da temperatura. +} +\examples{ + +data(NetoTb5A.4) +str(NetoTb5A.4) + +plot(int ~ gap, data = NetoTb5A.4, xlab = "gap", ylab = "Intervalo") +abline(lm(int ~ gap, data = NetoTb5A.4), col = 4, lwd = 1) + +} +\keyword{DBC} + -- GitLab From f51997a7c8ca79f0dc53307e63708c1170d2d53a Mon Sep 17 00:00:00 2001 From: Lineu <lialcafre@gmail.com> Date: Mon, 10 Oct 2016 19:39:31 -0300 Subject: [PATCH 5/9] Adiciona Tabela 5A.5 --- R/NetoTb5A.5.R | 28 ++++++++++++++++++++++++++++ data-raw/NetoTb5A.5.txt | 10 ++++++++++ data/NetoTb5A.5.rda | Bin 0 -> 270 bytes man/NetoTb5A.5.Rd | 36 ++++++++++++++++++++++++++++++++++++ 4 files changed, 74 insertions(+) create mode 100644 R/NetoTb5A.5.R create mode 100644 data-raw/NetoTb5A.5.txt create mode 100644 data/NetoTb5A.5.rda create mode 100644 man/NetoTb5A.5.Rd diff --git a/R/NetoTb5A.5.R b/R/NetoTb5A.5.R new file mode 100644 index 00000000..3722e94d --- /dev/null +++ b/R/NetoTb5A.5.R @@ -0,0 +1,28 @@ +#' @name NetoTb5A.5 +#' @title Determinação de Um Calor de Vaporização +#' @description Sob certas condições, pode-se demonstrar que a pressão +#' de vapor de uma substância se relaciona com a temperatura absoluta +#' em que se encontra através da equação de Clausius e Clapeyron. +#' @format Um \code{data.frame} com 9 observações e 2 variáveis, em que +#' +#' \describe{ +#' +#' \item{\code{t}}{Temperatura absoluta.} +#' +#' \item{\code{p}}{Pressão de vapor.} +#' +#' } +#' @keywords DBC +#' @source Barros Neto, Benício de (2010), (Tabela 5A.5, pág. 261) +#' @examples +#' +#' data(NetoTb5A.5) +#' str(NetoTb5A.5) +#' +#' plot(p ~ t, data = NetoTb5A.5, +#' xlab = "Temperatura Absoluta", +#' ylab = "Pressão de Vapor") +#' +#' abline(lm(p ~ t, data = NetoTb5A.5), col = 10, lwd = 2) +#' +NULL diff --git a/data-raw/NetoTb5A.5.txt b/data-raw/NetoTb5A.5.txt new file mode 100644 index 00000000..8ce82a95 --- /dev/null +++ b/data-raw/NetoTb5A.5.txt @@ -0,0 +1,10 @@ +t p +273 0.044 +283 0.075 +293 0.122 +303 0.19 +313 0.288 +323 0.422 +333 0.601 +343 0.829 +353 1.124 diff --git a/data/NetoTb5A.5.rda b/data/NetoTb5A.5.rda new file mode 100644 index 0000000000000000000000000000000000000000..c450889608e165895ad7054559aa68345c239ca0 GIT binary patch literal 270 zcmZ>Y%CIzaj8qGbR7=|0!N5>a|Nmck1}_umER8kFTQ1tO-)V5_Vr*b!;RtAO5a8&T zq0qU3VcS7rPqT#!7#J=)FfR6GU~5+Mce%LW(()B@3n!ScHC&J~VsmS_ASKDbtP;Qg z1B?w0k8HwU$Z;5{sr7Aa-@ogkBCqD;%d3-aU1Zc;To=LOz;Tk%cx8%?B+EiJEe56r z2X($H)6P!nv|(b>R}*w;a_~5`qg0z=RgY7zLeJ{mm3@!5?>!$q?WlmuN|W3a$9i|G zvor4eY3YcFDUddf&0tCAIF-A%ro*KwWM#U4c%rAEuB!ZxzvjQfN*?I#acZcMKl~-3 Ud4UM~kKL0r54AKJi>`410Ewq&Z2$lO literal 0 HcmV?d00001 diff --git a/man/NetoTb5A.5.Rd b/man/NetoTb5A.5.Rd new file mode 100644 index 00000000..f81484d5 --- /dev/null +++ b/man/NetoTb5A.5.Rd @@ -0,0 +1,36 @@ +% Generated by roxygen2: do not edit by hand +% Please edit documentation in R/NetoTb5A.5.R +\name{NetoTb5A.5} +\alias{NetoTb5A.5} +\title{Determinação de Um Calor de Vaporização} +\format{Um \code{data.frame} com 9 observações e 2 variáveis, em que + +\describe{ + +\item{\code{t}}{Temperatura absoluta.} + +\item{\code{p}}{Pressão de vapor.} + +}} +\source{ +Barros Neto, Benício de (2010), (Tabela 5A.5, pág. 261) +} +\description{ +Sob certas condições, pode-se demonstrar que a pressão + de vapor de uma substância se relaciona com a temperatura absoluta + em que se encontra através da equação de Clausius e Clapeyron. +} +\examples{ + +data(NetoTb5A.5) +str(NetoTb5A.5) + +plot(p ~ t, data = NetoTb5A.5, + xlab = "Temperatura Absoluta", + ylab = "Pressão de Vapor") + +abline(lm(p ~ t, data = NetoTb5A.5), col = 10, lwd = 2) + +} +\keyword{DBC} + -- GitLab From 797065b965b3d48cd572e68f0ca3dbf57870e397 Mon Sep 17 00:00:00 2001 From: Lineu <lialcafre@gmail.com> Date: Mon, 10 Oct 2016 19:43:47 -0300 Subject: [PATCH 6/9] Adiciona Tabela 5A.6 --- R/NetoTb5A.6.R | 47 ++++++++++++++++++++++++++++++++++ data-raw/NetoTb5A.6.txt | 6 +++++ data/NetoTb5A.6.rda | Bin 0 -> 325 bytes man/NetoTb5A.6.Rd | 55 ++++++++++++++++++++++++++++++++++++++++ 4 files changed, 108 insertions(+) create mode 100644 R/NetoTb5A.6.R create mode 100644 data-raw/NetoTb5A.6.txt create mode 100644 data/NetoTb5A.6.rda create mode 100644 man/NetoTb5A.6.Rd diff --git a/R/NetoTb5A.6.R b/R/NetoTb5A.6.R new file mode 100644 index 00000000..c2a19d17 --- /dev/null +++ b/R/NetoTb5A.6.R @@ -0,0 +1,47 @@ +#' @name NetoTb5A.6 +#' @title Outra Calibração +#' @description A tabela mostra concentrações de soluções aquosas +#' contendo íons zinco e as respectivas absorvâncias obtidas num +#' experimento para construir uma curva de calibração num +#' espectrômetro de absorção atômica. +#' @format Um \code{data.frame} com 9 observações e 2 variáveis, em que +#' +#' \describe{ +#' +#' \item{\code{zn}}{Concentração de zinco.} +#' +#' \item{\code{t1}}{Triplicata 1.} +#' +#' \item{\code{t2}}{Triplicata 2.} +#' +#' \item{\code{t3}}{Triplicata 3.} +#' +#' } +#' @keywords DBC +#' @source Barros Neto, Benício de (2010), (Tabela 5A.6, pág. 263) +#' @examples +#' +#' data(NetoTb5A.6) +#' str(NetoTb5A.6) +#' +#' par(mfrow = c(1,3)) +#' +#' plot(zn ~ t1, data = NetoTb5A.6, +#' xlab = "Triplicata 1", +#' ylab = "Zinco") +#' +#' abline(lm(zn ~ t1, data = NetoTb5A.6), col = 2) +#' +#' plot(zn ~ t2, data = NetoTb5A.6, +#' xlab = "Triplicata 2", +#' ylab = "Zinco") +#' +#' abline(lm(zn ~ t2, data = NetoTb5A.6), col = 3) +#' +#' plot(zn ~ t3, data = NetoTb5A.6, +#' xlab = "Triplicata 3", +#' ylab = "Zinco") +#' +#' abline(lm(zn ~ t3, data = NetoTb5A.6), col = 4) +#' +NULL diff --git a/data-raw/NetoTb5A.6.txt b/data-raw/NetoTb5A.6.txt new file mode 100644 index 00000000..9419c7b0 --- /dev/null +++ b/data-raw/NetoTb5A.6.txt @@ -0,0 +1,6 @@ +zn t1 t2 t3 +0 0.696 0.696 0.706 +0.5 7.632 7.688 7.603 +1 14.804 14.861 14.731 +2 28.895 29.156 29.322 +3 43.993 43.574 44.69 diff --git a/data/NetoTb5A.6.rda b/data/NetoTb5A.6.rda new file mode 100644 index 0000000000000000000000000000000000000000..5b02c456ecd807d79a9b1cfbb45dbee0e805e206 GIT binary patch literal 325 zcmZ>Y%CIzaj8qGbOlxAbV_@k1|Nmckgdjt=HQ#f^Jr4Hjb1!%`F?20r5DauMXkj?b zaiV(z!?lE#2^kj{Ab@eQL&jNO7FAovi3=A<GB7ZtusMKaBsHZ>gxxN%WSnf6!Qj&~ zLpamG&1Y7M$(=pU2G<yP{S5dRGB$2{mTJ=?`bez*{+fmF-zmGWX|k!kRuyCu68g%p zTh2Y$Nt9uQg9G;wMF)ZMh1$je0#z3T6UAHu$`mFvUs?O_hT%akxm!1-rW<V#_r7X( z%|LGY!5Y&;>BW~$vds~@{$&~aF1D8ag)1BuhdHIsUU(-(tMS8+<Clt<_ob~XaTQ&Y zcC6qb&kduAQw<fT2er->cD}*X@cF>eC2p?II(~V-n8WttM?jQ!PKc<NSTM`K6$w+g b(jSH|fB1@b8sq$<cP9FYs7Nko^ltzFj`f0o literal 0 HcmV?d00001 diff --git a/man/NetoTb5A.6.Rd b/man/NetoTb5A.6.Rd new file mode 100644 index 00000000..19429783 --- /dev/null +++ b/man/NetoTb5A.6.Rd @@ -0,0 +1,55 @@ +% Generated by roxygen2: do not edit by hand +% Please edit documentation in R/NetoTb5A.6.R +\name{NetoTb5A.6} +\alias{NetoTb5A.6} +\title{Outra Calibração} +\format{Um \code{data.frame} com 9 observações e 2 variáveis, em que + +\describe{ + +\item{\code{zn}}{Concentração de zinco.} + +\item{\code{t1}}{Triplicata 1.} + +\item{\code{t2}}{Triplicata 2.} + +\item{\code{t3}}{Triplicata 3.} + +}} +\source{ +Barros Neto, Benício de (2010), (Tabela 5A.6, pág. 263) +} +\description{ +A tabela mostra concentrações de soluções aquosas + contendo íons zinco e as respectivas absorvâncias obtidas num + experimento para construir uma curva de calibração num + espectrômetro de absorção atômica. +} +\examples{ + +data(NetoTb5A.6) +str(NetoTb5A.6) + +par(mfrow = c(1,3)) + +plot(zn ~ t1, data = NetoTb5A.6, + xlab = "Triplicata 1", + ylab = "Zinco") + +abline(lm(zn ~ t1, data = NetoTb5A.6), col = 2) + +plot(zn ~ t2, data = NetoTb5A.6, + xlab = "Triplicata 2", + ylab = "Zinco") + +abline(lm(zn ~ t2, data = NetoTb5A.6), col = 3) + +plot(zn ~ t3, data = NetoTb5A.6, + xlab = "Triplicata 3", + ylab = "Zinco") + +abline(lm(zn ~ t3, data = NetoTb5A.6), col = 4) + +} +\keyword{DBC} + -- GitLab From 4a1a9c7b7cbea04e8c51a09026521aa74fd2ddf4 Mon Sep 17 00:00:00 2001 From: Lineu <lialcafre@gmail.com> Date: Mon, 10 Oct 2016 19:46:43 -0300 Subject: [PATCH 7/9] Adiciona Tabela 6.1 --- R/NetoTb6.1.R | 32 ++++++++++++++++++++++++++++++++ data-raw/NetoTb6.1.txt | 8 ++++++++ data/NetoTb6.1.rda | Bin 0 -> 179 bytes man/NetoTb6.1.Rd | 40 ++++++++++++++++++++++++++++++++++++++++ 4 files changed, 80 insertions(+) create mode 100644 R/NetoTb6.1.R create mode 100644 data-raw/NetoTb6.1.txt create mode 100644 data/NetoTb6.1.rda create mode 100644 man/NetoTb6.1.Rd diff --git a/R/NetoTb6.1.R b/R/NetoTb6.1.R new file mode 100644 index 00000000..8233d6c3 --- /dev/null +++ b/R/NetoTb6.1.R @@ -0,0 +1,32 @@ +#' @name NetoTb6.1 +#' @title Resultados de Um Planejamento 2^2 +#' @description Resultados de Um Planejamento 2^2 com ponto central. +#' @format Um \code{data.frame} com 7 observações e 3 variáveis, em que +#' +#' \describe{ +#' +#' \item{\code{x1}}{Valores do fator 1.} +#' +#' \item{\code{x2}}{Valores do fator 2.} +#' +#' \item{\code{y}}{Resposta.} +#' +#' } +#' @keywords DBC +#' @source Barros Neto, Benício de (2010), (Tabela 6.1, pág. 267) +#' @examples +#' +#' data(NetoTb6.1) +#' str(NetoTb6.1) +#' +#' par(mfrow = c(1,2)) +#' +#' plot(y ~ x1, data = NetoTb6.1) +#' +#' abline(lm(y ~ x1, data = NetoTb6.1), col = 2) +#' +#' plot(y ~ x2, data = NetoTb6.1) +#' +#' abline(lm(y ~ x2, data = NetoTb6.1), col = 3) +#' +NULL diff --git a/data-raw/NetoTb6.1.txt b/data-raw/NetoTb6.1.txt new file mode 100644 index 00000000..8a557142 --- /dev/null +++ b/data-raw/NetoTb6.1.txt @@ -0,0 +1,8 @@ +x1 x2 y +-1 -1 69 +1 -1 59 +-1 1 78 +1 1 67 +0 0 68 +0 0 66 +0 0 69 diff --git a/data/NetoTb6.1.rda b/data/NetoTb6.1.rda new file mode 100644 index 0000000000000000000000000000000000000000..ec5621b50e30edcb4bfbab1690cdedc637bb2fd5 GIT binary patch literal 179 zcmZ>Y%CIzaj8qGbv~`qkV_+z&Kk#pt2Ll76A%`5Jh=V=*oCgjJ42laFx_E_B=5@Z} zWjn=_YQnzkDofX5UnxnRhRaMDCsGswHM<$F>0M>dNnOpYtaW_rjOvHn3%Qgm7_5|6 zeY(WF*xlS^*A^ufS%)MSUY!FMxs5k(R$>)f!S^gpvS+1;SY?Lf%;dV6Pdb`r`Q<wO kJT`sO>f%W+eQxo$Ik}5BE3t<^{1bap<e`(pSC%>n07+0nt^fc4 literal 0 HcmV?d00001 diff --git a/man/NetoTb6.1.Rd b/man/NetoTb6.1.Rd new file mode 100644 index 00000000..b4fe86fe --- /dev/null +++ b/man/NetoTb6.1.Rd @@ -0,0 +1,40 @@ +% Generated by roxygen2: do not edit by hand +% Please edit documentation in R/NetoTb6.1.R +\name{NetoTb6.1} +\alias{NetoTb6.1} +\title{Resultados de Um Planejamento 2^2} +\format{Um \code{data.frame} com 7 observações e 3 variáveis, em que + +\describe{ + +\item{\code{x1}}{Valores do fator 1.} + +\item{\code{x2}}{Valores do fator 2.} + +\item{\code{y}}{Resposta.} + +}} +\source{ +Barros Neto, Benício de (2010), (Tabela 6.1, pág. 267) +} +\description{ +Resultados de Um Planejamento 2^2 com ponto central. +} +\examples{ + +data(NetoTb6.1) +str(NetoTb6.1) + +par(mfrow = c(1,2)) + +plot(y ~ x1, data = NetoTb6.1) + +abline(lm(y ~ x1, data = NetoTb6.1), col = 2) + +plot(y ~ x2, data = NetoTb6.1) + +abline(lm(y ~ x2, data = NetoTb6.1), col = 3) + +} +\keyword{DBC} + -- GitLab From 98ca1bc044436f73b35968cde594b6ef7f225dbc Mon Sep 17 00:00:00 2001 From: Lineu <lialcafre@gmail.com> Date: Mon, 10 Oct 2016 19:50:07 -0300 Subject: [PATCH 8/9] Adiciona Tabela 6.3 --- R/NetoTb6.3.R | 33 +++++++++++++++++++++++++++++++++ data-raw/NetoTb6.3.txt | 9 +++++++++ data/NetoTb6.3.rda | Bin 0 -> 182 bytes man/NetoTb6.3.Rd | 41 +++++++++++++++++++++++++++++++++++++++++ 4 files changed, 83 insertions(+) create mode 100644 R/NetoTb6.3.R create mode 100644 data-raw/NetoTb6.3.txt create mode 100644 data/NetoTb6.3.rda create mode 100644 man/NetoTb6.3.Rd diff --git a/R/NetoTb6.3.R b/R/NetoTb6.3.R new file mode 100644 index 00000000..778390e9 --- /dev/null +++ b/R/NetoTb6.3.R @@ -0,0 +1,33 @@ +#' @name NetoTb6.3 +#' @title Caminho de Máxima Inclinação +#' @description O caminho de máxima inclinação pode ser determinado +#' algebricamente a partir dos coeficientes do modelo. +#' @format Um \code{data.frame} com 7 observações e 3 variáveis, em que +#' +#' \describe{ +#' +#' \item{\code{x1}}{Valores do fator 1.} +#' +#' \item{\code{x2}}{Valores do fator 2.} +#' +#' \item{\code{y}}{Resposta.} +#' +#' } +#' @keywords DBC +#' @source Barros Neto, Benício de (2010), (Tabela 6.3, pág. 271) +#' @examples +#' +#' data(NetoTb6.3) +#' str(NetoTb6.3) +#' +#' par(mfrow = c(1,2)) +#' +#' plot(y ~ x1, data = NetoTb6.3) +#' +#' abline(lm(y ~ x1, data = NetoTb6.3), col = 2) +#' +#' plot(y ~ x2, data = NetoTb6.3) +#' +#' abline(lm(y ~ x2, data = NetoTb6.3), col = 3) +#' +NULL diff --git a/data-raw/NetoTb6.3.txt b/data-raw/NetoTb6.3.txt new file mode 100644 index 00000000..1faabbc2 --- /dev/null +++ b/data-raw/NetoTb6.3.txt @@ -0,0 +1,9 @@ +x1 x2 y +0 0 68 +0 0 66 +0 0 69 +-1 0.81 77 +-2 1.62 86 +-3 2.43 88 +-4 3.24 80 +-5 4.05 70 diff --git a/data/NetoTb6.3.rda b/data/NetoTb6.3.rda new file mode 100644 index 0000000000000000000000000000000000000000..f2cb5fe9155c4bc46e8f161232673cf93332c557 GIT binary patch literal 182 zcmZ>Y%CIzaj8qGbJQp1~fq|i{{=mOo9t;eOmK<`7A`bTKa~?P_Feoly=;9ShnYV1- zg0IY`ytXE@m@j8FxdwJlT-Gzw<iZ6LBeo6^ucQNIQ*SJIo3k-7B{kyPX7N}KJAp;Y z4a}>o*7GW8XWV+b=tdwDH$##OuTH~7VWZ8}N~~%txX+w1vbe}x`00X?QSZ*DO-fwp pmRq?WzdSQFdQSh8vkSf-@%XSsQow3I|D$&v%ejOkPiGr3003wvNnii~ literal 0 HcmV?d00001 diff --git a/man/NetoTb6.3.Rd b/man/NetoTb6.3.Rd new file mode 100644 index 00000000..3ff9aaed --- /dev/null +++ b/man/NetoTb6.3.Rd @@ -0,0 +1,41 @@ +% Generated by roxygen2: do not edit by hand +% Please edit documentation in R/NetoTb6.3.R +\name{NetoTb6.3} +\alias{NetoTb6.3} +\title{Caminho de Máxima Inclinação} +\format{Um \code{data.frame} com 7 observações e 3 variáveis, em que + +\describe{ + +\item{\code{x1}}{Valores do fator 1.} + +\item{\code{x2}}{Valores do fator 2.} + +\item{\code{y}}{Resposta.} + +}} +\source{ +Barros Neto, Benício de (2010), (Tabela 6.3, pág. 271) +} +\description{ +O caminho de máxima inclinação pode ser determinado + algebricamente a partir dos coeficientes do modelo. +} +\examples{ + +data(NetoTb6.3) +str(NetoTb6.3) + +par(mfrow = c(1,2)) + +plot(y ~ x1, data = NetoTb6.3) + +abline(lm(y ~ x1, data = NetoTb6.3), col = 2) + +plot(y ~ x2, data = NetoTb6.3) + +abline(lm(y ~ x2, data = NetoTb6.3), col = 3) + +} +\keyword{DBC} + -- GitLab From b43cc22960b98f62798bbcc8a8945716c0534906 Mon Sep 17 00:00:00 2001 From: Lineu <lialcafre@gmail.com> Date: Mon, 10 Oct 2016 19:57:14 -0300 Subject: [PATCH 9/9] Adiciona Tabela 6.5 & modifica Tabela 6.3 --- R/NetoTb6.5.R | 32 ++++++++++++++++++++++++++++++++ data-raw/NetoTb6.5.txt | 8 ++++++++ data/NetoTb6.3.rda | Bin 182 -> 243 bytes data/NetoTb6.5.rda | Bin 0 -> 181 bytes man/NetoTb6.5.Rd | 40 ++++++++++++++++++++++++++++++++++++++++ 5 files changed, 80 insertions(+) create mode 100644 R/NetoTb6.5.R create mode 100644 data-raw/NetoTb6.5.txt create mode 100644 data/NetoTb6.5.rda create mode 100644 man/NetoTb6.5.Rd diff --git a/R/NetoTb6.5.R b/R/NetoTb6.5.R new file mode 100644 index 00000000..ff068b79 --- /dev/null +++ b/R/NetoTb6.5.R @@ -0,0 +1,32 @@ +#' @name NetoTb6.5 +#' @title Resultados de Um Novo Planejamento 2^2 com Ponto Central +#' @description Resultados de um planejamento 2^2 com ponto central. +#' @format Um \code{data.frame} com 7 observações e 3 variáveis, em que +#' +#' \describe{ +#' +#' \item{\code{x1}}{Valores do fator 1.} +#' +#' \item{\code{x2}}{Valores do fator 2.} +#' +#' \item{\code{y}}{Resposta.} +#' +#' } +#' @keywords DBC +#' @source Barros Neto, Benício de (2010), (Tabela 6.5, pág. 273) +#' @examples +#' +#' data(NetoTb6.5) +#' str(NetoTb6.5) +#' +#' par(mfrow = c(1,2)) +#' +#' plot(y ~ x1, data = NetoTb6.5) +#' +#' abline(lm(y ~ x1, data = NetoTb6.5), col = 2) +#' +#' plot(y ~ x2, data = NetoTb6.5) +#' +#' abline(lm(y ~ x2, data = NetoTb6.5), col = 3) +#' +NULL diff --git a/data-raw/NetoTb6.5.txt b/data-raw/NetoTb6.5.txt new file mode 100644 index 00000000..f35ae8eb --- /dev/null +++ b/data-raw/NetoTb6.5.txt @@ -0,0 +1,8 @@ +x1 x2 y +-1 -1 86 +1 -1 85 +-1 1 78 +1 1 84 +0 0 90 +0 0 88 +0 0 89 diff --git a/data/NetoTb6.3.rda b/data/NetoTb6.3.rda index f2cb5fe9155c4bc46e8f161232673cf93332c557..ec0f98204e7093ebcfa65f5903e06d43611c44c0 100644 GIT binary patch literal 243 zcmZ>Y%CIzaj8qGb+&m|{ih-f}|LuRpK8y^EmQ2@~OC9Xl|2%MF;9y{IU}#{_VaVUW zu<b;zrpblNzKjc`GMFziE|3;9VhIjD$se34l_(+XE7vF`mDw<hL8#R~fI*6Zt$~4o zK`NQCL3PR^o@0t0ECyXB>Mr}*IJTwTFL^)z{OuqH=hWr$iX5z^j!)|*f4ET4x<Hgg zW|4tMiqeXw1_zEf7#2mnX*lhpk^5+>aKSFqFL!yKOfFe$&^*IomTRQYsZBvC??aP( xxK2rA9#@!{@A}}jawV(aIkkwNCSM{JxceL{eC8tkMf~r7@gi4?fC(T^0sxM;UL61c literal 182 zcmZ>Y%CIzaj8qGbJQp1~fq|i{{=mOo9t;eOmK<`7A`bTKa~?P_Feoly=;9ShnYV1- zg0IY`ytXE@m@j8FxdwJlT-Gzw<iZ6LBeo6^ucQNIQ*SJIo3k-7B{kyPX7N}KJAp;Y z4a}>o*7GW8XWV+b=tdwDH$##OuTH~7VWZ8}N~~%txX+w1vbe}x`00X?QSZ*DO-fwp pmRq?WzdSQFdQSh8vkSf-@%XSsQow3I|D$&v%ejOkPiGr3003wvNnii~ diff --git a/data/NetoTb6.5.rda b/data/NetoTb6.5.rda new file mode 100644 index 0000000000000000000000000000000000000000..e489df3413c8eec0ce343d02bd7f9347022697c4 GIT binary patch literal 181 zcmZ>Y%CIzaj8qGbylM73n}MOY{=mOo9t;eO#tbZs;sy5Xa~?P_Feoly=;Gx{ndkXR zimmyIvBza+vlS|#5^Zg5jT17GQVwwmOkBgnpX#Bwa;t$s&q|36$E~fxZyC;7!@#6n zDtF7l=i=Fm`#J)d_!<nA*rqvTbk2;tI+1DZ3HD-R-fcful>SKgU8$B9w|7Bkpv}|C nS2o_Z=G1HvFWF?yd_QC2-6N6$R(Ac5-gzwN5|UQCpPK*x&;Upg literal 0 HcmV?d00001 diff --git a/man/NetoTb6.5.Rd b/man/NetoTb6.5.Rd new file mode 100644 index 00000000..15642f2a --- /dev/null +++ b/man/NetoTb6.5.Rd @@ -0,0 +1,40 @@ +% Generated by roxygen2: do not edit by hand +% Please edit documentation in R/NetoTb6.5.R +\name{NetoTb6.5} +\alias{NetoTb6.5} +\title{Resultados de Um Novo Planejamento 2^2 com Ponto Central} +\format{Um \code{data.frame} com 7 observações e 3 variáveis, em que + +\describe{ + +\item{\code{x1}}{Valores do fator 1.} + +\item{\code{x2}}{Valores do fator 2.} + +\item{\code{y}}{Resposta.} + +}} +\source{ +Barros Neto, Benício de (2010), (Tabela 6.5, pág. 273) +} +\description{ +Resultados de um planejamento 2^2 com ponto central. +} +\examples{ + +data(NetoTb6.5) +str(NetoTb6.5) + +par(mfrow = c(1,2)) + +plot(y ~ x1, data = NetoTb6.5) + +abline(lm(y ~ x1, data = NetoTb6.5), col = 2) + +plot(y ~ x2, data = NetoTb6.5) + +abline(lm(y ~ x2, data = NetoTb6.5), col = 3) + +} +\keyword{DBC} + -- GitLab