From 7995814bca18e4c36aec6bb63d55d86dfd20c4c0 Mon Sep 17 00:00:00 2001
From: Jhenifer <jhenicaet@gmail.com>
Date: Fri, 3 Feb 2017 12:18:39 -0200
Subject: [PATCH] =?UTF-8?q?Realiza=20pequena=20corre=C3=A7=C3=B5es=20nos?=
=?UTF-8?q?=20dados=20e=20nos=20exemplos?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit
---
R/PaulinoTb2.1a.R | 6 +++++-
data-raw/PaulinoTb2.1a.txt | 8 ++++----
data/PaulinoTb2.1a.rda | Bin 254 -> 259 bytes
man/PaulinoTb2.1a.Rd | 6 +++++-
4 files changed, 14 insertions(+), 6 deletions(-)
diff --git a/R/PaulinoTb2.1a.R b/R/PaulinoTb2.1a.R
index 5174d3fe..5c98004a 100644
--- a/R/PaulinoTb2.1a.R
+++ b/R/PaulinoTb2.1a.R
@@ -28,10 +28,14 @@
#' (Tabela 2.1a, pág. 20)
#' @examples
#'
+#' data(PaulinoTb2.1a)
+#'
+#' str(PaulinoTb2.1a)
+#'
#' xt <- xtabs(freq ~ opin + faixa, data = PaulinoTb2.1a)
#' xt
#'
-#' mosaicplot(xt, main = NULL,
+#' mosaicplot(xt, main = NULL, cex.axis = 0.9,
#' xlab = "Opinião",
#' ylab = "Faixa etária")
#'
diff --git a/data-raw/PaulinoTb2.1a.txt b/data-raw/PaulinoTb2.1a.txt
index 4f790221..7b8b3bfa 100644
--- a/data-raw/PaulinoTb2.1a.txt
+++ b/data-raw/PaulinoTb2.1a.txt
@@ -1,5 +1,5 @@
opin faixa freq
-favoravel < 40 43
-favoravel > 39 25
-desfavoravel < 40 41
-desfavoravel > 39 70
+favorável < 40 43
+favorável > 39 25
+desfavorável < 40 41
+desfavorável > 39 70
diff --git a/data/PaulinoTb2.1a.rda b/data/PaulinoTb2.1a.rda
index a3cfab68d794a09342f0ea390c03433baf37f458..c7b2de4c778217c07cbc884814292bcad045ec1b 100644
GIT binary patch
literal 259
zcmZ>Y%CIzaj8qGb<e06P&cLvx{>pzN4+RI!8dX+?5C?np{|6ix6c{)d7+5zj+?bJN
zDp1jp>+F2xf=QM06{)IzUx%z^^Ew-5Ffb)BFw78A3HfTKa@gfak`YfYk75%?*23Po
zlZuvJjd9u<CH~yP%5&SBy|J^m?y9)Kv2oJ7?=wxmzP!J$aQc!-qOu#9a-^Akf<xDy
z)nXC9Fv~+q+AmkcNJ23t_s`2#!v&VNE(xuAZK=H3-6rwW+Ww8_dgQWRNyq0te07cU
zQ%&bGg{jpXho7xAPnf@>DOqJ%mzvJ2B|5sD7E2sjx)-!5I@mkRJAQuq32V;&C(I0q
Pj5gv$t`-3kK%NEw&y;JY
literal 254
zcmZ>Y%CIzaj8qGb6j-p_kbz-q{ek~x9tsYcHL9!(ArAKH{|`7YFtBc5xSWv1Dpj%U
zO0MH#UuI{=SG-fIvUp8eO}^TPusJX=FfOol?CM-L)8yh}&IODUC!Ad7rV-S`q2hQ<
zpEovCYlF-CpDB+x7CjF1=}EQVP*=QWzQ@)&XYa+=(=ShCa2HTh;LVo0u%zLL!x;_%
zp#X))E^Qnh3knrZsR;YKaVs(i%`0Zn`?pv4*~OcUr#Hvw7B7_$I(4*QCo@C+sh0PD
zm68mC{<Z9Tdo|uzMroxi%cR2DUN3ohZ!GHa;<~)8nT?ClBdK%wM>z%ynFs%m-kInp
LqQat~dBy<%dGKT~
diff --git a/man/PaulinoTb2.1a.Rd b/man/PaulinoTb2.1a.Rd
index 49bfbde1..1bed4a00 100644
--- a/man/PaulinoTb2.1a.Rd
+++ b/man/PaulinoTb2.1a.Rd
@@ -34,10 +34,14 @@ Dados hipotéticos provenientes da realização de sondagem
}
\examples{
+data(PaulinoTb2.1a)
+
+str(PaulinoTb2.1a)
+
xt <- xtabs(freq ~ opin + faixa, data = PaulinoTb2.1a)
xt
-mosaicplot(xt, main = NULL,
+mosaicplot(xt, main = NULL, cex.axis = 0.9,
xlab = "Opinião",
ylab = "Faixa etária")
--
GitLab