Adiciona Tabela 4A.7

R/NetoTb4A.7.R

+#' @name NetoTb4A.7
+#' @title Produção de Violaceína por bactérias
+#' @description Utilizou-se um fatorial fracionado 2^(15-11) para
+#'    estudar a produção do pigmento violaceína pela Chromobacterium 
+#'    violaceum.
+#' @format Um \code{data.frame} com 16 observações e 17 variáve, em que
+#'
+#' \describe{
+#'
+#' \item{\code{ens}}{Número do ensaio correspondente.}
+#' 
+#' \item{\code{f1}}{Fonte de carbono.}
+#' 
+#' \item{\code{f2}}{Extrato de levedura.}
+#' 
+#' \item{\code{f3}}{DL Metionina.}
+#' 
+#' \item{\code{f4}}{Vitamina B12.}
+#' 
+#' \item{\code{f5}}{L-triptofano.}
+#' 
+#' \item{\code{f6}}{Agitação.}
+#' 
+#' \item{\code{f7}}{Temperatura.}
+#' 
+#' \item{\code{f8}}{pH.}
+#' 
+#' \item{\code{f9}}{Peptona bacteriológica.}
+#' 
+#' \item{\code{f10}}{Inóculo.}
+#' 
+#' \item{\code{f11}}{ZnSO4.}
+#' 
+#' \item{\code{f12, f13, f14, f15}}{Como os sinais destas colunas não
+#'     correspondem a nenhum fator real, podemos usar os valores dos
+#'     contrastes calculados a partir delas como estimativas do erro
+#'     padrão de um efeito.}
+#' 
+#' \item{\code{resp}}{Produção.}
+#'
+#' }
+#' @keywords DBC
+#' @source Barros Neto, Benício de (2010), (Tabela 4A.7, pág. 210)
+#' @examples
+#'
+#' data(NetoTb4A.7)
+#' str(NetoTb4A.7)
+#'
+#' tab <- model.matrix(~ f1*f2*f3*f4*f5*f6*f7*f8*f9*f10*f11,
+#'                     data = NetoTb4A.7)
+#'
+#' y <- NetoTb4A.7$resp
+#'
+#' contr <- t(tab[, -1]) %*% y
+#'
+#' ef <- contr/(15 - 11)
+#'
+#' qqnorm(ef, col = 2, pch = 19); qqline(ef)
+#'
+NULL
\ No newline at end of file

data-raw/NetoTb4A.7.txt

+ens	f1	f2	f3	f4	f5	f6	f7	f8	f9	f10	f11	f12	f13	f14	f15	resp
+1	-1	-1	-1	-1	1	1	1	1	1	1	-1	-1	-1	-1	1	0.39
+2	1	-1	-1	-1	-1	-1	-1	1	1	1	1	1	1	-1	-1	0.19
+3	-1	1	-1	-1	-1	1	1	-1	-1	1	1	1	-1	1	-1	0.26
+4	1	1	-1	-1	1	-1	-1	-1	-1	1	-1	-1	1	1	1	0.14
+5	-1	-1	1	-1	1	-1	1	-1	1	-1	1	-1	1	1	-1	0.26
+6	1	-1	1	-1	-1	1	-1	-1	1	-1	-1	1	-1	1	1	0.15
+7	-1	1	1	-1	-1	-1	1	1	-1	-1	-1	1	1	-1	1	0.31
+8	1	1	1	-1	1	1	-1	1	-1	-1	1	-1	-1	-1	-1	0
+9	-1	-1	-1	1	1	1	-1	1	-1	-1	-1	1	1	1	-1	0.09
+10	1	-1	-1	1	-1	-1	1	1	-1	-1	1	-1	-1	1	1	0
+11	-1	1	-1	1	-1	1	-1	-1	1	-1	1	-1	1	-1	1	0.24
+12	1	1	-1	1	1	-1	1	-1	1	-1	-1	1	-1	-1	-1	0.26
+13	-1	-1	1	1	1	-1	-1	-1	-1	1	1	1	-1	-1	1	0.17
+14	1	-1	1	1	-1	1	1	-1	-1	1	-1	-1	1	-1	-1	0.14
+15	-1	1	1	1	-1	-1	-1	1	1	1	-1	-1	-1	1	-1	0.26
+16	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	0.31

man/NetoTb4A.7.Rd

+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/NetoTb4A.7.R
+\name{NetoTb4A.7}
+\alias{NetoTb4A.7}
+\title{Produção de Violaceína por bactérias}
+\format{Um \code{data.frame} com 16 observações e 17 variáve, em que
+
+\describe{
+
+\item{\code{ens}}{Número do ensaio correspondente.}
+
+\item{\code{f1}}{Fonte de carbono.}
+
+\item{\code{f2}}{Extrato de levedura.}
+
+\item{\code{f3}}{DL Metionina.}
+
+\item{\code{f4}}{Vitamina B12.}
+
+\item{\code{f5}}{L-triptofano.}
+
+\item{\code{f6}}{Agitação.}
+
+\item{\code{f7}}{Temperatura.}
+
+\item{\code{f8}}{pH.}
+
+\item{\code{f9}}{Peptona bacteriológica.}
+
+\item{\code{f10}}{Inóculo.}
+
+\item{\code{f11}}{ZnSO4.}
+
+\item{\code{f12, f13, f14, f15}}{Como os sinais destas colunas não
+    correspondem a nenhum fator real, podemos usar os valores dos
+    contrastes calculados a partir delas como estimativas do erro
+    padrão de um efeito.}
+
+\item{\code{resp}}{Produção.}
+
+}}
+\source{
+Barros Neto, Benício de (2010), (Tabela 4A.7, pág. 210)
+}
+\description{
+Utilizou-se um fatorial fracionado 2^(15-11) para
+   estudar a produção do pigmento violaceína pela Chromobacterium 
+   violaceum.
+}
+\examples{
+
+data(NetoTb4A.7)
+str(NetoTb4A.7)
+
+tab <- model.matrix(~ f1*f2*f3*f4*f5*f6*f7*f8*f9*f10*f11,
+                    data = NetoTb4A.7)
+
+y <- NetoTb4A.7$resp
+
+contr <- t(tab[, -1]) \%*\% y
+
+ef <- contr/(15 - 11)
+
+qqnorm(ef, col = 2, pch = 19); qqline(ef)
+
+}
+\keyword{DBC}
+