Skip to content
Snippets Groups Projects
Commit 122a1a26 authored by Bruno Geronymo's avatar Bruno Geronymo
Browse files

Adiciona Tabela 44 (AndradeTb6.2).

parent 15c300c9
No related branches found
No related tags found
1 merge request!143Bruno153 - Adiciona 7 tabelas do Andrade.
#' @name AndradeTb6.2
#' @title Alturas das Alunas do Curso de Estatística Básica
#' @description Dados das alturas de 17 alunas da turma de Estatística
#' Básica do Curso de Ciências Biológicas.
#' @format Um \code{data.frame} com 11 observações e 2 variáveis, em que
#'
#' \describe{
#'
#' \item{\code{altura}}{Altura das alunas, em metros.}
#'
#' \item{\code{freq}}{Frequência absoluta das alturas das alunas.}
#'
#' }
#' @keywords CENSO
#' @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 6.2, pág. 289)
#' @examples
#'
#' data(AndradeTb6.2)
#' str(AndradeTb6.2)
#'
#' # Gráfico de barras
#' with(AndradeTb6.2, {
#' fr <- paste0("(", round(100 * freq / sum(freq)), "% )")
#' bp <- barplot(freq,
#' names.arg = altura,
#' col = "darkturquoise",
#' beside = TRUE,
#' ylim = c(0, 5),
#' xlab = "Altura das Alunas",
#' ylab = "Frequência Absoluta")
#' text(bp, freq + 0.3, labels = paste(freq, fr))
#' })
#'
#' # Gráfico de setores
#' with(AndradeTb6.2, {
#' fr <- paste0("(", round(100 * freq / sum(freq)), "%)")
#' pie(freq, labels = paste(altura, "metros", fr),
#' col = gray.colors(length(freq)))
#' })
#'
NULL
\ No newline at end of file
altura freq
1.56 1
1.6 4
1.61 2
1.62 1
1.63 1
1.65 1
1.67 2
1.68 1
1.7 1
1.72 2
1.73 1
File added
% Generated by roxygen2: do not edit by hand
% Please edit documentation in R/AndradeTb6.2.R
\name{AndradeTb6.2}
\alias{AndradeTb6.2}
\title{Alturas das Alunas do Curso de Estatística Básica}
\format{Um \code{data.frame} com 11 observações e 2 variáveis, em que
\describe{
\item{\code{altura}}{Altura das alunas, em metros.}
\item{\code{freq}}{Frequência absoluta das alturas das alunas.}
}}
\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 6.2, pág. 289)
}
\description{
Dados das alturas de 17 alunas da turma de Estatística
Básica do Curso de Ciências Biológicas.
}
\examples{
data(AndradeTb6.2)
str(AndradeTb6.2)
# Gráfico de barras
with(AndradeTb6.2, {
fr <- paste0("(", round(100 * freq / sum(freq)), "\% )")
bp <- barplot(freq,
names.arg = altura,
col = "darkturquoise",
beside = TRUE,
ylim = c(0, 5),
xlab = "Altura das Alunas",
ylab = "Frequência Absoluta")
text(bp, freq + 0.3, labels = paste(freq, fr))
})
# Gráfico de setores
with(AndradeTb6.2, {
fr <- paste0("(", round(100 * freq / sum(freq)), "\%)")
pie(freq, labels = paste(altura, "metros", fr),
col = gray.colors(length(freq)))
})
}
\keyword{CENSO}
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment