Lineu183 - adiciona 9 tabelas do Neto

Adiciona Tabelas 4A.1, 4A.2, 4A.3, 4A.4, 4A.5, 4A.6, 4A.7, 4A.8, 5.4 e 5.7 referente à issue #183

R/NetoTb4A.1.R

+#' @name NetoTb4A.1
+#' @title Adsorção em Sílicas Organofuncionalizadas
+#' @description Num experimento preliminar de um estudo que tinha como
+#'    objetivo estudar a adsorção de Cu(II) em superfícies de sílica
+#'    organofuncionalizadas, empregou-se um planejamento fracionário
+#' @format Um \code{data.frame} com 8 observações e 6 variável, em que
+#'
+#' \describe{
+#'
+#' \item{\code{ens}}{Número do ensaio correspondente.}
+#' 
+#' \item{\code{f1}}{Tipo de sílica.}
+#' 
+#' \item{\code{f2}}{Sal.}
+#' 
+#' \item{\code{f3}}{Solvente.}
+#' 
+#' \item{\code{f4}}{Quantidade de cílica.}
+#' 
+#' \item{\code{y}}{Adsorção de Cu(II)}
+#'
+#' }
+#' @keywords DBC
+#' @source Barros Neto, Benício de (2010), (Tabela 4A.1, pág. 200)
+#' @examples
+#'
+#' data(NetoTb4A.1)
+#' str(NetoTb4A.1)
+#'
+#' tab <- model.matrix(~ f1*f2*f3*f4, data = NetoTb4A.1)
+#'
+#' y <- NetoTb4A.1$y
+#'
+#' contr <- t(tab[, -1]) %*% y
+#'
+#' ef <- contr/(2^(4 - 1))
+#'
+#' qqaux <- qqnorm(ef, col = 2, pch = 19); qqline(ef)
+#' text(qqaux$x, qqaux$y, rownames(qqaux$y), cex = 0.8, pos = 3)
+#'
+NULL
\ No newline at end of file