diff --git a/R/PaulinoTb1.16.R b/R/PaulinoTb1.16.R new file mode 100644 index 0000000000000000000000000000000000000000..3a34f3892273aadba0382ec6da11f51c4808f350 --- /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 0000000000000000000000000000000000000000..5b673e48c3ea8afee376ed4d903461917f41c2b0 --- /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 Binary files /dev/null and b/data/PaulinoTb1.16.rda differ diff --git a/man/PaulinoTb1.16.Rd b/man/PaulinoTb1.16.Rd new file mode 100644 index 0000000000000000000000000000000000000000..c8d83cae8819be19e00d4330f9e5646a6cd31697 --- /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} +