Skip to content
Snippets Groups Projects
Commit ca337335 authored by Jhenifer Caetano's avatar Jhenifer Caetano
Browse files

Adiciona tabela PaulinoTb1.16 ao pacote

parent fb141ecb
No related branches found
No related tags found
No related merge requests found
#' @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
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
File added
% 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}
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment