Jhenifer125

Adiciona 14 tabelas referentes a issue #125

R/PaulinoTb1.8.R

@@ -3,18 +3,25 @@
 #' @description 431 amostras de 100g de fibras têxteis, produzidas por
 #'     máquinas de dois fabricantes, foram inspecionadas quanto ao
 #'     número registrado de defeitos de cada um dos tipos (botões e
-#'     rolhas).
+#'     rolhas). Os defeitos do tipo rolha resultam da presença de
+#'     entrelaçamento em grupos de fibras maiores e de fácil separação,
+#'     já os do tipo botão tem entrelaçamento em grupos de fibras
+#'     menores e são de difícil separação. O interesse nesses dados
+#'     contra-se na avaliação da intensidade e da homogeneidade da
+#'     associação entre as frequências dos dois tipos de defeitos para
+#'     os fabricantes.
 #' @format Um \code{data.frame} com 18 observações e 4 variáveis, em que
 #'
 #' \describe{
 #'
 #' \item{\code{fabr}}{Fabricantes das máquinas (A, B).}
 #'
-#' \item{\code{bot}}{Número de botões que podem estar defeituoso.}
+#' \item{\code{bot}}{Número de defeitos do tipo botão (botões).}
 #'
-#' \item{\code{rolha}}{Número de rolhas que podem estar defeituosa.}
+#' \item{\code{rolha}}{Número de defeitos do tipo rolha (rolhas).}
 #'
-#' \item{\code{def}}{Número de defeitos dos dois tipos na fibra têxtil.}
+#' \item{\code{freq}}{Número de amostras de 100g de fibra têxtil em que
+#'     observou-se \code{bot} botões e \code{rolha} rolhas.}
 #'
 #' }
 #' @keywords contingência
@@ -30,12 +37,12 @@
 #' 
 #' str(PaulinoTb1.8)
 #'
-#' xt <- xtabs(def ~ fabr + bot + rolha, data = PaulinoTb1.8)
+#' xt <- xtabs(freq ~ fabr + bot + rolha, data = PaulinoTb1.8)
 #'
 #' ftable(xt)
 #' ftable(prop.table(xt))
 #'
-#' mosaicplot(xt, main = NULL,
+#' mosaicplot(xt, main = NULL, cex.axis = 0.9,
 #'            xlab = "Fabricante das máquinas",
 #'            ylab = "Número de botões")
 #'