Adiciona Tabela 7A.3

R/NetoEx7A.3.R

+#' @name NetoTb7A.3
+#' @title Resistência à Tração de Misturas Poliméricas
+#' @description Estudo visando a maximização da resistência.
+#' @format Um \code{data.frame} com 20 observações e 5 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{ens}}{Número do ensaio.}
+#'
+#' \item{\code{x1}}{Polifluoreto de vinilidelina.}
+#' 
+#' \item{\code{x2}}{Polimetacrilato de metila.}
+#' 
+#' \item{\code{x3}}{Poliestireno.}
+#' 
+#' \item{\code{r}}{Resistência.}
+#' 
+#' }
+#' @keywords DBC
+#' @source Barros Neto, Benício de (2010), (Tabela 7A.3, pág. 350)
+#' @examples
+#'
+#' data(NetoTb7A.3)
+#' str(NetoTb7A.3)
+#'
+#' par(mfrow = c(1,3))
+#'
+#' plot(r ~ x1, data = NetoTb7A.3,
+#'      xlab = "Polifluoreto de vinilidelina",
+#'      ylab = "Resistência")
+#' abline(lm(r ~ x1, data = NetoTb7A.3), col = 2)
+#'
+#' plot(r ~ x2, data = NetoTb7A.3,
+#'      xlab = "Polimetacrilato de metila",
+#'      ylab = "Resistência")
+#' abline(lm(r ~ x2, data = NetoTb7A.3), col = 3)
+#'
+#' plot(r ~ x3, data = NetoTb7A.3,
+#'      xlab = "Poliestireno",
+#'      ylab = "Resistência")
+#' abline(lm(r ~ x3, data = NetoTb7A.3), col = 4)
+#'
+NULL
\ No newline at end of file

data-raw/NetoTb7A.3.txt

+ens	x1	x2	x3	r
+1	1	0	0	51.2
+2	0	1	0	20
+3	0	0	1	20.2
+4	0.5	0.5	0	44.8
+5	0.5	0	0.5	23.5
+6	0	0.5	0.5	35.7
+7	0.333	0.333	0.333	45.4
+8	0	1	0	20.8
+9	0	1	0	23
+10	0	0	1	28.6
+11	0	0.5	0.5	23
+12	0	0.5	0.5	38
+13	0.5	0	0.5	28.3
+14	0.5	0	0.5	22.6
+15	0.5	0	0.5	25.4
+16	0.333	0.333	0.333	46.5
+17	0.49	0.02	0.49	21.5
+18	0.475	0.05	0.475	23.5
+19	0.45	0.1	0.45	35.1
+20	0.4	0.2	0.4	33.6

man/NetoTb7A.3.Rd

+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/NetoEx7A.3.R
+\name{NetoTb7A.3}
+\alias{NetoTb7A.3}
+\title{Resistência à Tração de Misturas Poliméricas}
+\format{Um \code{data.frame} com 20 observações e 5 variáveis, em que
+
+\describe{
+
+\item{\code{ens}}{Número do ensaio.}
+
+\item{\code{x1}}{Polifluoreto de vinilidelina.}
+
+\item{\code{x2}}{Polimetacrilato de metila.}
+
+\item{\code{x3}}{Poliestireno.}
+
+\item{\code{r}}{Resistência.}
+
+}}
+\source{
+Barros Neto, Benício de (2010), (Tabela 7A.3, pág. 350)
+}
+\description{
+Estudo visando a maximização da resistência.
+}
+\examples{
+
+data(NetoTb7A.3)
+str(NetoTb7A.3)
+
+par(mfrow = c(1,3))
+
+plot(r ~ x1, data = NetoTb7A.3,
+     xlab = "Polifluoreto de vinilidelina",
+     ylab = "Resistência")
+abline(lm(r ~ x1, data = NetoTb7A.3), col = 2)
+
+plot(r ~ x2, data = NetoTb7A.3,
+     xlab = "Polimetacrilato de metila",
+     ylab = "Resistência")
+abline(lm(r ~ x2, data = NetoTb7A.3), col = 3)
+
+plot(r ~ x3, data = NetoTb7A.3,
+     xlab = "Poliestireno",
+     ylab = "Resistência")
+abline(lm(r ~ x3, data = NetoTb7A.3), col = 4)
+
+}
+\keyword{DBC}
+