From ab120529e11c5436a0818616b7d1ef9c851308d8 Mon Sep 17 00:00:00 2001
From: Lineu <lialcafre@gmail.com>
Date: Sun, 9 Oct 2016 19:20:42 -0300
Subject: [PATCH] Adiciona Tabela 4A.7
---
R/NetoTb4A.7.R | 60 +++++++++++++++++++++++++++++++++++
data-raw/NetoTb4A.7.txt | 17 ++++++++++
data/NetoTb4A.7.rda | Bin 0 -> 398 bytes
man/NetoTb4A.7.Rd | 68 ++++++++++++++++++++++++++++++++++++++++
4 files changed, 145 insertions(+)
create mode 100644 R/NetoTb4A.7.R
create mode 100644 data-raw/NetoTb4A.7.txt
create mode 100644 data/NetoTb4A.7.rda
create mode 100644 man/NetoTb4A.7.Rd
diff --git a/R/NetoTb4A.7.R b/R/NetoTb4A.7.R
new file mode 100644
index 00000000..df3808e0
--- /dev/null
+++ b/R/NetoTb4A.7.R
@@ -0,0 +1,60 @@
+#' @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
diff --git a/data-raw/NetoTb4A.7.txt b/data-raw/NetoTb4A.7.txt
new file mode 100644
index 00000000..e45317e4
--- /dev/null
+++ b/data-raw/NetoTb4A.7.txt
@@ -0,0 +1,17 @@
+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
diff --git a/data/NetoTb4A.7.rda b/data/NetoTb4A.7.rda
new file mode 100644
index 0000000000000000000000000000000000000000..69d5d33c29e41d063b506c417e9834a4938fb40b
GIT binary patch
literal 398
zcmZ>Y%CIzaj8qGbjMkd7iGfL}{{H{}FIX8I>mMy)G;y(KztiBv(8IuRz{=6%00WOR
z;|9iJ9>--<dS>|=8q81@W=Tot4_054a@lwJN+Vl;4^x{(4Gh9Qg3D$w8O%_eaO5(B
zgU6D|m+V7sc$_fFFz97qV0K_&n}2}8!g<CAW+_IYImb*_Oo?CQk>${EU16fbA}OgE
zP8=ExmS+<cHcVqTWnt0~IO3GKZNU|x)lOVr6Q(8wNxYd=rMW_I{Y95or@f|$>=xjR
zh-{g}I8*<bj+u~v_zc;wohhCwowr<<HPuE>&yT-0JKmg)<CtO3i<w*x6gMv9jLq<L
zkea$AIEX{PVTQ`4ABxOJTeOWOe1zDp<S;($zn=1zWs%&}$c|&PYD0cbIne1`+)|wF
z;$tek|JI%9mLmIineS$nIJmz?>Tc>G6-PG%Cx$hrJ=X0tyuQF?bNs^-&l+E_P1(`#
zMBc+eq4q<|qK?Xy8Z4Ru3i|IqTsPBk_f%*QK9p~E;RbJ0j_(3#w*N=(O!N~`5j(Y9
GrvU&epP;D#
literal 0
HcmV?d00001
diff --git a/man/NetoTb4A.7.Rd b/man/NetoTb4A.7.Rd
new file mode 100644
index 00000000..5494ad9e
--- /dev/null
+++ b/man/NetoTb4A.7.Rd
@@ -0,0 +1,68 @@
+% 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}
+
--
GitLab