Merge branch 'bruno150' into devel

R/AndradeEx2.13.R

+#' @name AndradeEx2.13
+#' @title Estudo dos Ovos de \emph{Biomphalaria Taenagophila}
+#' @description Estudo da distribuição do número de ovos inviáveis de
+#'     \emph{Biomphalaria taenagophila} (caramujo) em ambiente
+#'     poluído. Para isso tomou-se uma amostra de 23 caramujos.
+#' @format Um \code{vetor} numérico com 23 observações.
+#' @keywords AAS
+#' @source Andrade, D. F., Ogliari, P. J. (2010). Estatística para as
+#'     ciências agrárias e biológicas com noções de experimentação (2nd
+#'     ed.). Florianópolis, SC. Editora da UFSC. (Capítulo 2, Exercício
+#'     13, pág. 109)
+#' @examples
+#'
+#' data(AndradeEx2.13)
+#' str(AndradeEx2.13)
+#'
+#' hist(AndradeEx2.13,
+#'      labels = TRUE,
+#'      prob = TRUE,
+#'      main = NULL,
+#'      col = "darkturquoise",
+#'      ylim = c(0, 0.12),
+#'      xlab = "Número de Ovos",
+#'      ylab = "Densidade")
+#'
+#' lines(density(AndradeEx2.13), lwd = 2)
+#'
+NULL

R/AndradeTb2.24.R

+#' @name AndradeTb2.24
+#' @title Estudo sobre a Adoção de uma Variedade de Arroz
+#' @description Estudo realizado por um economista agrícola que tem
+#'     interesse em identificar o comportamento da adoção de uma nova
+#'     variedade de arroz altamente produtiva segundo a situação de
+#'     posse de terra.
+#' @format Um \code{data.frame} com 6 observações e 3 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{posse}}{Identifica o tipo de posse de terra
+#'     (proprietário, único arrendatário e vários arrendatários).}
+#'
+#' \item{\code{adocao}}{Identifica o se houve, ou não, a adoção da nova
+#'     variedade de arroz.}
+#'
+#' \item{\code{freq}}{Frequência de terras com as características de
+#'     \code{posse} e \code{adocao}.}
+#'
+#' }
+#' @keywords contingência
+#' @source Andrade, D. F., Ogliari, P. J. (2010). Estatística para as
+#'     ciências agrárias e biológicas com noções de experimentação (2nd
+#'     ed.). Florianópolis, SC. Editora da UFSC. (Tabela 2.24, pág. 106)
+#' @examples
+#'
+#' data(AndradeTb2.24)
+#' str(AndradeTb2.24)
+#'
+#' xt <- xtabs(freq ~ ., data = AndradeTb2.24)
+#'
+#' xt
+#' prop.table(xt)
+#' prop.table(xt, margin = 1)
+#' prop.table(xt, margin = 2)
+#'
+#' mosaicplot(t(xt), col = c("darkturquoise", "lawngreen", "blue"),
+#'            cex.axis = 0.8, las = 2, main = "")
+#'
+#' library(lattice)
+#' barchart(t(xt),
+#'          horizontal = FALSE,
+#'          stack = TRUE,
+#'          auto.key = list(
+#'              corner= c(0.9, 0.9),
+#'              title = "Posse",
+#'              cex.title = 1.1),
+#'          xlab = "Adoção da nova variedade",
+#'          ylab = "Frequência de terras")
+#'
+NULL

R/AndradeTb2.25.R

+#' @name AndradeTb2.25
+#' @title Experimento de Germinação de Cultivares de Cebola
+#' @description Experimento com o objetivo de avaliar o poder
+#'     germinativo de duas cultivares de cebola. Foram utilizadas, para
+#'     o teste de germinação, quatro repetições de cem sementes
+#'     totalizando quatrocentas sementes para cada cultivar. Nesse
+#'     experimento mensurou-se apenas a frequência das sementes que
+#'     germinaram, ou não, dentre as repetições de cada cultivar.
+#' @format Um \code{data.frame} com 4 observações e 3 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{cult}}{Cultivares de cebola avaliadas (Bola
+#'     Precoce-EMPASC 352, \code{Bola 352} e Norte 14, \code{Norte
+#'     14}).}
+#'
+#' \item{\code{germ}}{Identifica se houve, ou não, a germinação da
+#'     semente.}
+#'
+#' \item{\code{freq}}{Número de sementes, no cruzamento de \code{cult} e
+#'     \code{germ}.}
+#'
+#' }
+#' @keywords contingência
+#' @source Andrade, D. F., Ogliari, P. J. (2010). Estatística para as
+#'     ciências agrárias e biológicas com noções de experimentação (2nd
+#'     ed.). Florianópolis, SC. Editora da UFSC. (Tabela 2.25, pág. 107)
+#' @examples
+#'
+#' data(AndradeTb2.25)
+#' str(AndradeTb2.25)
+#'
+#' xt <- xtabs(freq ~ ., data = AndradeTb2.25)
+#' xt
+#'
+#' mosaicplot(t(xt), col = c("darkturquoise", "lawngreen"),
+#'            cex.axis = 0.8, las = 2, main = "")
+#'
+#' library(lattice)
+#' barchart(t(xt),
+#'          horizontal = FALSE,
+#'          stack = FALSE,
+#'          auto.key = list(
+#'              corner= c(0.9, 0.9),
+#'              title = "Cultivar",
+#'              cex.title = 1.1),
+#'          xlab = "Adoção da nova variedade",
+#'          ylab = "Número de sementes")
+#'
+NULL

R/AndradeTb2.26.R

+#' @name AndradeTb2.26
+#' @title Estudo de Associação entre Local de Coleta e Peso de Mexilhões
+#' @description Estudo observacional cujo interesse é verificar se
+#'     existe associação entre o local de coleta de mexilhões e o peso
+#'     deles.
+#' @format Um \code{data.frame} com 6 observações e 3 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{local}}{Local de coleta dos mexilhões (Mangue e
+#'     Sambaqui).}
+#'
+#' \item{\code{peso}}{Pesos dos mexilhões, em gramas. A variável foi
+#'     categorizada em três níveis (7-20, 21-33 e 34-46 gramas).}
+#'
+#' \item{\code{freq}}{Número de mexilhões no cruzamento de \code{local}
+#'     com \code{peso}.}
+#'
+#' }
+#' @keywords contingência
+#' @source Andrade, D. F., Ogliari, P. J. (2010). Estatística para as
+#'     ciências agrárias e biológicas com noções de experimentação (2nd
+#'     ed.). Florianópolis, SC. Editora da UFSC. (Tabela 2.26, pág. 107)
+#' @examples
+#'
+#' data(AndradeTb2.26)
+#' str(AndradeTb2.26)
+#'
+#' xt <- xtabs(freq ~ ., data = AndradeTb2.26)
+#' xt
+#'
+#' mosaicplot(t(xt), col = c("darkturquoise", "lawngreen"),
+#'            cex.axis = 0.8, las = 2, main = "")
+#'
+#' library(lattice)
+#' barchart(t(xt),
+#'          horizontal = FALSE,
+#'          stack = TRUE,
+#'          auto.key = list(
+#'              columns = 2,
+#'              title = "Local de coleta",
+#'              cex.title = 1.1),
+#'          xlab = "Peso do mexilhão",
+#'          ylab = "Número de mexilhões")
+#'
+NULL

R/AndradeTb2.27.R

+#' @name AndradeTb2.27
+#' @title Estudo da Eficiência de uma Vacina Antigripal
+#' @description Estudo para avaliar a eficiência de uma nova vacina
+#'     antigripal, a qual foi administrada aos membros de uma pequena
+#'     comunidade, em duas doses, ao longo de duas semanas. Algumas
+#'     pessoas tomaram as duas doses, outras tomaram apenas a primeira
+#'     dose e outras não tomaram nenhuma dose. Os tratamentos foram
+#'     aplicados em 1000 habitantes dessa comunidade.
+#' @format Um \code{data.frame} com 6 observações e 3 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{saude}}{Estado de saúde dos habitantes (gripados ou não
+#'     gripados).}
+#'
+#' \item{\code{vacina}}{identifica em quantas doses a vacina antigripal
+#'     foi aplicada (0, não houve aplicação; 1, em dose única; 2, em
+#'     duas doses).}
+#'
+#' \item{\code{freq}}{Número de habitantes no cruzamento de \code{saude}
+#'     e \code{vacina}.}
+#'
+#' }
+#' @keywords contigência
+#' @source Andrade, D. F., Ogliari, P. J. (2010). Estatística para as
+#'     ciências agrárias e biológicas com noções de experimentação (2nd
+#'     ed.). Florianópolis, SC. Editora da UFSC. (Tabela 2.27, pág. 108)
+#' @examples
+#'
+#' data(AndradeTb2.27)
+#' str(AndradeTb2.27)
+#'
+#' xt <- xtabs(freq ~ ., data = AndradeTb2.27)
+#' xt
+#'
+#' mosaicplot(xt, col = c("darkturquoise", "lawngreen", "blue"),
+#'            cex.axis = 0.8, main = "")
+#'
+#' library(lattice)
+#' barchart(t(xt),
+#'          horizontal = FALSE,
+#'          stack = TRUE,
+#'          auto.key = list(
+#'              corner= c(0.9, 0.9),
+#'              title = "Estado de saúde",
+#'              cex.title = 1.1),
+#'          xlab = "Número de doses da vacina",
+#'          ylab = "Número de habitantes")
+#'
+NULL

R/AndradeTb2.28.R

+#' @name AndradeTb2.28
+#' @title Número de Brotos por Explante de Abacaxi
+#' @description Número de brotos por explante de abacaxi avaliada em
+#'     dois meios de cultura.
+#' @format Um \code{data.frame} com 26 observações e 2 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{meio}}{Meios de cultura em que os explantes de abacaxi
+#'     foram mantidos.}
+#'
+#' \item{\code{nbroto}}{Número de brotos por explante de abacaxi.}
+#'
+#' }
+#' @keywords AASI
+#' @source Andrade, D. F., Ogliari, P. J. (2010). Estatística para as
+#'     ciências agrárias e biológicas com noções de experimentação (2nd
+#'     ed.). Florianópolis, SC. Editora da UFSC. (Tabela 2.28, pág. 109)
+#' @examples
+#'
+#' data(AndradeTb2.28)
+#' str(AndradeTb2.28)
+#'
+#' with(AndradeTb2.28, by(nbroto, meio, summary))
+#'
+#' library(lattice)
+#'
+#' bwplot(nbroto ~ meio,
+#'        data = AndradeTb2.28,
+#'        xlab = "Meio de Cultura",
+#'        ylab = "Número de Brotos")
+#'
+#' densityplot(~nbroto,
+#'             groups = meio,
+#'             grid = TRUE,
+#'             data = AndradeTb2.28)
+#'
+NULL

R/AndradeTb2.29.R

+#' @name AndradeTb2.29
+#' @title Biometria Total do Camarão \emph{Macrobrachium Potiuna}
+#'     (MÜLLER, 1880)
+#' @description Biometria total, em milímetros, do Camarão de água doce
+#'     \emph{Macrobrachium potiuna} (MÜLLER, 1880), da família
+#'     \emph{Palaemonidae}.
+#' @format Um \code{vetor} numérico com 36 observações.
+#' @keywords AAS
+#' @source Andrade, D. F., Ogliari, P. J. (2010). Estatística para as
+#'     ciências agrárias e biológicas com noções de experimentação (2nd
+#'     ed.). Florianópolis, SC. Editora da UFSC. (Tabela 2.29, pág. 110)
+#'
+#' @examples
+#'
+#' data(AndradeTb2.29)
+#' str(AndradeTb2.29)
+#'
+#' hist(AndradeTb2.29,
+#'      labels = TRUE,
+#'      prob = TRUE,
+#'      main = NULL,
+#'      col = "darkturquoise",
+#'      ylim = c(0, 0.071),
+#'      xlab = "Biometria Total (em mm)",
+#'      ylab = "Densidade")
+#'
+#' lines(density(AndradeTb2.29), lwd = 2)
+#'
+NULL

R/AndradeTb2.31.R

+#' @name AndradeTb2.31
+#' @title Efeito do Rizóbio na Altura das Plantas
+#' @description Altura de plantas, medida em centímetros, para dois
+#'     tratamentos, no qual um tratamento é o controle, isto é, não foi
+#'     feita a inoculação do rizóbio nas plantas e o outro corresponde à
+#'     aplicação de rizóbio nas plantas (rizóbios tem a capacidade de
+#'     fixar o nitrogênio atmosférico e fornecê-lo às culturas).
+#' @format Um \code{data.frame} com 40 observações e 2 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{trat}}{Indica o tratamento aplicado às plantas (com
+#'     rizóbio ou controle).}
+#'
+#' \item{\code{altura}}{Altura das plantas, medida em cm.}
+#'
+#' }
+#' @keywords AASI
+#' @source Andrade, D. F., Ogliari, P. J. (2010). Estatística para as
+#'     ciências agrárias e biológicas com noções de experimentação (2nd
+#'     ed.). Florianópolis, SC. Editora da UFSC. (Tabela 2.31, pág. 111)
+#' @examples
+#'
+#' data(AndradeTb2.31)
+#' str(AndradeTb2.31)
+#'
+#' with(AndradeTb2.31, by(altura, trat, summary))
+#'
+#' library(lattice)
+#' bwplot(altura ~ trat,
+#'        data = AndradeTb2.31,
+#'        xlab = "Tratamento",
+#'        ylab = "Altura")
+#'
+NULL

data-raw/AndradeEx2.13.txt

+9
+11
+10
+0
+4
+4
+5
+12
+4
+1
+2
+8
+4
+7
+1
+11
+10
+3
+14
+3
+2
+22
+4

data-raw/AndradeTb2.24.txt

+posse	adocao	freq
+proprietário	Sim	102
+vários arrendatários	Sim	42
+único arrendatário	Sim	5
+proprietário	Não	26
+vários arrendatários	Não	10
+único arrendatário	Não	2

data-raw/AndradeTb2.25.txt

+cult	germ	freq
+Bola 352	Sim	392
+Norte 14	Sim	381
+Bola 352	Não	8
+Norte 14	Não	19

data-raw/AndradeTb2.26.txt

+local	peso	freq
+Mangue	21-33	21
+Sambaqui	34-46	1
+Mangue	7-20	12
+Sambaqui	21-33	14
+Mangue	34-46	2
+Sambaqui	7-20	20

data-raw/AndradeTb2.27.txt

+saude	vacina	freq
+gripados	1	24
+não gripados	1	289
+gripados	2	9
+não gripados	2	100
+gripados	0	13
+não gripados	0	565

data-raw/AndradeTb2.28.txt

+meio	nbroto
+1	47
+1	35
+1	23
+1	21
+1	24
+1	26
+1	18
+1	30
+1	22
+1	36
+1	22
+1	21
+1	19
+2	13
+2	11
+2	15
+2	24
+2	20
+2	20
+2	19
+2	18
+2	22
+2	22
+2	20
+2	17
+2	25

data-raw/AndradeTb2.29.txt

+25.6
+39.2
+35.55
+33.75
+27.75
+41.75
+36.7
+34.75
+29.95
+44.05
+38.9
+35.1
+32.2
+25.9
+39.55
+35.65
+33.9
+28.3
+42.8
+37.05
+34.75
+31.25
+45.2
+39.1
+35.2
+32.2
+25.9
+40.45
+36
+33.95
+29.05
+43.95
+37.1
+34.8
+31.7
+46.74

data-raw/AndradeTb2.31.txt

+trat	altura
+controle	25
+controle	29
+controle	29
+controle	30
+controle	31
+controle	31
+controle	32
+controle	32
+controle	33
+controle	33
+controle	35
+controle	36
+controle	36
+controle	37
+controle	37
+controle	38
+controle	38
+controle	40
+controle	41
+controle	43
+com rizóbio	34
+com rizóbio	36
+com rizóbio	39
+com rizóbio	39
+com rizóbio	40
+com rizóbio	41
+com rizóbio	41
+com rizóbio	41
+com rizóbio	42
+com rizóbio	44
+com rizóbio	44
+com rizóbio	45
+com rizóbio	45
+com rizóbio	46
+com rizóbio	46
+com rizóbio	47
+com rizóbio	47
+com rizóbio	49
+com rizóbio	49
+com rizóbio	51