diff --git a/R/PaulinoTb14.14.R b/R/PaulinoTb14.14.R new file mode 100644 index 0000000000000000000000000000000000000000..1ae3c4513597c91efb1fdb15d0aedcf95b737e80 --- /dev/null +++ b/R/PaulinoTb14.14.R @@ -0,0 +1,45 @@ +#' @name PaulinoTb14.14 +#' @title Frequências de aprovação/reprovação de estudantes. +#' @description Em uma avaliação do desempenho de 203 estudantes +#' universitários a uma disciplina introdutória de Álgebra e +#' Cálculo, os estudantes, agrupados segundo os quatro cursos em +#' que estavam matriculados, foram alatoriamente dividios +#' em dois grupos por curso, a cada um dos quais foi atribuído um +#' de dois professores que leccionaram a mesma matéria, e submetidos +#' ás mesmas provas de avaliação classificadas por um núcleo comum +#' de examinadores. +#' @format Um \code{data.frame} com 16 observações e 4 variáveis. +#' +#' \describe{ +#' +#' \item{\code{curso}}{Curso na qual os estudantes estavam matriculados.} +#' +#' \item{\code{prof}}{Professor que leccionou a matéria e foi designado +#' a um dos grupos (A ou B).} +#' +#' \item{\code{des}}{Desempenho na avaliação.} +#' +#' \item{\code{freq}}{Frequência com os valores obtidos.} +#' +#' } +#' @keywords TC +#' @source PAULINO; SINGER (2006), Tabela 14.7, pág. 508. +#' @examples +#' +#' library(lattice) +#' +#' data(PaulinoTb14.14) +#' +#' dados <- xtabs(freq ~ curso + prof + des, data = PaulinoTb14.14) +#' barchart(dados, horizontal = FALSE, +#' stack = FALSE, +#' scales = list(x = list(labels = c("Bioquímica", +#' "Ciências Biológicas", "Ciências Químicas", +#' "Química Farmacêutica"))), +#' ylab = "Frequência", +#' xlab = "Grupos", +#' main = "Frequências de aprovação/reprovação de estudantes.", +#' auto.key = list(corner = c(0.96, 0.90), +#' text = c("Aprovado", "Reprovado"))) +#' +NULL diff --git a/data-raw/PaulinoTb14.14.txt b/data-raw/PaulinoTb14.14.txt new file mode 100644 index 0000000000000000000000000000000000000000..e3177c66634ecce297c70d7822a5a31dfcd8d7e8 --- /dev/null +++ b/data-raw/PaulinoTb14.14.txt @@ -0,0 +1,17 @@ +curso prof des freq +Ciencias Quimicas A aprovado 8 +Ciencias Quimicas A reprovado 11 +Ciencias Quimicas B aprovado 11 +Ciencias Quimicas B reprovado 13 +Quimica farmaceutica A aprovado 10 +Quimica farmaceutica A reprovado 14 +Quimica farmaceutica B aprovado 13 +Quimica farmaceutica B reprovado 9 +Ciencias Biologicas A aprovado 19 +Ciencias Biologicas A reprovado 25 +Ciencias Biologicas B aprovado 20 +Ciencias Biologicas B reprovado 18 +Bioquimica A aprovado 14 +Bioquimica A reprovado 2 +Bioquimica B aprovado 12 +Bioquimica B reprovado 4 diff --git a/data/PaulinoTb14.14.rda b/data/PaulinoTb14.14.rda new file mode 100644 index 0000000000000000000000000000000000000000..890d1c8b5d05ca3509eea972936ee5cb8d61bfb9 Binary files /dev/null and b/data/PaulinoTb14.14.rda differ diff --git a/man/PaulinoTb14.14.Rd b/man/PaulinoTb14.14.Rd new file mode 100644 index 0000000000000000000000000000000000000000..564a4923ffb2d3c9805216b85f8348b8877a43a6 --- /dev/null +++ b/man/PaulinoTb14.14.Rd @@ -0,0 +1,53 @@ +% Generated by roxygen2: do not edit by hand +% Please edit documentation in R/PaulinoTb14.14.R +\name{PaulinoTb14.14} +\alias{PaulinoTb14.14} +\title{Frequências de aprovação/reprovação de estudantes.} +\format{Um \code{data.frame} com 16 observações e 4 variáveis. + +\describe{ + +\item{\code{curso}}{Curso na qual os estudantes estavam matriculados.} + +\item{\code{prof}}{Professor que leccionou a matéria e foi designado + a um dos grupos (A ou B).} + +\item{\code{des}}{Desempenho na avaliação.} + +\item{\code{freq}}{Frequência com os valores obtidos.} + +}} +\source{ +PAULINO; SINGER (2006), Tabela 14.7, pág. 508. +} +\description{ +Em uma avaliação do desempenho de 203 estudantes + universitários a uma disciplina introdutória de Álgebra e + Cálculo, os estudantes, agrupados segundo os quatro cursos em + que estavam matriculados, foram alatoriamente dividios + em dois grupos por curso, a cada um dos quais foi atribuído um + de dois professores que leccionaram a mesma matéria, e submetidos + ás mesmas provas de avaliação classificadas por um núcleo comum + de examinadores. +} +\examples{ + +library(lattice) + +data(PaulinoTb14.14) + +dados <- xtabs(freq ~ curso + prof + des, data = PaulinoTb14.14) +barchart(dados, horizontal = FALSE, + stack = FALSE, + scales = list(x = list(labels = c("Bioquímica", + "Ciências Biológicas", "Ciências Químicas", + "Química Farmacêutica"))), + ylab = "Frequência", + xlab = "Grupos", + main = "Frequências de aprovação/reprovação de estudantes.", + auto.key = list(corner = c(0.96, 0.90), + text = c("Aprovado", "Reprovado"))) + +} +\keyword{TC} +