Skip to content
Snippets Groups Projects
Commit c7de53d2 authored by Eduardo E. R. Junior's avatar Eduardo E. R. Junior
Browse files

Merge branch 'bruno151' into devel

Conflicts:
	.RData
	R/AndradePg90.R
	data-raw/AndradePg90.txt
	data/AndradePg90.rda
	man/AndradePg90.Rd
parents 50dfdc85 98255656
Branches
No related tags found
No related merge requests found
Showing
with 517 additions and 36 deletions
No preview for this file type
#' @name AndradeEg2.17
#' @title Comprimento e Peso de Camarões-Rosa (\emph{Penaeus Paulensis})
#' @description Comprimento do corpo (\eqn{X_c}) e peso (\eqn{X_p}) de
#' Camarões-Rosa fêmeas da espécie \emph{Penaeus Paulensis}, obtidos
#' nas despescas dos viveiros do Centro de Ciências Agrárias (CCA)
#' da Universidade Federal de Santa Catarina (UFSC).
#' @format Um \code{data.frame} com 18 observações e 2 variáveis, em que
#'
#' \describe{
#'
#' \item{\code{xc}}{Comprimento do corpo em milímetros.}
#'
#' \item{\code{xp}}{Peso em gramas.}
#'
#' }
#' @keywords RS
#' @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. (Exemplo 2.17, pág.
#' 128)
#' @examples
#'
#' data(AndradeEg2.17)
#' str(AndradeEg2.17)
#'
#' library(lattice)
#' xyplot(jitter(xp) ~ xc,
#' data = AndradeEg2.17,
#' type = c("p", "r"),
#' xlab = "Comprimento do Corpo (em mm)",
#' ylab = "Peso (em gramas)")
#'
NULL
#' @name AndradePg90
#' @title Pesos de Bezerros Recém Nascidos
#' @title Pesos de Bezerros Recém-Nascidos (Charoleza e Gir)
#' @description Pesos ao nascer de 24 bezerros machos das raças
#' Charoleza e Gir.
#' @format Um \code{data.frame} com 24 observações e 2 variáveis, em que
#'
#' \describe{
#'
#' \item{\code{bezerro}}{Fator de 2 níveis qualitativos que são as raças
#' dos bezerros (Charoleza e Gir).}
#' \item{\code{raca}}{Fator de 2 níveis que são as raças dos bezerros
#' (Charoleza e Gir).}
#'
#' \item{\code{peso}}{Peso do bezerro macho recém nascido, em kg.}
#'
#' }
#' @seealso \code{\link{AndradeTb2.32}}
#' @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. (Página 90)
#' @examples
#'
#' library(lattice)
#'
#' data(AndradePg90)
#' str(AndradePg90)
#'
#' bwplot(peso ~ bezerro,
#' data = AndradePg90,
#' xlab = "Raça do Bezerro",
#' ylab = "Peso (em kg)")
#'
#' densityplot(~peso, groups = bezerro,
#' library(lattice)
#' densityplot(~peso, groups = raca,
#' data = AndradePg90,
#' auto.key = list(
#' corner = c(0.1, 0.9),
......@@ -36,4 +31,13 @@
#' cex.title = 1
#' ))
#'
#' # Agrupando dados de AndradeTb2.32, um estudo similar.
#' # help(AndradeTb2.32)
#'
#' da <- rbind(AndradePg90, AndradeTb2.32)
#' bwplot(peso ~ raca,
#' data = da,
#' xlab = "Raça do Bezerro",
#' ylab = "Peso (em kg)")
#'
NULL
#' @name AndradeTb2.32
#' @title Pesos de Bezerros Recém-Nascidos (Crioula e Nelore)
#' @description Pesos, em quilogramas, ao nascer de bezerros da raça de
#' gado Crioula e Nelore.
#' @format Um \code{data.frame} com 20 observações e 2 variáveis, em que
#'
#' \describe{
#'
#' \item{\code{raca}}{Fator de 2 níveis que são as raças dos bezerros
#' recém-nascidos.}
#'
#' \item{\code{peso}}{Peso, em kg, do bezerro recém-nascido.}
#'
#' }
#' @seealso \code{\link{AndradePg90}}
#' @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.32, pág. 113)
#' @examples
#'
#' data(AndradeTb2.32)
#' str(AndradeTb2.32)
#'
#' with(AndradeTb2.32, by(peso, raca, summary))
#'
#' library(lattice)
#' densityplot(~peso, groups = raca,
#' data = AndradePg90,
#' auto.key = list(
#' corner = c(0.1, 0.9),
#' title = "Raça do bezerro",
#' cex.title = 1
#' ))
#'
#' # Agrupando dados de AndradePg90, um estudo similar.
#' # help(AndradePg90)
#'
#' da <- rbind(AndradeTb2.32, AndradePg90)
#' bwplot(peso ~ raca,
#' data = da,
#' xlab = "Raça do Bezerro",
#' ylab = "Peso (em kg)")
#'
NULL
#' @name AndradeTb2.34
#' @title Crescimento do Pseudobulbo de Orquídeas (\emph{Laelia
#' Purpurata})
#' @description Dados de crescimento, em centímetros, do pseudobulbo de
#' orquídeas da espécie \emph{Laelia purpurata}, sob duas condições
#' de luminosidade.
#' @format Um \code{data.frame} com 50 observações e 2 variáveis, em que
#'
#' \describe{
#'
#' \item{\code{luz}}{Fator de 2 níveis que representa as condições de
#' luminosidade.}
#'
#' \item{\code{cresc}}{Crescimento do pseudobulbo em centímetros.}
#'
#' }
#' @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.34, pág. 133)
#' @examples
#'
#' data(AndradeTb2.34)
#' str(AndradeTb2.34)
#'
#' library(lattice)
#' bwplot(cresc ~ luz,
#' data = AndradeTb2.34,
#' xlab = "Condição de Luminosidade",
#' ylab = "Crescimento (em cm)")
#'
#' densityplot(~cresc, groups = luz,
#' data = AndradeTb2.34,
#' auto.key = list(
#' corner = c(0.95, 1),
#' title = "Condições de\nluminosidade",
#' cex.title = 1
#' ))
#'
NULL
#' @name AndradeTb2.36
#' @title Produção de Matéria Seca sob Efeito de Radiação
#' @description Dados de produção de matéria seca (\code{prod}) de uma
#' cultura não informada e quantidade de radiação fotossintética
#' ativa (\code{rad}).
#' @format Um \code{data.frame} com 10 observações e 2 variáveis, em que
#'
#' \describe{
#'
#' \item{\code{prod}}{Produção de matéria seca em \eqn{g\,m^{-2}}.}
#'
#' \item{\code{rad}}{Radiação fotossintética em \eqn{W\,m^{-2}}.}
#'
#' }
#' @keywords RS
#' @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.36, pág. 140)
#' @examples
#'
#' data(AndradeTb2.36)
#' str(AndradeTb2.36)
#'
#' library(lattice)
#' xyplot(prod ~ rad,
#' data = AndradeTb2.36,
#' type = c("p", "r"),
#' xlab = expression(Radiação ~ fotossintética ~ (W/m^2)),
#' ylab = expression(Produção ~ (g/m^2)))
#'
NULL
#' @name AndradeTb2.37
#' @title Radiação e Espaçamento na Cultura da Soja
#' @description Estudo que objetiva avaliar se há relação entre o
#' espaçamento das linhas na cultura da soja e a fração da radiação
#' solar extinta pela planta. Para atender tal objetivo foram
#' coletados pares de valores das duas variáveis.
#' @format Um \code{data.frame} com 10 observações e 2 variáveis, em que
#'
#' \describe{
#'
#' \item{\code{rad}}{Fração da radiação solar extinta pela planta, em
#' porcentagem.}
#'
#' \item{\code{esp}}{Espaçamento das linhas na cultura da soja, em
#' metros.}
#'
#' }
#' @keywords RS
#' @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.37, pág. 141)
#' @examples
#'
#' data(AndradeTb2.37)
#' str(AndradeTb2.37)
#'
#' library(lattice)
#' xyplot(rad ~ esp,
#' data = AndradeTb2.37,
#' type = c("p", "r"),
#' xlab = "Espaçamento (m)",
#' ylab = "Radiação (%)")
#'
NULL
#' @name AndradeTb2.38
#' @title Estudo de Salinidade e Temperatura na Região III da Lagoa da
#' Conceição
#' @description Estudo com o objetivo de verificar se existe correlação
#' entre a salinidade e a temperatura na região III da Lagoa da
#' Conceição, Florianópolis, SC.
#' @format Um \code{data.frame} com 8 observações e 2 variáveis, em que
#'
#' \describe{
#'
#' \item{\code{temp}}{Temperatura da lagoa, em graus Celsius (ºC).}
#'
#' \item{\code{salin}}{Salinidade da lagoa, em gramas por litro (g/l).}
#'
#' }
#' @keywords RS
#' @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.38, pág. 142)
#' @examples
#'
#' data(AndradeTb2.38)
#' str(AndradeTb2.38)
#'
#' cor.test(~temp + salin, data = AndradeTb2.38)
#'
#' library(lattice)
#' xyplot(temp ~ salin,
#' data = AndradeTb2.38,
#' type = c("p", "r"),
#' xlab = "Salinidade (g/l)",
#' ylab = "Temperatura (ºC)")
#'
NULL
#' @name AndradeTb2.42
#' @title Peso de Carne de Mexilhões em Áreas de Sambaqui e Manguezal
#' @description Resultados do peso de carne, em gramas, de mexilhões
#' provenientes de área de sambaqui e manguezal.
#' @format Um \code{data.frame} com 30 observações e 2 variáveis, em que
#'
#' \describe{
#'
#' \item{\code{local}}{Fator de 2 níveis que representa os locais
#' habituais dos mexilhões.}
#'
#' \item{\code{peso}}{Peso de carne de mexilhões, em gramas.}
#'
#' }
#' @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.42, pág. 146)
#' @examples
#'
#' data(AndradeTb2.42)
#' str(AndradeTb2.42)
#'
#' # Box-plots
#' boxplot(peso ~ local,
#' data = AndradeTb2.42,
#' xlab = "Local",
#' ylab = "Peso de Carne (em gramas)")
#'
#' # Gráficos de densidades
#' dens <- with(AndradeTb2.42, tapply(peso, local, density))
#' plot(x = 0, y = 0, type = "n",
#' xlim = range(sapply(dens, function(d) range(d$x))),
#' ylim = range(sapply(dens, function(d) range(d$y))),
#' xlab = "Peso em carne (em gramas)",
#' ylab = "Densidade estimada")
#' lapply(1:length(dens), function(i) lines(dens[[i]], col = i))
#' legend("topright", title = "Habitat dos mexilhões",
#' legend = unique(AndradeTb2.42$local),
#' lwd = 1, col = 1:2, bty = "n")
#'
NULL
#' @name AndradeTb2.44
#' @title Produção de Duas Variedades de Cana-de-açúcar
#' @description Estudo no qual avaliou-se a produção de cana-de-açúcar
#' considerando duas variedades distintas a fim de comparação.
#' @format Um \code{data.frame} com 21 observações e 2 variáveis, em que
#'
#' \describe{
#'
#' \item{\code{varied}}{Fator de 2 níveis que representa as variedades
#' de cana-de-açúcar consideradas.}
#'
#' \item{\code{prod}}{Produção de cana-de-açúcar, em toneladas por
#' hectare.}
#'
#' }
#' @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.44, pág. 147)
#' @examples
#'
#' data(AndradeTb2.44)
#' str(AndradeTb2.44)
#'
#' # Box-plots
#' boxplot(prod ~ varied,
#' data = AndradeTb2.44,
#' xlab = "Variedade",
#' ylab = expression(Produção~(em~t~ha^-1)))
#'
#' # Gráficos de densidades
#' dens <- with(AndradeTb2.44, tapply(prod, varied, density))
#' plot(x = 0, y = 0, type = "n",
#' xlim = range(sapply(dens, function(d) range(d$x))),
#' ylim = range(sapply(dens, function(d) range(d$y))),
#' xlab = expression(Produção~(em~t~ha^-1)),
#' ylab = "Densidade estimada")
#' lapply(1:length(dens), function(i) lines(dens[[i]], col = i))
#' legend("topleft", title = "Variedade",
#' legend = unique(AndradeTb2.44$varied),
#' lwd = 1, col = 1:2, bty = "n")
#'
NULL
xc xp
27 0.14
26 0.16
26 0.14
25 0.12
25 0.12
25 0.12
25 0.11
23 0.09
23 0.07
30 0.18
30 0.23
33 0.28
33 0.28
33 0.32
35 0.31
35 0.33
35 0.36
36 0.33
bezerro peso
charoleza 47
charoleza 45
charoleza 37
charoleza 41
charoleza 46
charoleza 47
charoleza 34
charoleza 25
charoleza 40
charoleza 45
charoleza 48
charoleza 40
gir 40
gir 43
gir 44
gir 46
gir 48
gir 51
gir 54
gir 55
gir 56
gir 57
gir 55
gir 54
raca peso
Charoleza 47
Charoleza 45
Charoleza 37
Charoleza 41
Charoleza 46
Charoleza 47
Charoleza 34
Charoleza 25
Charoleza 40
Charoleza 45
Charoleza 48
Charoleza 40
Gir 40
Gir 43
Gir 44
Gir 46
Gir 48
Gir 51
Gir 54
Gir 55
Gir 56
Gir 57
Gir 55
Gir 54
raca peso
Crioula 47
Crioula 51
Crioula 45
Crioula 50
Crioula 50
Crioula 52
Crioula 46
Crioula 49
Crioula 53
Crioula 51
Nelore 51
Nelore 40
Nelore 46
Nelore 48
Nelore 54
Nelore 56
Nelore 44
Nelore 43
Nelore 55
Nelore 57
luz cresc
Direta 1.6
Direta 1.6
Direta 1.9
Direta 1.9
Direta 2.1
Direta 2.1
Direta 2.1
Direta 2.1
Direta 2.1
Direta 2.4
Direta 2.5
Direta 2.5
Direta 2.7
Direta 3.4
Direta 3.4
Direta 3.7
Direta 3.9
Direta 4.1
Direta 4.8
Direta 6.3
Direta 6.5
Direta 7.2
Direta 8.8
Direta 9.4
Direta 9.5
Indireta 1.4
Indireta 1.9
Indireta 2.8
Indireta 3.1
Indireta 3.5
Indireta 3.5
Indireta 3.6
Indireta 3.9
Indireta 4.3
Indireta 4.5
Indireta 4.6
Indireta 4.8
Indireta 6.3
Indireta 6.5
Indireta 6.7
Indireta 6.7
Indireta 6.8
Indireta 6.9
Indireta 8.1
Indireta 8.6
Indireta 10.4
Indireta 12.7
Indireta 16.3
Indireta 16.8
Indireta 16.9
prod rad
10 18
60 55
110 190
160 300
220 410
280 460
340 570
400 770
460 815
520 965
rad esp
0.2 0.53
0.3 0.51
0.4 0.48
0.5 0.45
0.6 0.44
0.7 0.41
0.8 0.4
0.9 0.39
1 0.36
1.1 0.3
temp salin
24 3.85
23 9.61
23 2.26
26 2.06
25.5 2.89
25.5 9.61
24.3 10.58
23 11.4
local peso
Sambaqui 30.61
Sambaqui 28.89
Sambaqui 32.21
Sambaqui 24.25
Sambaqui 25.63
Sambaqui 42.88
Sambaqui 36.22
Sambaqui 28.86
Sambaqui 22.56
Sambaqui 22.92
Sambaqui 27.94
Sambaqui 41.45
Sambaqui 42.59
Sambaqui 15.25
Sambaqui 33.29
Manguezal 25.34
Manguezal 25.67
Manguezal 15.64
Manguezal 33.97
Manguezal 11.13
Manguezal 9.49
Manguezal 16.92
Manguezal 12.91
Manguezal 14.05
Manguezal 14.88
Manguezal 19.17
Manguezal 21.6
Manguezal 20.01
Manguezal 19.81
Manguezal 16.22
varied prod
1 65
1 68
1 75
1 76
1 77
1 78
1 80
1 80
1 82
1 86
2 88
2 89
2 90
2 91
2 92
2 93
2 95
2 96
2 97
2 97
2 99
File added
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment