From 9bf52fb21ae2821b786da817abf3b6c13ebccac4 Mon Sep 17 00:00:00 2001
From: Maria <mariaholiveira34@gmail.com>
Date: Tue, 13 Sep 2016 17:54:24 -0300
Subject: [PATCH] corrige issue 137
---
R/SliwianyQd26.R | 34 ++++++++++++++--------------------
R/SliwianyQd27.R | 26 +++++++++++++-------------
data-raw/SliwianyQd26.txt | 20 +++++++++-----------
data-raw/SliwianyQd27.txt | 20 +++++++++-----------
data/SliwianyQd26.rda | Bin 571 -> 568 bytes
data/SliwianyQd27.rda | Bin 576 -> 569 bytes
man/SliwianyQd26.Rd | 34 ++++++++++++++--------------------
man/SliwianyQd27.Rd | 26 +++++++++++++-------------
8 files changed, 72 insertions(+), 88 deletions(-)
diff --git a/R/SliwianyQd26.R b/R/SliwianyQd26.R
index 394a5ea8..83b236e5 100644
--- a/R/SliwianyQd26.R
+++ b/R/SliwianyQd26.R
@@ -8,31 +8,31 @@
#' Ação Educativa
#' @description Níveis de satisfação alcançados por crianças do Jardim I
#' nos medidores dos subgrupos de ação educativa, por bairro.
-#' @format Um \code{data.frame} com 10 linhas e 9 colunase, em que
+#' @format Um \code{data.frame} com 8 linhas e 11 colunase, em que
#' \describe{
#'
-#' \item{\code{3.1.1}}{Expressar-se através de desenhos.}
+#' \item{\code{x1}}{Expressar-se através de desenhos.}
#'
-#' \item{\code{3.1.2}}{Diferenciar o desenho da escrita.}
+#' \item{\code{x2}}{Diferenciar o desenho da escrita.}
#'
-#' \item{\code{3.1.3}}{Classificar segundo a cor.}
+#' \item{\code{x3}}{Classificar segundo a cor.}
#'
-#' \item{\code{3.1.4}}{Possuir determinadas noções de tempo.}
+#' \item{\code{x4}}{Possuir determinadas noções de tempo.}
#'
-#' \item{\code{3.1.5}}{Saber onde moram os animais.}
+#' \item{\code{x5}}{Saber onde moram os animais.}
#'
-#' \item{\code{3.1.6}}{Saber da importância dos animais para o homem.}
+#' \item{\code{x6}}{Saber da importância dos animais para o homem.}
#'
-#' \item{\code{3.1.7}}{Saber sobre as profissões existentes no seu
+#' \item{\code{x7}}{Saber sobre as profissões existentes no seu
#' bairro.}
#'
-#' \item{\code{3.1.8}}{Reconhecer o que é natureza e o que é construído
+#' \item{\code{x8}}{Reconhecer o que é natureza e o que é construído
#' pelo homem.}
#'
-#' \item{\code{3.1.9}}{Modelar com massinha um objeto da cozinha da
+#' \item{\code{x9}}{Modelar com massinha um objeto da cozinha da
#' creche.}
#'
-#' \item{\code{3.1.10}}{Imitar animais.}
+#' \item{\code{x10}}{Imitar animais.}
#'
#' }
#' @keywords sociometria
@@ -47,14 +47,8 @@
#' col = colorspace::rainbow_hcl(9),
#' main = paste("Níveis de Satisfação Totais da Rede Oficial\n",
#' "nos Medidores de Ação Educativa (%)"),
-#' ylim = c(0, 100))
-#'
-#' # Maria, considere esse código para inverter linha com coluna.
-#' da <- t(SliwianyQd26[, -1])
-#' colnames(da) <- paste0("x", 1:ncol(da))
-#' da <- cbind(data.frame(reg = names(SliwianyQd26[, -1])),
-#' da)
-#' rownames(da) <- NULL
-#' SliwianyQd26 <- da
+#' ylim = c(0, 60))
+#'
+#'
#'
NULL
diff --git a/R/SliwianyQd27.R b/R/SliwianyQd27.R
index 15bdcea1..e1c5ce4c 100644
--- a/R/SliwianyQd27.R
+++ b/R/SliwianyQd27.R
@@ -13,29 +13,29 @@
#'
#' \describe{
#'
-#' \item{\code{3.2.1}}{Desenhar uma história narrada.}
+#' \item{\code{x1}}{Desenhar uma história narrada.}
#'
-#' \item{\code{3.2.2}}{Relatar o desenho feito a partir da história
+#' \item{\code{x2}}{Relatar o desenho feito a partir da história
#' narrada.}
#'
-#' \item{\code{3.2.3}}{Classificar segundo a cor e forma.}
+#' \item{\code{x3}}{Classificar segundo a cor e forma.}
#'
-#' \item{\code{3.2.4}}{Possuir determinadas noções de tempo.}
+#' \item{\code{x4}}{Possuir determinadas noções de tempo.}
#'
-#' \item{\code{3.2.5}}{Saber do que se alimentam os animais.}
+#' \item{\code{x5}}{Saber do que se alimentam os animais.}
#'
-#' \item{\code{3.2.6}}{Saber da importância dos animais para o homem.}
+#' \item{\code{x6}}{Saber da importância dos animais para o homem.}
#'
-#' \item{\code{3.2.7}}{Saber sobre as profissões existentes no seu
+#' \item{\code{x7}}{Saber sobre as profissões existentes no seu
#' bairro.}
#'
-#' \item{\code{3.2.8}}{Saber dizer o que gostaria que tivesse em seu
+#' \item{\code{x8}}{Saber dizer o que gostaria que tivesse em seu
#' bairro.}
#'
-#' \item{\code{3.2.9}}{Modelar com massinha um objeto da cozinha da
+#' \item{\code{x9}}{Modelar com massinha um objeto da cozinha da
#' creche.}
#'
-#' \item{\code{3.2.10}}{Imitar animais.}
+#' \item{\code{x10}}{Imitar animais.}
#'
#' }
#' @keywords sociometria
@@ -44,8 +44,8 @@
#'
#' dados <- SliwianyQd27[, 9]
#' barplot(dados, names.arg = SliwianyQd27$Jardim.II,
-#' col = colorspace::rainbow_hcl(9),
-#' main = "Níveis de Satisfação Totais da Rede Oficial
-#' nos Medidores de Ação Educativa(%)", ylim = c(0, 100))
+#' col = colorspace::rainbow_hcl(9),
+#' main = "Níveis de Satisfação Totais da Rede Oficial
+#' nos Medidores de Ação Educativa(%)", ylim = c(0, 60))
#'
NULL
diff --git a/data-raw/SliwianyQd26.txt b/data-raw/SliwianyQd26.txt
index f8365209..e1927974 100644
--- a/data-raw/SliwianyQd26.txt
+++ b/data-raw/SliwianyQd26.txt
@@ -1,11 +1,9 @@
-Jardim I Boa Vista Boqueirao Cajuru Campo Comprido Matriz Pinheirinho Portao TOTAL
-3.1.1 23.1 34.7 26.5 37.2 40.3 37.5 29.8 33.5
-3.1.2 50 53.9 57.9 55.8 42.1 47.7 46 50
-3.1.3 56.3 70 70.8 71.9 63.4 76.9 75.6 71.7
-3.1.4 39.1 14.5 34.1 25.6 26.3 31.4 16.6 24.7
-3.1.5 31.9 41.5 33.7 49.1 57.9 38.8 31.7 38.1
-3.1.6 10.6 27 9.7 19.5 19.2 23 10.4 17.6
-3.1.7 25.3 40.1 23.8 37.8 33.2 51.4 49 42.1
-3.1.8 25.3 39.6 16.8 32.6 31.3 41.4 33.3 34.2
-3.1.9 33.4 47.8 56.1 44.8 29.7 37.3 63 48.7
-3.1.10 72.8 86.9 62.5 83.7 66.6 63.1 80.7 74.7
+Jardim I x1 x2 x3 x4 x5 x6 x7 x8 x9 x10
+Boa Vista 23.1 50 56.3 39.1 31.9 10.6 25.3 25.3 33.4 72.8
+Boqueirao 34.7 53.9 70 14.5 41.5 27 40.1 39.6 47.8 86.9
+Cajuru 26.5 57.9 70.8 34.1 33.7 9.7 23.8 16.8 56.1 62.5
+Campo Comprido 37.2 55.8 71.9 25.6 49.1 19.5 37.8 32.6 44.8 83.7
+Matriz 40.3 42.1 63.4 26.3 57.9 19.2 33.2 31.3 29.7 66.6
+Pinheirinho 37.5 47.7 76.9 31.4 38.8 23 51.4 41.4 37.3 63.1
+Portao 29.8 46 75.6 16.6 31.7 10.4 49 33.3 63 80.7
+TOTAL 33.5 50 71.7 24.7 38.1 17.6 42.1 34.2 48.7 74.7
diff --git a/data-raw/SliwianyQd27.txt b/data-raw/SliwianyQd27.txt
index 384103f6..e541c39d 100644
--- a/data-raw/SliwianyQd27.txt
+++ b/data-raw/SliwianyQd27.txt
@@ -1,11 +1,9 @@
-Jardim II Boa Vista Boqueirao Cajuru Campo Comprido Matriz Pinheirinho Portao TOTAL
-3.2.1 42.7 65.8 70.9 70.9 42.4 63.2 55.6 60.1
-3.2.2 60.4 58 52.5 68.5 54.5 54.1 44.4 53.2
-3.2.3 81 76.7 83.8 91.3 80.3 67.3 83 78.7
-3.2.4 28.3 14.9 25.6 33.1 28.4 23.2 24 24.6
-3.2.5 40.2 57.3 58 53.7 70.3 59.2 55.2 56.8
-3.2.6 18.5 29 29.9 29.4 31.6 35.7 20.6 27.8
-3.2.7 32.5 67.6 65.1 74.1 63.2 61.8 68.4 64.9
-3.2.8 26.9 20.6 35.1 39.4 38.7 29 19.4 27
-3.2.9 85.8 78.3 83.8 74.4 73.4 64.2 82.7 77
-3.2.10 85.4 81 86.6 96.5 85.5 69.7 84.3 81
+Jardim II x1 x2 x3 x4 x5 x6 x7 x8 x9 x10
+Boa Vista 42.7 60.4 81 28.3 40.2 18.5 32.5 26.9 85.8 85.4
+Boqueirao 65.8 58 76.7 14.9 57.3 29 67.6 20.6 78.3 81
+Cajuru 70.9 52.5 83.8 25.6 58 29.9 65.1 35.1 83.8 86.6
+Campo Comprido 70.9 68.5 91.3 33.1 53.7 29.4 74.1 39.4 74.4 96.5
+Matriz 42.4 54.5 80.3 28.4 70.3 31.6 63.2 38.7 73.4 85.5
+Pinheirinho 63.2 54.1 67.3 23.2 59.2 35.7 61.8 29 64.2 69.7
+Portao 55.6 44.4 83 24 55.2 20.6 68.4 19.4 82.7 84.3
+TOTAL 60.1 53.2 78.7 24.6 56.8 27.8 64.9 27 77 81
diff --git a/data/SliwianyQd26.rda b/data/SliwianyQd26.rda
index 2eaad550ac949d29b0c1e5c9f86f8114e6b592c6..b82fd76d0304414a8bd070fdd830420497f7fae9 100644
GIT binary patch
literal 568
zcmb2|=3oE=w%Cx<d6ykT=HBwnlv7X%yBqpwW0OW_=H)G`j5Y>O5?OpC)8TE=6_rDw
zLgL34wu;Ih;Ge>uaI{a<+K$1lK|bMVA8(FST2Vi{rE>54-*<}BbIM;IUwWpn%`na2
za!g{I=G9PVyRaKt-rh5<rGAR<o3ZEPucf)i&RAcXKK0YGDX+V2LbYXA1-zSbC%fqW
zf(oYWT$2i03E!n<)q<+|xA=}c<F1$L{NES8xlz7LVO{Z&n>uq2?t0qsv2w#pmdBqj
zynj6>U5V@O_6?h4>pulKomlSof+cZ@V({Lw_0RM^de7}UVzO+xC;!n*k(Qv{VP{1P
z<L>R4^qP77+zEGTk6(H8P4wnhcIT}-{!ab#`~H<*=PYkZEq7(J|C77&XzYpQ_ACD>
zxR>_Ix7>E9>sBp{`SSU|;om+M_u^M&AGTXH;V$dG@7ay(3+H^l@?P-Ql?(fuc9z9%
zTJ5|_|G<9dA5zP?{#ZSG{@^}Koy~IQIa)s~cdE?)E%x*Kf#-UkbkAfe#<~5GJGawg
zkBJ}ap4T&$_t;3=SU$^WbQk`??p>24!~V7PN8ID$&fg5}^(udExlQ7C-_!U{ufq0V
z&F_xeEApHDKdW?JKKkeU{s;3cpMHH2SE;`4_|ETglit)FiaB|`Ug=o#kFVzs?X1%{
zw9o$B_5|tau4|`mNy~h@@!Ga6+tzN~bggVlSYuk8826DAbM$MQXYT88sgv-k^PY1#
gv0!3<<?8xL3;VL{=Knv)Uj3JU@d+{e$1DsC0CN>5MgRZ+
literal 571
zcmb2|=3oE=w%Cxfd6yjo?j7^ZbXuuZ_-f`f;RsJ2-^;6BsqvX;y8X;_c)BA?C~?Y>
zqlHliSMpyF*Wf?UDXpGo<50;E*C1@JqN2x}e17}7$rG<_zW?Tox&5uu-BmFs<kDLO
zG!rGbl~OO18M@AA-Kb%-B)pI9-Okl+@=<pWO%pg)yJ_Ox9qv}rKLt6OGnQuRUfkuJ
zJ@YS1@%bV>-m3Jy2WOOJPh^k2JZ+}==Ub{wJD&t9a;{OSn8e~gIYFDV%X7nAmZdwH
zE~_(}Ui*49^!ruM2S2y$Ubs~%Ot1TOxXS#LSQn+a?SBK7)K>a_a(?$eX-}rBk~iP&
zt<&Of-h1|W#`ZsLmHhudRK9NdDX;AR)%ta8Z}^P!`_gI~_N?FMYGe4GuR`W*_n*`w
zr{~Z4?l}K(_k+`p)*rGx7!&WE5<R}x;odd-W2!f@XSBEe5&hwL=Aq@M(mHpGXKRz@
zoiB;Ivb)*hZhPxbuP3*U|CIYPd%p6#+f|19nZHzrILW-)Q2KvHzN}5?3$D*6k3G%V
zTV3_9BYW}rIqSGTN`F|LC>QjZv0U!#C$B53-$!;oSJ{3rJ=w1E$;HoFkL#`#%)b?X
zz`FXbd)AH1*KL^}e_Hry_qz*gnA5f98O85@>~L4=o`2Q4^)`PUa=zw0@^1*sHMRNb
zb6a}euRQZ_l`EO<|K%vz{<80$5NmC6`?BZkhN-(QznCJccYVe=+Y>qAtf$`m4*3(~
iEP3DByfpaXd@a#)rB-wQ9eus`CqIA6MU$T_3=9Cuq#;89
diff --git a/data/SliwianyQd27.rda b/data/SliwianyQd27.rda
index 2de3578f770610fe87bc61302ed43a3e460eb8ac..fd2e7e552f20e1377378c59af64d800067b1d77a 100644
GIT binary patch
literal 569
zcmb2|=3oE=w%CxpMVB1}_IVT@C`*{(IrSVrgIp4O&g6<BH_x;r>%N@Rl9vmGZ#PTa
z<l5xJBq}N@8(P7jWu;{$rw|gdhe6-LS+w|4U3t$I<4gbUyj%YM+qWyX<);-LmPtO7
zux#fcp5R%l+iKQs2%R>yYVZ4<;_GJYec9(Fdh86Z<Z16(_gA+I<3hBV0~gj9eTtlX
zUN_1=VQuB(>&f|gYpXwMxo-Ba4YVkIzVL^9#a4;kjUPhis>bOxvF_PDZN|Lctf%MC
zV}IxIT&CNg;Qpc0x8J>KZJCfiH{rMA3Ps~{otHC~|42P&V;KI$<YlJ?_g{x7^NYuo
zAN_f7bLtfTJM*S1KfIg&M7uU%*^iT=Ki9tYsQYlPYK^HMd*yK*v3pOJ>}I{B`$Kot
z<MtEzLhFtdPPo3`zw(^?DeJ$Uw{9xrYX7(Xv|r`tn{6xqG5)xAV1B(qeYp_#`UZE=
zJ*zeCe$NiM{?F%URsH@8%lmI^f5l%i`-7?9OWCVe1LObuR+N6Y;T+4n<MxO0b(4QT
zdePro^?O3ed)v%XKiM_q2k);_{r;8Z^($-MFGqiQ{oZIG-jy$DQ$9oJkYqyMuNTc$
z>*Wfnv-TCd<C`n|{<8?*rz=1CFT7WLmi|HJ^OL~848;#L<~;dv{z%E1WA^Lyl7m^4
z%cE?poDS@`b1BR-IyE;p`}M?aa@ngFtzES(Yr~n-YujB;#w^oI%u{g+oWn9Hp{vB~
ggML?6#g|~CMKdGyrq@f}y)nC9n)~j9CoBvM04hr&aR2}S
literal 576
zcmb2|=3oE=w$zZbd6yjo?j7@0To~eETlkuJi<m{L$`(QCJ7HP>vee5&^VZCAF)ezu
zsc^-EE5hn|wo}<39O)G{ms>E$;v-Wnqe>rd^7%Cz4|~1-c&6s_+3ojY%fJ6}+ZdnH
z^K`~C-HmhD)}OYl(Ak(8#<2U==e@=LKKE`iFFrG48=qlE_V<Hg$ubs!f@f^bh|VZa
zxaTV4{7&b2mwk=(m*pS6DYzw=#9!k5yRqrWxy2=?Jgk>)**v#w-jcb?GndaP)5=`F
zOTnQ2QTNJA(^trKPBxhEp^Up&H|X5=__%{Vj#w|PC}`iD@!{?@(;oSn_lnPYxqFIF
z+3%KgZQdQcrg)<I!>t<k(mLMfD&4<kdh1&Hn)QMAl=i*Vesg{InHQcFZ}Vs5PvCoQ
z{%BRm@?Tdw&RaP||L>?3y?6BA|Btt%BkKPM7tVPlwcj9KS~31RbJS<;N4u`<-#_u{
zZvXpRSAJQyc)z!e+1k&RSLG*~X2$PIxf>oC*P6X<kzMzfX)EJre=5CncW2~}dm-t+
zH~Lo0-eS-G%BIG>ruEgVBdfoiT=qF|(N~N34fl?gs_l_|bv@v>_YSU~x~uLl{1+zr
z*!tC<74MgybN;r&|47A(zUs!N*0u@E`D^6mRvqYecyaumiO7GZ{4{6(E{D4U!F%SN
zl&s8NCNZCNmt@cRCFULmxq@ErZ7aX)<QH*?eDGliQ#jmW^j^mDtJtfn&$!JuSqLn=
p;4XAUf6WSo=Hl43TE9Y{F5<SBfByf4uY3P;-wN5H^NWRn0RZ!uDKP*5
diff --git a/man/SliwianyQd26.Rd b/man/SliwianyQd26.Rd
index 9b8b6cdf..bcfcad15 100644
--- a/man/SliwianyQd26.Rd
+++ b/man/SliwianyQd26.Rd
@@ -4,31 +4,31 @@
\alias{SliwianyQd26}
\title{Níveis de Satisfação Alcançados nos Medidores dos Subgrupos da
Ação Educativa}
-\format{Um \code{data.frame} com 10 linhas e 9 colunase, em que
+\format{Um \code{data.frame} com 8 linhas e 11 colunase, em que
\describe{
-\item{\code{3.1.1}}{Expressar-se através de desenhos.}
+\item{\code{x1}}{Expressar-se através de desenhos.}
-\item{\code{3.1.2}}{Diferenciar o desenho da escrita.}
+\item{\code{x2}}{Diferenciar o desenho da escrita.}
-\item{\code{3.1.3}}{Classificar segundo a cor.}
+\item{\code{x3}}{Classificar segundo a cor.}
-\item{\code{3.1.4}}{Possuir determinadas noções de tempo.}
+\item{\code{x4}}{Possuir determinadas noções de tempo.}
-\item{\code{3.1.5}}{Saber onde moram os animais.}
+\item{\code{x5}}{Saber onde moram os animais.}
-\item{\code{3.1.6}}{Saber da importância dos animais para o homem.}
+\item{\code{x6}}{Saber da importância dos animais para o homem.}
-\item{\code{3.1.7}}{Saber sobre as profissões existentes no seu
+\item{\code{x7}}{Saber sobre as profissões existentes no seu
bairro.}
-\item{\code{3.1.8}}{Reconhecer o que é natureza e o que é construído
+\item{\code{x8}}{Reconhecer o que é natureza e o que é construído
pelo homem.}
-\item{\code{3.1.9}}{Modelar com massinha um objeto da cozinha da
+\item{\code{x9}}{Modelar com massinha um objeto da cozinha da
creche.}
-\item{\code{3.1.10}}{Imitar animais.}
+\item{\code{x10}}{Imitar animais.}
}}
\source{
@@ -48,15 +48,9 @@ barplot(dados, names.arg = SliwianyQd26$Jardim.I,
col = colorspace::rainbow_hcl(9),
main = paste("Níveis de Satisfação Totais da Rede Oficial\\n",
"nos Medidores de Ação Educativa (\%)"),
- ylim = c(0, 100))
-
-# Maria, considere esse código para inverter linha com coluna.
-da <- t(SliwianyQd26[, -1])
-colnames(da) <- paste0("x", 1:ncol(da))
-da <- cbind(data.frame(reg = names(SliwianyQd26[, -1])),
- da)
-rownames(da) <- NULL
-SliwianyQd26 <- da
+ ylim = c(0, 60))
+
+
}
\keyword{sociometria}
diff --git a/man/SliwianyQd27.Rd b/man/SliwianyQd27.Rd
index beb0371c..4d347f35 100644
--- a/man/SliwianyQd27.Rd
+++ b/man/SliwianyQd27.Rd
@@ -8,29 +8,29 @@
\describe{
-\item{\code{3.2.1}}{Desenhar uma história narrada.}
+\item{\code{x1}}{Desenhar uma história narrada.}
-\item{\code{3.2.2}}{Relatar o desenho feito a partir da história
+\item{\code{x2}}{Relatar o desenho feito a partir da história
narrada.}
-\item{\code{3.2.3}}{Classificar segundo a cor e forma.}
+\item{\code{x3}}{Classificar segundo a cor e forma.}
-\item{\code{3.2.4}}{Possuir determinadas noções de tempo.}
+\item{\code{x4}}{Possuir determinadas noções de tempo.}
-\item{\code{3.2.5}}{Saber do que se alimentam os animais.}
+\item{\code{x5}}{Saber do que se alimentam os animais.}
-\item{\code{3.2.6}}{Saber da importância dos animais para o homem.}
+\item{\code{x6}}{Saber da importância dos animais para o homem.}
-\item{\code{3.2.7}}{Saber sobre as profissões existentes no seu
+\item{\code{x7}}{Saber sobre as profissões existentes no seu
bairro.}
-\item{\code{3.2.8}}{Saber dizer o que gostaria que tivesse em seu
+\item{\code{x8}}{Saber dizer o que gostaria que tivesse em seu
bairro.}
-\item{\code{3.2.9}}{Modelar com massinha um objeto da cozinha da
+\item{\code{x9}}{Modelar com massinha um objeto da cozinha da
creche.}
-\item{\code{3.2.10}}{Imitar animais.}
+\item{\code{x10}}{Imitar animais.}
}}
\source{
@@ -44,9 +44,9 @@ Níveis de satisfação alcançados por crianças do Jardim
dados <- SliwianyQd27[, 9]
barplot(dados, names.arg = SliwianyQd27$Jardim.II,
-col = colorspace::rainbow_hcl(9),
-main = "Níveis de Satisfação Totais da Rede Oficial
-nos Medidores de Ação Educativa(\%)", ylim = c(0, 100))
+ col = colorspace::rainbow_hcl(9),
+ main = "Níveis de Satisfação Totais da Rede Oficial
+ nos Medidores de Ação Educativa(\%)", ylim = c(0, 60))
}
\keyword{sociometria}
--
GitLab