From 861f69df2b867ce870b45ad7e7fc2a0961c0519f Mon Sep 17 00:00:00 2001
From: Vinicius <vinicius.cesar.pedroso@gmail.com>
Date: Tue, 11 Oct 2016 15:59:24 -0300
Subject: [PATCH] Adiciona tabela 14.14 livro categoricos
---
R/PaulinoTb14.14.R | 45 ++++++++++++++++++++++++++++++
data-raw/PaulinoTb14.14.txt | 17 ++++++++++++
data/PaulinoTb14.14.rda | Bin 0 -> 326 bytes
man/PaulinoTb14.14.Rd | 53 ++++++++++++++++++++++++++++++++++++
4 files changed, 115 insertions(+)
create mode 100644 R/PaulinoTb14.14.R
create mode 100644 data-raw/PaulinoTb14.14.txt
create mode 100644 data/PaulinoTb14.14.rda
create mode 100644 man/PaulinoTb14.14.Rd
diff --git a/R/PaulinoTb14.14.R b/R/PaulinoTb14.14.R
new file mode 100644
index 00000000..1ae3c451
--- /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 00000000..e3177c66
--- /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
GIT binary patch
literal 326
zcmZ>Y%CIzaj8qGbyde}7%fRSUf8c+8je-NC34;woiG%&}{|ycd4vZTZO*;<z`f@I{
zF`2jIOOLZ#<6>W1H%b4iY%{e?PS`pyWbiUDTwrqb>0nB@Ado1zaDm|BD_)$F94D|$
zn9-EN!k(tu<HfhiMIj~Qaavk;(@uuON|x^A@VDK6=iLZWXJVG%y64tht~oJlO@eAg
zB2#^ZtAR#eRI=vd^d~_A%QC$V$e;IoeKvJbh9{fb<#jEt3ONarz9qSIB$$|JU6`og
zs&ng7Qxe-n!|01wx6ke3Zk0C8d-(Fv-zvrZET@-knQ?o<y<2R`I+c&E$bRYbaW1<m
z*vq8o8WyRSS$95dPrS#8M`}}RxwLa_lvU15+<P!}$2X_zoJz|oLb92|ALd-lt6jF~
ggH=b#WX`tLuUQ^mW|8B0c=*3~k*h_(1W>pE00)<d!~g&Q
literal 0
HcmV?d00001
diff --git a/man/PaulinoTb14.14.Rd b/man/PaulinoTb14.14.Rd
new file mode 100644
index 00000000..564a4923
--- /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}
+
--
GitLab