From bc8ba0982a7c5d0ffbacdecb48298be7142a06e5 Mon Sep 17 00:00:00 2001
From: Lineu <lialcafre@gmail.com>
Date: Sun, 25 Sep 2016 14:13:21 -0300
Subject: [PATCH] Adiciona Tabela 4.18
---
R/NetoTb4.18.R | 67 +++++++++++++++++++++++++++++++++++
data-raw/NetoTb4.18.txt | 9 +++++
data/NetoTb4.18.rda | Bin 0 -> 293 bytes
man/NetoTb4.18.Rd | 75 ++++++++++++++++++++++++++++++++++++++++
4 files changed, 151 insertions(+)
create mode 100644 R/NetoTb4.18.R
create mode 100644 data-raw/NetoTb4.18.txt
create mode 100644 data/NetoTb4.18.rda
create mode 100644 man/NetoTb4.18.Rd
diff --git a/R/NetoTb4.18.R b/R/NetoTb4.18.R
new file mode 100644
index 00000000..3c001c81
--- /dev/null
+++ b/R/NetoTb4.18.R
@@ -0,0 +1,67 @@
+#' @name NetoTb4.18
+#' @title Técnicas de Taguchi
+#' @description Planejamento de Taguchi para o desenvolvimento de uma
+#' mistura de bolo.'
+#' @format Um \code{data.frame} com 8 observações e 8 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{F}}{Farinha.}
+#'
+#' \item{\code{G}}{Gordura.}
+#'
+#' \item{\code{A}}{Açúcar.}
+#'
+#' \item{\code{O}}{Ovos.}
+#'
+#' \item{\code{f1}}{Temperatura.}
+#'
+#' \item{\code{f2}}{Leite.}
+#'
+#' \item{\code{f3}}{Tempo.}
+#'
+#' \item{\code{f4}}{Tempo + Leite + Temperatura.}
+#'
+#' }
+#' @keywords DBC
+#' @source Barros Neto, Benício de (2010), (Tabela 4.18, pág.196)
+#' @examples
+#'
+#' data(NetoTb4.18)
+#' str(NetoTb4.18)
+#'
+#' par(mfrow = c(2,4))
+#'
+#' plot(ybar ~ F , data = NetoTb4.18, ylab = "y barra",
+#' xlab = "Farinha")
+#' abline(lm(ybar ~ F , data = NetoTb4.18), col = 2)
+#'
+#' plot(ybar ~ G , data = NetoTb4.18, ylab = "y barra",
+#' xlab = "Gordura")
+#' abline(lm(ybar ~ G , data = NetoTb4.18), col = 2)
+#'
+#' plot(ybar ~ A , data = NetoTb4.18, ylab = "y barra",
+#' xlab = "Açúcar")
+#' abline(lm(ybar ~ A , data = NetoTb4.18), col = 2)
+#'
+#' plot(ybar ~ O , data = NetoTb4.18, ylab = "y barra",
+#' xlab = "Ovos")
+#' abline(lm(ybar ~ O , data = NetoTb4.18), col = 2)
+#'
+#' plot(ybar ~ f1 , data = NetoTb4.18, ylab = "y barra",
+#' xlab = "Temperatura")
+#' abline(lm(ybar ~ f1 , data = NetoTb4.18), col = 2)
+#'
+#' plot(ybar ~ f2 , data = NetoTb4.18, ylab = "y barra",
+#' xlab = "Leite")
+#' abline(lm(ybar ~ f2 , data = NetoTb4.18), col = 2)
+#'
+#' plot(ybar ~ f3 , data = NetoTb4.18, ylab = "y barra",
+#' xlab = "Tempo")
+#' abline(lm(ybar ~ f3 , data = NetoTb4.18), col = 2)
+#'
+#' plot(ybar ~ f4 , data = NetoTb4.18, ylab = "y barra",
+#' xlab = "Temperatura + Leite + Tempo")
+#' abline(lm(ybar ~ f4 , data = NetoTb4.18), col = 2)
+#'
+NULL
\ No newline at end of file
diff --git a/data-raw/NetoTb4.18.txt b/data-raw/NetoTb4.18.txt
new file mode 100644
index 00000000..f36fba8f
--- /dev/null
+++ b/data-raw/NetoTb4.18.txt
@@ -0,0 +1,9 @@
+F G A O f1 f2 f3 f4 ybar
+-1 -1 -1 -1 85 96 97 92 92.5
+-1 -1 -1 1 82 81 78 79 80
+-1 1 1 -1 75 80 70 73 74.5
+-1 1 1 1 66 75 83 70 73.5
+1 -1 1 -1 84 91 95 90 90
+1 -1 1 1 78 72 80 69 74.8
+1 1 -1 -1 86 85 90 91 88
+1 1 -1 1 86 82 77 75 80
diff --git a/data/NetoTb4.18.rda b/data/NetoTb4.18.rda
new file mode 100644
index 0000000000000000000000000000000000000000..afb103f06c80edbe42a343aba73580d609cfcade
GIT binary patch
literal 293
zcmZ>Y%CIzaj8qGbd~)rwAOj<7{f&R+9t;kQHV);l|KIt~K4*agg98Hx1B2rRhOe^|
zSFW;^YWULZ?6`nuRz`C06=sJcQduhe0XEAT7#J8B7$-X_tvG4m=EHHa!RG=?!WEMv
zNg4`e-zVEmy4k}r>5yu}uLBvZa(n?1B2rry9jIx@TX^=}>a$Lh+u|KG9yED)ZTlAX
zTw~g+mKc?4)?>nDW+Coz7vr6HYwcAUxE_0{@B1oyz0R&IcTVR5i6gT-b$K`<Iu$Nd
z98|c*tIEuvTr9&QVtDpA|GK4ZSuX4KiaS)IjK7KmDDb7avhL?t#G|6o#8b75r%Cwv
z9JS2pF4r_nd>gykeLZ<iYV;3k$_V#soo>?)T&SKIEuFt(_ax0jE$wRCW^@1m^UHL3
literal 0
HcmV?d00001
diff --git a/man/NetoTb4.18.Rd b/man/NetoTb4.18.Rd
new file mode 100644
index 00000000..6f99c0e2
--- /dev/null
+++ b/man/NetoTb4.18.Rd
@@ -0,0 +1,75 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/NetoTb4.18.R
+\name{NetoTb4.18}
+\alias{NetoTb4.18}
+\title{Técnicas de Taguchi}
+\format{Um \code{data.frame} com 8 observações e 8 variáveis, em que
+
+\describe{
+
+\item{\code{F}}{Farinha.}
+
+\item{\code{G}}{Gordura.}
+
+\item{\code{A}}{Açúcar.}
+
+\item{\code{O}}{Ovos.}
+
+\item{\code{f1}}{Temperatura.}
+
+\item{\code{f2}}{Leite.}
+
+\item{\code{f3}}{Tempo.}
+
+\item{\code{f4}}{Tempo + Leite + Temperatura.}
+
+}}
+\source{
+Barros Neto, Benício de (2010), (Tabela 4.18, pág.196)
+}
+\description{
+Planejamento de Taguchi para o desenvolvimento de uma
+ mistura de bolo.'
+}
+\examples{
+
+data(NetoTb4.18)
+str(NetoTb4.18)
+
+par(mfrow = c(2,4))
+
+plot(ybar ~ F , data = NetoTb4.18, ylab = "y barra",
+ xlab = "Farinha")
+abline(lm(ybar ~ F , data = NetoTb4.18), col = 2)
+
+plot(ybar ~ G , data = NetoTb4.18, ylab = "y barra",
+ xlab = "Gordura")
+abline(lm(ybar ~ G , data = NetoTb4.18), col = 2)
+
+plot(ybar ~ A , data = NetoTb4.18, ylab = "y barra",
+ xlab = "Açúcar")
+abline(lm(ybar ~ A , data = NetoTb4.18), col = 2)
+
+plot(ybar ~ O , data = NetoTb4.18, ylab = "y barra",
+ xlab = "Ovos")
+abline(lm(ybar ~ O , data = NetoTb4.18), col = 2)
+
+plot(ybar ~ f1 , data = NetoTb4.18, ylab = "y barra",
+ xlab = "Temperatura")
+abline(lm(ybar ~ f1 , data = NetoTb4.18), col = 2)
+
+plot(ybar ~ f2 , data = NetoTb4.18, ylab = "y barra",
+ xlab = "Leite")
+abline(lm(ybar ~ f2 , data = NetoTb4.18), col = 2)
+
+plot(ybar ~ f3 , data = NetoTb4.18, ylab = "y barra",
+ xlab = "Tempo")
+abline(lm(ybar ~ f3 , data = NetoTb4.18), col = 2)
+
+plot(ybar ~ f4 , data = NetoTb4.18, ylab = "y barra",
+ xlab = "Temperatura + Leite + Tempo")
+abline(lm(ybar ~ f4 , data = NetoTb4.18), col = 2)
+
+}
+\keyword{DBC}
+
--
GitLab