From ca337335a2f82c1f6a6cacc4de6311610623989d Mon Sep 17 00:00:00 2001
From: Jhenifer Caetano <jhenicaet@gmail.com>
Date: Tue, 30 Aug 2016 15:49:47 -0300
Subject: [PATCH] Adiciona tabela PaulinoTb1.16 ao pacote
---
R/PaulinoTb1.16.R | 42 +++++++++++++++++++++
data-raw/PaulinoTb1.16.txt | 73 +++++++++++++++++++++++++++++++++++++
data/PaulinoTb1.16.rda | Bin 0 -> 339 bytes
man/PaulinoTb1.16.Rd | 50 +++++++++++++++++++++++++
4 files changed, 165 insertions(+)
create mode 100644 R/PaulinoTb1.16.R
create mode 100644 data-raw/PaulinoTb1.16.txt
create mode 100644 data/PaulinoTb1.16.rda
create mode 100644 man/PaulinoTb1.16.Rd
diff --git a/R/PaulinoTb1.16.R b/R/PaulinoTb1.16.R
new file mode 100644
index 00000000..3a34f389
--- /dev/null
+++ b/R/PaulinoTb1.16.R
@@ -0,0 +1,42 @@
+#' @name PaulinoTb1.16
+#' @title Microinfiltração em Dentes Molares
+#' @description Estudo realizado na Faculdade de Odontologia da
+#' Universidade de São Paulo em que cada um de três avaliadores
+#' classifico 72 molares selados com diferentes materiais segundo o
+#' nível de microinfiltração numa escala de 0 (sem microinfiltração)
+#' até 4 (microinfiltração intensa).
+#' @format Um \code{data.frame} com 72 observações e 4 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{mat}}{Tipo de material usado para selar os molares.}
+#'
+#' \item{\code{A}}{Classificação dos molares segundo o avaliador A.}
+#'
+#' \item{\code{B}}{Classificação dos molares segundo o avaliador B.}
+#'
+#' \item{\code{C}}{Classificação dos molares segundo o avaliador C.}
+#'
+#' }
+#' @keywords dados-categorizados
+#' @source Paulino, C. D., Singer, J. M. (2006). Análise de Dados
+#' Categorizados (1st ed.). São Paulo, SP: Edgard Blucher.
+#' (Tabela 1.16, pág. 18).
+#' @examples
+#'
+#' str(PaulinoTb1.16)
+#'
+#' library(reshape2)
+#'
+#' da <- melt(PaulinoTb1.16, id.vars = "mat")
+#' table(PaulinoTb1.16)
+#'
+#' library(lattice)
+#'
+#' barchart(value ~ variable | mat, data = da,
+#' stack = FALSE,
+#' horizontal = FALSE,
+#' xlab = "Avaliadores",
+#' ylab = "Frequência")
+#'
+NULL
diff --git a/data-raw/PaulinoTb1.16.txt b/data-raw/PaulinoTb1.16.txt
new file mode 100644
index 00000000..5b673e48
--- /dev/null
+++ b/data-raw/PaulinoTb1.16.txt
@@ -0,0 +1,73 @@
+mat A B C
+allbond 0 2 0
+allbond 2 2 2
+allbond 2 2 2
+allbond 0 2 1
+allbond 2 2 1
+allbond 4 4 2
+allbond 0 2 1
+allbond 1 1 1
+allbond 2 2 2
+allbond 1 2 2
+allbond 1 0 3
+allbond 2 1 2
+allbond 1 2 0
+allbond 2 2 1
+allbond 2 2 1
+allbond 3 3 3
+allbond 0 3 0
+allbond 3 1 1
+allbond 1 2 2
+allbond 3 3 2
+allbond 1 0 1
+allbond 3 3 2
+allbond 3 3 1
+allbond 2 2 2
+optibond 0 2 0
+optibond 0 0 0
+optibond 1 1 1
+optibond 0 0 0
+optibond 0 0 1
+optibond 1 3 1
+optibond 0 1 1
+optibond 3 3 4
+optibond 1 2 1
+optibond 0 0 1
+optibond 2 2 1
+optibond 0 2 1
+optibond 1 2 2
+optibond 0 1 1
+optibond 0 0 0
+optibond 1 1 1
+optibond 0 0 1
+optibond 1 1 1
+optibond 0 2 0
+optibond 1 1 1
+optibond 0 0 1
+optibond 1 0 1
+optibond 1 1 1
+optibond 0 1 1
+scotchbond 0 0 3
+scotchbond 3 4 3
+scotchbond 2 2 1
+scotchbond 3 4 3
+scotchbond 1 2 1
+scotchbond 2 0 1
+scotchbond 3 3 2
+scotchbond 3 3 3
+scotchbond 2 4 2
+scotchbond 3 3 2
+scotchbond 0 0 0
+scotchbond 2 3 1
+scotchbond 1 2 2
+scotchbond 2 2 3
+scotchbond 1 1 1
+scotchbond 0 0 1
+scotchbond 3 3 0
+scotchbond 1 3 1
+scotchbond 3 2 1
+scotchbond 3 4 4
+scotchbond 4 3 1
+scotchbond 3 2 3
+scotchbond 1 1 1
+scotchbond 3 3 3
diff --git a/data/PaulinoTb1.16.rda b/data/PaulinoTb1.16.rda
new file mode 100644
index 0000000000000000000000000000000000000000..bd80819e0210b6a1895d2c224adc4bd47e275a4f
GIT binary patch
literal 339
zcmZ>Y%CIzaj8qGb{2-ge#=tcF|B3&fJQx@l4H;}4LLBVV?>9IwFgP$UZeW}d&^U=J
zsmedtaj}9FFWbD}EQu2-CQ`go3>O$K98{a+DK)FAu|q=P$Yq~~Qwqzrw#8SrCH1;S
zbY_O^OyO0zuxn{(Xx7SJAFtpheU*~#Z8xWc_Qi-xMKTwKxFvgM?JB-}I9FQr)^?d<
z8F!Wqt;uq>PbODK379B<(p`|E%JIFM>ADIZGpDZ>Bg3TMB3}gFJ}6HQ67r~?<Rm>)
z{r&3olMC{{1Xe8J6;kA%ch&3KrrVL3PF$`^-GZzUn_Lx^u<|r(X&q=f)fi!!#dJk$
zNmJW5ffa&@%(rKCL@~|zed^!lZId50=-!r_XI6dnn3CZ3X978~t-tSNE%VT5`+qKJ
v;-u5ho=V<NTy5{%eSceGj(ptI@W5G-Vb|iNd$YLy={@NxSg82G>Ie@2{Ctg_
literal 0
HcmV?d00001
diff --git a/man/PaulinoTb1.16.Rd b/man/PaulinoTb1.16.Rd
new file mode 100644
index 00000000..c8d83cae
--- /dev/null
+++ b/man/PaulinoTb1.16.Rd
@@ -0,0 +1,50 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/PaulinoTb1.16.R
+\name{PaulinoTb1.16}
+\alias{PaulinoTb1.16}
+\title{Microinfiltração em Dentes Molares}
+\format{Um \code{data.frame} com 72 observações e 4 variáveis, em que
+
+\describe{
+
+\item{\code{mat}}{Tipo de material usado para selar os molares.}
+
+\item{\code{A}}{Classificação dos molares segundo o avaliador A.}
+
+\item{\code{B}}{Classificação dos molares segundo o avaliador B.}
+
+\item{\code{C}}{Classificação dos molares segundo o avaliador C.}
+
+}}
+\source{
+Paulino, C. D., Singer, J. M. (2006). Análise de Dados
+ Categorizados (1st ed.). São Paulo, SP: Edgard Blucher.
+ (Tabela 1.16, pág. 18).
+}
+\description{
+Estudo realizado na Faculdade de Odontologia da
+ Universidade de São Paulo em que cada um de três avaliadores
+ classifico 72 molares selados com diferentes materiais segundo o
+ nível de microinfiltração numa escala de 0 (sem microinfiltração)
+ até 4 (microinfiltração intensa).
+}
+\examples{
+
+str(PaulinoTb1.16)
+
+library(reshape2)
+
+da <- melt(PaulinoTb1.16, id.vars = "mat")
+table(PaulinoTb1.16)
+
+library(lattice)
+
+barchart(value ~ variable | mat, data = da,
+ stack = FALSE,
+ horizontal = FALSE,
+ xlab = "Avaliadores",
+ ylab = "Frequência")
+
+}
+\keyword{dados-categorizados}
+
--
GitLab