From 7768c68f9ebfd774c21a6fae9820620b184297b9 Mon Sep 17 00:00:00 2001
From: Eduardo Junior <edujrrib@gmail.com>
Date: Thu, 21 Apr 2016 11:37:10 -0300
Subject: [PATCH 01/15] Corrige nome do pacote 'multcomp'

---
 DESCRIPTION | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/DESCRIPTION b/DESCRIPTION
index 64f998a..4092c83 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -43,6 +43,6 @@ Suggests:
     reshape2,
     MASS,
     qcc,
-    multicomp
+    multcomp
 VignetteBuilder: knitr
 RoxygenNote: 5.0.1
-- 
GitLab


From 8d818c1dc958a4d281046365dbf9bf5e2132e4cf Mon Sep 17 00:00:00 2001
From: Eduardo Junior <edujrrib@gmail.com>
Date: Thu, 21 Apr 2016 11:37:57 -0300
Subject: [PATCH 02/15] Adiciona dataset PaulaTb4.2

---
 R/PaulaTb4.2.R          |  44 ++++++++++++++++++++++++++++++++++
 data-raw/PaulaTb4.2.txt |  17 +++++++++++++
 data/PaulaTb4.2.rda     | Bin 0 -> 383 bytes
 man/PaulaTb4.2.Rd       |  52 ++++++++++++++++++++++++++++++++++++++++
 4 files changed, 113 insertions(+)
 create mode 100644 R/PaulaTb4.2.R
 create mode 100644 data-raw/PaulaTb4.2.txt
 create mode 100644 data/PaulaTb4.2.rda
 create mode 100644 man/PaulaTb4.2.Rd

diff --git a/R/PaulaTb4.2.R b/R/PaulaTb4.2.R
new file mode 100644
index 0000000..0ad4a9c
--- /dev/null
+++ b/R/PaulaTb4.2.R
@@ -0,0 +1,44 @@
+#' @name PaulaTb4.2
+#' @title Mortes por Câncer de Pulmão sob Efeito do Consumo de Cigarro
+#' @description Dados provenientes de um estudo de acompanhamento de
+#'     doutores Britânicos durante a década de 50. Neste estudo
+#'     observou-se a ocorrência de mortes por câncer de pulmão segundo o
+#'     consumo médio diário de cigarro e a faixa-etária.
+#' @format Um \code{data.frame} com 16 observações e 4 variáveis.
+#'     \describe{
+#' 
+#' \item{\code{nmortes}}{Número de casos de morte por câncer de
+#'     pulmão.}
+#' 
+#' \item{\code{tpessoas}}{Total de pessoas por ano de observação.}
+#' 
+#' \item{\code{cmdc}}{Consumo médio diário de cigarros, dividos em
+#'     quatro níveis 0, 1-9, 10-30 ou +30 cigarros consumidos.}
+#' 
+#' \item{\code{idade}}{Idade, mensurada em faixas-etária de 40- 49,
+#'     50-59, 60-79 e 70-80 anos.}
+#' 
+#' }
+#' @keywords contagem
+#' @source Paula, G. A. (2004). Modelos de regressão: com apoio
+#'     computacional. São Paulo, SP: IME-USP. (Tabela 4.2 pág. 294)
+#' @examples
+#'
+#' data(PaulaTb4.2)
+#' 
+#' str(PaulaTb4.2)
+#' 
+#' xtabs(nmortes ~ cmdc + idade, data = PaulaTb4.2)
+#' xt <- xtabs((nmortes/tpessoas)*100 ~ cmdc + idade, data = PaulaTb4.2)
+#' plot(xt)
+#' 
+#' library(lattice)
+#' xyplot((nmortes/tpessoas)*100 ~ cmdc,
+#'        xlab = "Consumo médio de cigarros",
+#'        ylab = "Percentual de mortes por câncer de pulmão",
+#'        groups = idade,
+#'        data = PaulaTb4.2,
+#'        type = c("b", "g"),
+#'        auto.key = list(corner = c(0.1, 0.9), cex.title = 1,
+#'                        title = "Faixa-etária"))
+NULL
diff --git a/data-raw/PaulaTb4.2.txt b/data-raw/PaulaTb4.2.txt
new file mode 100644
index 0000000..dce546d
--- /dev/null
+++ b/data-raw/PaulaTb4.2.txt
@@ -0,0 +1,17 @@
+nmortes	tpessoas	cmdc	idade
+0	33679	0	40-49
+3	21131.5	0	50-59
+0	10599	0	60-69
+3	4495.5	0	70-80
+0	6002.5	1-9	40-49
+1	4396	1-9	50-59
+3	2813.5	1-9	60-69
+3	1664.5	1-9	70-80
+7	34414.5	10-30	40-49
+29	25429	10-30	50-59
+41	13271	10-30	60-69
+45	4765.5	10-30	70-80
+3	5881	+30	40-49
+16	6493.5	+30	50-59
+36	3466.5	+30	60-69
+11	769	+30	70-80
diff --git a/data/PaulaTb4.2.rda b/data/PaulaTb4.2.rda
new file mode 100644
index 0000000000000000000000000000000000000000..8431dbf877954f68ccb9ea81260690197008eb8b
GIT binary patch
literal 383
zcmV-_0f7EOT4*^jL0KkKS$(L`fdBzd|NsB{N&*Bgf8ay_R6;)||A0V1fD#f2IiLh0
zMnFIaKq;^RI3P7Lf=8xJCP$$S8UrH)(>+A=K=KVwQG-$HZ&2eVO&SA6n2e1KLjq{i
z5MneKKmme92@@uoGH4ipXaE2PKmY(V(%8POKYG_|-J^bD)TAO93DZ-E4LY+TX(kwW
zk)TQn4cVL%$b|zP!isVP+AG_eB9e{aw?4&+Hgai*-?(1NkO5hwqoD#L1!`4qr3qe&
zK#b-kJ)sj!RM?AE_*h0zQ<6kM4G9&PmwZtG8e~|;f`dv8B#1OF<|J@DCKC)3^MXIa
zoPloZ@m@)BGR^!6a++u+&PEJ~h=?@PU+yA^K@c6sj_+f}{E<Tdg3e)`h2VtgSe!FE
zonmG)4#eJp)ZBNMz-^+8$)1<n4m^4(3V#P9yfh8cSj?K9Az6M1+1jmo@@jmf+-MS#
d1KW*7ET$EuN=P2!djW0Y?ntK!5)ZW+5FlFtn@<1$

literal 0
HcmV?d00001

diff --git a/man/PaulaTb4.2.Rd b/man/PaulaTb4.2.Rd
new file mode 100644
index 0000000..a2d558d
--- /dev/null
+++ b/man/PaulaTb4.2.Rd
@@ -0,0 +1,52 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/PaulaTb4.2.R
+\name{PaulaTb4.2}
+\alias{PaulaTb4.2}
+\title{Mortes por Câncer de Pulmão sob Efeito do Consumo de Cigarro}
+\format{Um \code{data.frame} com 16 observações e 4 variáveis.
+    \describe{
+
+\item{\code{nmortes}}{Número de casos de morte por câncer de
+    pulmão.}
+
+\item{\code{tpessoas}}{Total de pessoas por ano de observação.}
+
+\item{\code{cmdc}}{Consumo médio diário de cigarros, dividos em
+    quatro níveis 0, 1-9, 10-30 ou +30 cigarros consumidos.}
+
+\item{\code{idade}}{Idade, mensurada em faixas-etária de 40- 49,
+    50-59, 60-79 e 70-80 anos.}
+
+}}
+\source{
+Paula, G. A. (2004). Modelos de regressão: com apoio
+    computacional. São Paulo, SP: IME-USP. (Tabela 4.2 pág. 294)
+}
+\description{
+Dados provenientes de um estudo de acompanhamento de
+    doutores Britânicos durante a década de 50. Neste estudo
+    observou-se a ocorrência de mortes por câncer de pulmão segundo o
+    consumo médio diário de cigarro e a faixa-etária.
+}
+\examples{
+
+data(PaulaTb4.2)
+
+str(PaulaTb4.2)
+
+xtabs(nmortes ~ cmdc + idade, data = PaulaTb4.2)
+xt <- xtabs((nmortes/tpessoas)*100 ~ cmdc + idade, data = PaulaTb4.2)
+plot(xt)
+
+library(lattice)
+xyplot((nmortes/tpessoas)*100 ~ cmdc,
+       xlab = "Consumo médio de cigarros",
+       ylab = "Percentual de mortes por câncer de pulmão",
+       groups = idade,
+       data = PaulaTb4.2,
+       type = c("b", "g"),
+       auto.key = list(corner = c(0.1, 0.9), cex.title = 1,
+                       title = "Faixa-etária"))
+}
+\keyword{contagem}
+
-- 
GitLab


From 05f2e32d4d7903edccca75e193ad1d95b04d2861 Mon Sep 17 00:00:00 2001
From: Eduardo Junior <edujrrib@gmail.com>
Date: Thu, 21 Apr 2016 12:11:49 -0300
Subject: [PATCH 03/15] Adiciona dataset PaulaEg4.2.6

---
 R/PaulaEg4.2.6.R          |  41 ++++++++++++++
 data-raw/PaulaEg4.2.6.txt | 111 ++++++++++++++++++++++++++++++++++++++
 data/PaulaEg4.2.6.rda     | Bin 0 -> 1828 bytes
 man/PaulaEg4.2.6.Rd       |  50 +++++++++++++++++
 4 files changed, 202 insertions(+)
 create mode 100644 R/PaulaEg4.2.6.R
 create mode 100644 data-raw/PaulaEg4.2.6.txt
 create mode 100644 data/PaulaEg4.2.6.rda
 create mode 100644 man/PaulaEg4.2.6.Rd

diff --git a/R/PaulaEg4.2.6.R b/R/PaulaEg4.2.6.R
new file mode 100644
index 0000000..f4b5266
--- /dev/null
+++ b/R/PaulaEg4.2.6.R
@@ -0,0 +1,41 @@
+#' @name PaulaEg4.2.6
+#' @title Perfis de Clientes de uma Loja nas Áreas de uma Cidade
+#' @description Dados apresentados em Neter et al. (1996) sobre um
+#'     estudo do perfil dos clientes em determinada loja oriundos de 110
+#'     áreas de uma cidade. O interesse do estudo é relacionar o número
+#'     esperado de clientes em cada área com as demais cinco variáveis
+#'     explicativas mensuradas.
+#' @format Um \code{data.frame} com 110 observações e 6 variáveis.
+#'     \describe{
+#' 
+#' \item{\code{nclien}}{Número de clientes da loja na área.}
+#' 
+#' \item{\code{ndomic}}{Número de domicílios na área (em mil).}
+#' 
+#' \item{\code{renda}}{Renda média anual da área (em mil USD).}
+#' 
+#' \item{\code{idade}}{Idade média dos domicílios (em anos).}
+#' 
+#' \item{\code{distac}}{Distância entre a área e o concorrente mais
+#'     próximo (em milhas).}
+#' 
+#' \item{\code{distal}}{Distância entre a área e a loja (em milhas).}
+#'
+#' }
+#' @keywords contagem
+#' @source Paula, G. A. (2004). Modelos de regressão: com apoio
+#' computacional. São Paulo, SP: IME-USP. (0.0 pág. 000)
+#'
+#' @references Neter, J., Kutner, M. H., Nachtsheim, C. J., Wasserman,
+#'     W. (1996). Applie Linear Regression Models (3tr ed.). Irwin,
+#'     Illinois.
+#' @examples
+#'
+#' data(PaulaEg4.2.6)
+#' 
+#' str(PaulaEg4.2.6)
+#' 
+#' library(lattice)
+#' splom(PaulaEg4.2.6, type = c("p", "smooth"), lwd = 2)
+#'
+NULL
diff --git a/data-raw/PaulaEg4.2.6.txt b/data-raw/PaulaEg4.2.6.txt
new file mode 100644
index 0000000..e3f3f05
--- /dev/null
+++ b/data-raw/PaulaEg4.2.6.txt
@@ -0,0 +1,111 @@
+nclien	ndomic	renda	idade	distac	distal
+9	606	41393	3	3.04	6.32
+6	641	23635	18	1.95	8.89
+28	505	55475	27	6.54	2.05
+11	866	64646	31	1.67	5.81
+4	599	31972	7	0.72	8.11
+4	520	41755	23	2.24	6.81
+0	354	46014	26	0.77	9.27
+14	483	34626	1	3.51	7.92
+16	1034	85207	13	4.23	4.4
+13	456	33021	32	3.07	6.03
+9	19	39198	22	2.96	6.09
+14	530	38794	5	2.77	6.08
+5	337	30855	1	1.33	9.86
+9	586	28852	7	2.98	8.64
+9	1113	120065	9	3.58	5.26
+7	525	32229	3	1.27	7.56
+4	377	36828	15	1.92	8.91
+26	1127	90302	26	5.83	1.74
+32	877	51707	27	5.19	3.66
+26	1007	89860	55	5.03	2.03
+11	657	60513	32	4.38	8.3
+12	302	42191	54	3.41	5.21
+3	603	28736	41	0.34	8.29
+15	556	49129	33	4.78	3.89
+12	635	29308	42	2.53	6.17
+9	386	26734	14	4.99	9.7
+14	1011	57862	54	4.6	3.94
+10	925	70030	36	4.58	8.66
+22	898	46027	44	3.03	5.6
+8	731	32202	43	5.15	9.67
+3	584	32871	13	1.47	8.02
+11	439	29564	18	3.67	5.1
+2	153	46806	21	0.84	9.18
+6	1069	59805	22	2.5	9.43
+11	443	42555	53	2.62	5.75
+10	392	36998	7	1.03	7.74
+0	828	85664	4	1.3	9.66
+15	159	21238	4	2.98	8.66
+9	830	47972	40	2.28	9.26
+16	234	33246	26	3.95	4.61
+29	1004	45927	24	4.9	2.69
+6	643	58315	8	0.78	6.26
+26	741	69177	9	6.61	0.87
+13	306	40886	27	4.53	2.68
+0	180	44588	14	0.88	9.38
+8	644	47347	35	2.94	7.69
+8	109	31791	9	4.37	9.31
+21	809	42740	17	4.1	4.75
+12	722	59175	35	2.38	5.09
+26	1006	48862	48	5.04	2.21
+3	786	54678	20	3.59	8.52
+7	1041	59835	40	1.68	7.59
+5	524	51756	39	0.57	9.1
+9	725	34817	18	1.88	7.96
+13	482	29942	14	3.17	6.91
+28	666	68684	25	5.78	2.55
+10	450	64790	3	4.35	6.03
+12	667	58535	25	2.78	5.59
+6	921	42919	13	2.48	7.69
+11	412	40722	32	2.47	9.43
+12	526	42120	30	4.29	6.15
+11	523	28647	43	2.69	7.54
+9	1066	61464	40	1.15	8.25
+8	1001	70136	29	2.58	9.67
+9	669	34595	38	4.06	8.78
+8	582	30878	58	1.91	6.86
+6	872	39366	52	0.73	8.67
+6	758	61563	31	3.08	8.33
+15	782	38412	26	2.72	6.71
+15	551	41045	2	3.62	7.45
+12	201	23864	43	4.8	8.74
+10	730	38647	9	0.67	7.92
+8	738	58387	13	2.01	6.6
+3	469	37242	40	1.42	8.37
+10	898	38337	32	2.63	9.56
+10	780	68201	5	4.12	6.69
+15	622	41066	46	4.48	4.1
+6	391	40873	19	1.67	6.9
+9	531	54655	40	2.32	5.69
+21	566	49826	1	3.06	4.03
+13	410	29013	50	2.68	7.58
+8	719	78082	31	2.7	4.89
+6	684	57506	51	2.13	8.31
+8	865	47118	46	2.17	9.06
+21	1031	72373	48	6.27	1.75
+7	862	67787	1	2.1	8.63
+19	758	40305	15	3.95	5.58
+13	1141	50026	45	2.79	6.18
+24	1289	98701	8	5.87	2.73
+7	674	58195	54	4.3	6.4
+3	683	47991	57	1.54	9.52
+8	650	63123	15	3.17	9.46
+9	406	39051	29	3.11	9.62
+18	966	114633	38	6.33	2.22
+12	1103	55773	44	4.58	8.68
+8	312	43393	41	2.25	6.43
+16	787	61765	53	5.39	3.37
+5	416	33348	48	1.48	7.66
+8	528	44541	31	4.91	9.67
+11	919	40795	8	2.97	7.79
+12	482	55972	9	2.91	5.85
+14	781	33140	30	1.42	5.71
+17	120	19673	21	2.65	6.25
+17	693	36190	6	4.7	9.54
+6	348	25768	42	1.43	7.11
+15	780	53974	47	4.21	6.41
+10	752	71814	1	3.13	5.47
+6	817	54429	47	1.9	9.9
+4	268	34022	54	1.2	9.51
+6	519	52850	43	2.92	8.62
diff --git a/data/PaulaEg4.2.6.rda b/data/PaulaEg4.2.6.rda
new file mode 100644
index 0000000000000000000000000000000000000000..f2b7645902d6c4c20c26a8974de4ea1422114a5e
GIT binary patch
literal 1828
zcmV+<2iy2UT4*^jL0KkKS?lx#nE(YB|NsC0|Ns5}|Nqz3`tSeu{{H{l|Ns5(FUz_A
zxBq|r|Nqbhb4(8a3x@4yLV^+`^%`Y71wBlUQ!qqiZ9{3O(duaRHcdkzpfu11fHEGV
zKs0)p0qPB?H1!^#p_+{zqsjs08f`|68z>nW7-}@r)Y^g~CJhrNsrfLC3VA1q7}VJz
z>S*;nKmZLi00006KmY&$000000000000T_|DtH1+%3vupGy$MA02%-Q00001paGx&
z000000000000000KmY&+fB<L%Kmnit27mwn0077U&@^ZOGz<s;$)ErL2AMP&27m;K
zA|?pZ86mMXJx@`Iqr_@7(?Os#X_G)SX^1ia20#XYG-v=a0Mj5E3_+kWXaF?O4F)Ha
z$r!nfe;?Hic$1Q3&mtzqqX!^Z2@=<O46}w*@hXY!47Q;>d}L&R6;K>mSI*!mRwOkF
z0EsN6p_?67roS1;8wpg`l*@#4`0$eKjnfd=fl4viNqT;Ql**uqrj;`!2oXt4;U(Re
zJiQEaj0s``tfkbEyexwYlvLFgU~MTlQ9)X91*P+-B_s$jJhTEO1w`m$I7VbQKJnsC
z&WLg6Aqnit`J_a1Ys<i!BoCclDJ7jUjhfkRqD+|jRM`{tiYn=GY*cBJDqgZtB07vP
z1aK3&%2jJN(OAxag!d-eh|=eHG!+cqawIDzXy`gDzJA9WZaP7p*s5W(b6SS1&8czV
zJy<ly@+puoj@*7c4({-;{`wmaYjrtP5FC7ZW}72OAO>sDm-{8=F{69lzkg-rh}WGg
zx|QYg%{)Jn85E!{YFrmtb((9J_wwu1n-H!bhyZ}sF@WM<wqT5;(>#3Ix>(%y(Nnla
zLbtK6=`4wBKXI*bpnFM_YW_kkl2Yu=J#j$yNqV~>Bf&Xz>J{Bpk}Pt>^KTm1dLNs_
zZz0;u!9;eErDUJ2fAzde$~1Mi)Gci7pGJraYl4(6?0C=B8J{4&lPDtoiUs5l2qYSk
z3e&U+T(CjL<etMm@RxHc0!ds0V8Nz<Me`6Lv^Io+v;msv;8JJ?#Ak#u7&rSNq8p$P
zc&zrADYZKm$v9(z6gY^6+d`8NS+Nk(Lv5k4e5?@+Y-2>6XIv&WhK1NTO$5xRB%moY
z6G;|MNea>w8wM&l)Gc<7!t#|*L)_I@rX$818bZ`q)UOFy!~rUkJ?eR<gv6$vM2Rs<
zHgnA;l;F`kB?}1%osK~?{jBLk!*g;o3QXCFjS*?6<t*n&C@KhPu2uyN4DKK+Fp$z<
zH4KHafPu8xbqM<eX7&8v!L7*}%KgnDT{MECtPTM+2w*lOGpT@38-?5>ze^pi)A=>^
zofQz^7}`jrT|f|Bu~zEtWiu{4{AT}`oX<5@j644_SrG-*uU&D2y3x$BT2qR@PDWW`
zT%mR#IVs6$c~jVTs}8HCIv^E9000BeFV0R|%sRyzn9<D}<27`&{5IB;t)5lu<p_c3
z$G8h|52R_dNm$JbkC+Y*q1FM-Rzm(mL<oiXS2INbF)*?+6}60~TH!ih98n~NiJ?MB
zpmJFQLP}`VvpA6u=ZwrlM>(JYK>>(k96~G%EN~U#sn?oq$j+!l$Py(w+E8dnNL(1(
z8CLMvH{Eh1#U<HNR8*+Ll+(#XZ^l|v)v)<IR+??TN|h9iFQ2Wzr^ZkPMWpi<SjW6d
zE<n;glJhQ9yuGo$$I33=hzLLws_rB0D(nylIo%6JUFcgF3Je-5OV~X*HXE{{AqWA0
zU1K7k9M-#Mw-CkSt$|DFN_8_<r00ZLgHgb)?wdl$7)cT&08H6`w6Ua6B^>MISagPU
z^E-FsZD;UW3eBDd^B@F8(7nZkafc@&P%fO~p{EXk#Ddy+SejP<hGtY!0>e!SNBN7N
zAvJ%++T%&Ia-5aiuQw@`?!OoZ?#&KT`u6vJpoMov1#@RuI{ft+55S7=7DP-u0T_f8
zY?vC|7y=*{EU!-3odUGQ9<)38RTzc<iyj(y`6_b+d4v%WHW80QpSPA0;tO^+q7c|3
zrPaN;O8*UQnx|gHA-7v?s-EK7tdU{-LZxf}OF)Ip+1pzC7#rRjHAw(#+6sZ{cTtqX
za`M8DXpw!P$GyiBI@`1qShlzl3iUFzrl#<sFm0YRvBTeID5F-;*o8`-?FJt=wUqB~
z8U(Qyyv3#E{yy@Ra+*S_!8$kj3KK;p0TC={<V0wx%)d-<K(%wHiYy3d3JeF<j@*b0
zl3Dr^-6v4BN{V6;WmVa?)7>8z6|14}q+_-?{nLw`AggRxTSOXGO^ToS&BX0oZt_yu
z2&b62wZWYLP^922Bvy%-<=RJx*4ZqsUniF8vNQ$mu?n%I>|`q{t5VBHYS*^O^jI)S
Su+9<xi@744C`fhs0?dHj!!yMI

literal 0
HcmV?d00001

diff --git a/man/PaulaEg4.2.6.Rd b/man/PaulaEg4.2.6.Rd
new file mode 100644
index 0000000..e264768
--- /dev/null
+++ b/man/PaulaEg4.2.6.Rd
@@ -0,0 +1,50 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/PaulaEg4.2.6.R
+\name{PaulaEg4.2.6}
+\alias{PaulaEg4.2.6}
+\title{Perfis de Clientes de uma Loja nas Áreas de uma Cidade}
+\format{Um \code{data.frame} com 110 observações e 6 variáveis.
+    \describe{
+
+\item{\code{nclien}}{Número de clientes da loja na área.}
+
+\item{\code{ndomic}}{Número de domicílios na área (em mil).}
+
+\item{\code{renda}}{Renda média anual da área (em mil USD).}
+
+\item{\code{idade}}{Idade média dos domicílios (em anos).}
+
+\item{\code{distac}}{Distância entre a área e o concorrente mais
+    próximo (em milhas).}
+
+\item{\code{distal}}{Distância entre a área e a loja (em milhas).}
+
+}}
+\source{
+Paula, G. A. (2004). Modelos de regressão: com apoio
+computacional. São Paulo, SP: IME-USP. (0.0 pág. 000)
+}
+\description{
+Dados apresentados em Neter et al. (1996) sobre um
+    estudo do perfil dos clientes em determinada loja oriundos de 110
+    áreas de uma cidade. O interesse do estudo é relacionar o número
+    esperado de clientes em cada área com as demais cinco variáveis
+    explicativas mensuradas.
+}
+\examples{
+
+data(PaulaEg4.2.6)
+
+str(PaulaEg4.2.6)
+
+library(lattice)
+splom(PaulaEg4.2.6, type = c("p", "smooth"), lwd = 2)
+
+}
+\references{
+Neter, J., Kutner, M. H., Nachtsheim, C. J., Wasserman,
+    W. (1996). Applie Linear Regression Models (3tr ed.). Irwin,
+    Illinois.
+}
+\keyword{contagem}
+
-- 
GitLab


From 5949823ed0ceea568c7150a57edd007963c9f7d8 Mon Sep 17 00:00:00 2001
From: Eduardo Junior <edujrrib@gmail.com>
Date: Thu, 21 Apr 2016 12:58:03 -0300
Subject: [PATCH 04/15] Adiciona dataset PaulaEg4.3.6

---
 R/PaulaEg4.3.6.R          |  65 +++++++++++++++++
 data-raw/PaulaEg4.3.6.txt | 147 ++++++++++++++++++++++++++++++++++++++
 data/PaulaEg4.3.6.rda     | Bin 0 -> 521 bytes
 man/PaulaEg4.3.6.Rd       |  75 +++++++++++++++++++
 4 files changed, 287 insertions(+)
 create mode 100644 R/PaulaEg4.3.6.R
 create mode 100644 data-raw/PaulaEg4.3.6.txt
 create mode 100644 data/PaulaEg4.3.6.rda
 create mode 100644 man/PaulaEg4.3.6.Rd

diff --git a/R/PaulaEg4.3.6.R b/R/PaulaEg4.3.6.R
new file mode 100644
index 0000000..a7369b3
--- /dev/null
+++ b/R/PaulaEg4.3.6.R
@@ -0,0 +1,65 @@
+#' @name PaulaEg4.3.6
+#' @title Ausência Escolar de Estudantes Australianos
+#' @description Dados provenientes de um estudo sociológico desenvolvido
+#'     na Austrália com 146 estudantes de 8ª série e ensino médio. Neste
+#'     estudo avaliou-se a ausência escolar (contagem de dias ausentes)
+#'     com o objetivo de sua comparação segundo etnia, sexo, ano que
+#'     está cursando e desempenho escolar.
+#' @format Um \code{data.frame} com 146 observações e 5 variáveis.
+#'     \describe{
+#' 
+#' \item{\code{etnia}}{Fator com dois níveis que indica se o aluno é
+#'     aborígene, da própria região (A) ou não aborígene (N).}
+#' 
+#' \item{\code{sexo}}{Fator com dois níveis que indica o sexo do
+#'     aluno, masculino (M) e feminino (F).}
+#' 
+#' \item{\code{ano}}{Fator com quatro níveis que indica o ano cujo aluno
+#'     está cursando, 8ª série (F0), 1º ano do ensino médio (F1), 2º ano
+#'     do ensino médio (F2) e 3º ano do ensino médio (F3).}
+#' 
+#' \item{\code{desemp}}{Fator com dois níveis que indica o desempenho do
+#'     respectivo aluno, baixo (SL) e normal (AL).}
+#' 
+#' \item{\code{ndias}}{Número de dias ausentes no ano letivo.}
+#' 
+#' }
+#' @keywords contagem superdispersão
+#' @source Paula, G. A. (2004). Modelos de regressão: com apoio
+#' computacional. São Paulo, SP: IME-USP. (0.0 pág. 000)
+#'
+#' @references Venables, W. N., Ripley, B. D. (1999). Modern Applied
+#'     Statistics with S-Plus (3rd ed.). Springer, New York.
+#' @examples
+#'
+#' data(PaulaEg4.3.6)
+#' 
+#' str(PaulaEg4.3.6)
+#' 
+#' # Número de observações em cada combinação. Para modelagem não será
+#' # possível a estimação de algumas interações
+#' ftable(PaulaEg4.3.6[, -5])
+#' 
+#' # Ausência escolar seccionadas pelas variáveis explicativas
+#' xtabs(ndias ~ ., data = PaulaEg4.3.6)
+#' 
+#' # Relação média-variância
+#' aggregate(ndias ~ ., FUN = function(x) c(mean(x), var(x)),
+#'           data = PaulaEg4.3.6)
+#' 
+#' 
+#' library(latticeExtra)
+#' fl1 <- c("Aborígene", "Não Aborígene")
+#' fl2 <- c("Feminino", "Masculino")
+#' useOuterStrips(
+#'     xyplot(ndias ~ ano | etnia + sexo,
+#'            groups = desemp,
+#'            data = PaulaEg4.3.6,
+#'            type = c("p", "a", "g"),
+#'            auto.key = list(
+#'                columns = 2, cex.title = 1,
+#'                title = "Desempenho escolar")),
+#'     strip = strip.custom(factor.levels = fl1),
+#'     strip.left = strip.custom(factor.levels = fl2))
+#'
+NULL
diff --git a/data-raw/PaulaEg4.3.6.txt b/data-raw/PaulaEg4.3.6.txt
new file mode 100644
index 0000000..3ddb1a3
--- /dev/null
+++ b/data-raw/PaulaEg4.3.6.txt
@@ -0,0 +1,147 @@
+etnia	sexo	ano	desemp	ndias
+A	M	F0	SL	2
+A	M	F0	SL	11
+A	M	F0	SL	14
+A	M	F0	AL	5
+A	M	F0	AL	5
+A	M	F0	AL	13
+A	M	F0	AL	20
+A	M	F0	AL	22
+A	M	F1	SL	6
+A	M	F1	SL	6
+A	M	F1	SL	15
+A	M	F1	AL	7
+A	M	F1	AL	14
+A	M	F2	SL	6
+A	M	F2	SL	32
+A	M	F2	SL	53
+A	M	F2	SL	57
+A	M	F2	AL	14
+A	M	F2	AL	16
+A	M	F2	AL	16
+A	M	F2	AL	17
+A	M	F2	AL	40
+A	M	F2	AL	43
+A	M	F2	AL	46
+A	M	F3	AL	8
+A	M	F3	AL	23
+A	M	F3	AL	23
+A	M	F3	AL	28
+A	M	F3	AL	34
+A	M	F3	AL	36
+A	M	F3	AL	38
+A	F	F0	SL	3
+A	F	F0	AL	5
+A	F	F0	AL	11
+A	F	F0	AL	24
+A	F	F0	AL	45
+A	F	F1	SL	5
+A	F	F1	SL	6
+A	F	F1	SL	6
+A	F	F1	SL	9
+A	F	F1	SL	13
+A	F	F1	SL	23
+A	F	F1	SL	25
+A	F	F1	SL	32
+A	F	F1	SL	53
+A	F	F1	SL	54
+A	F	F1	AL	5
+A	F	F1	AL	5
+A	F	F1	AL	11
+A	F	F1	AL	17
+A	F	F1	AL	19
+A	F	F2	SL	8
+A	F	F2	SL	13
+A	F	F2	SL	14
+A	F	F2	SL	20
+A	F	F2	SL	47
+A	F	F2	SL	48
+A	F	F2	SL	60
+A	F	F2	SL	81
+A	F	F2	AL	2
+A	F	F3	AL	0
+A	F	F3	AL	2
+A	F	F3	AL	3
+A	F	F3	AL	5
+A	F	F3	AL	10
+A	F	F3	AL	14
+A	F	F3	AL	21
+A	F	F3	AL	36
+A	F	F3	AL	40
+N	M	F0	SL	6
+N	M	F0	SL	17
+N	M	F0	SL	67
+N	M	F0	AL	0
+N	M	F0	AL	0
+N	M	F0	AL	2
+N	M	F0	AL	7
+N	M	F0	AL	11
+N	M	F0	AL	12
+N	M	F1	SL	0
+N	M	F1	SL	0
+N	M	F1	SL	5
+N	M	F1	SL	5
+N	M	F1	SL	5
+N	M	F1	SL	11
+N	M	F1	SL	17
+N	M	F1	AL	3
+N	M	F1	AL	4
+N	M	F2	SL	22
+N	M	F2	SL	30
+N	M	F2	SL	36
+N	M	F2	AL	8
+N	M	F2	AL	0
+N	M	F2	AL	1
+N	M	F2	AL	5
+N	M	F2	AL	7
+N	M	F2	AL	16
+N	M	F2	AL	27
+N	M	F3	AL	0
+N	M	F3	AL	30
+N	M	F3	AL	10
+N	M	F3	AL	14
+N	M	F3	AL	27
+N	M	F3	AL	41
+N	M	F3	AL	69
+N	F	F0	SL	25
+N	F	F0	AL	10
+N	F	F0	AL	11
+N	F	F0	AL	20
+N	F	F0	AL	33
+N	F	F1	SL	5
+N	F	F1	SL	7
+N	F	F1	SL	0
+N	F	F1	SL	1
+N	F	F1	SL	5
+N	F	F1	SL	5
+N	F	F1	SL	5
+N	F	F1	SL	5
+N	F	F1	SL	7
+N	F	F1	SL	11
+N	F	F1	SL	15
+N	F	F1	AL	5
+N	F	F1	AL	14
+N	F	F1	AL	6
+N	F	F1	AL	6
+N	F	F1	AL	7
+N	F	F1	AL	28
+N	F	F2	SL	0
+N	F	F2	SL	5
+N	F	F2	SL	14
+N	F	F2	SL	2
+N	F	F2	SL	2
+N	F	F2	SL	3
+N	F	F2	SL	8
+N	F	F2	SL	10
+N	F	F2	SL	12
+N	F	F2	AL	1
+N	F	F3	AL	1
+N	F	F3	AL	9
+N	F	F3	AL	22
+N	F	F3	AL	3
+N	F	F3	AL	3
+N	F	F3	AL	5
+N	F	F3	AL	15
+N	F	F3	AL	18
+N	F	F3	AL	22
+N	F	F3	AL	37
diff --git a/data/PaulaEg4.3.6.rda b/data/PaulaEg4.3.6.rda
new file mode 100644
index 0000000000000000000000000000000000000000..47f86e4e71f1624f048c5df5f9c057611c116f94
GIT binary patch
literal 521
zcmV+k0`~nvT4*^jL0KkKSwLRUsQ?C<|KR`s|Lu2c|0FL5ct9_w-@rfs5C8xHzybUj
zu(lddO&+5_13)wehJa`Q01XD20MyEx5u$pUnq<>YNs*xRK*-2qWMst2h+(8S$kQe!
zgC<NSnFAr9GzOV8Fal@{B2cPtQ&H_x^+w7x)AdaN&|*D7pc-iOfY1PIwQY_*JU_V<
zbs)&75P}jCA<BSO3sNB@jYy>kqah-ef|N6aB)~W5C5V9`CD5cKL6MLoNeLASMubsh
z2>>KkK@9L~HLh+P_BpZ=BI5&IyH%!iy9Emp5D79;xAUJC8-1H{E}$Za`B=anR52p6
zi3m(2!c-zSAni+8)lHplb2OYBh0baGbuy$i68!1B64h@*<V1qvqQ!$<3Xi2>vDA)g
z>$`a6v8Yf|6Z;aauI*77dUmfqzjR~_8H}>XHRR%3^}s|#02WB#gWR*>sbGo*pFMc3
zpzi76;L)fkqF)qTkyM8cnq=4ZdvgAMcx9ifPz%LgN(@yL-yi`*f}+xBl~^@^jqz12
z5v*$zUMLx2wg@XCgn%Cm*Z-_$b!P|S%^-l8?3`p#1H6<6RH!AnmYi*{7OoUY(|*;8
z0(y++)sF^v^~HflBg>LScQpm6=mhldeozzPt_2NHP2o4ou)**EX6a+HrXfc$UNLth
LQ-uix1?>uuDCOfT

literal 0
HcmV?d00001

diff --git a/man/PaulaEg4.3.6.Rd b/man/PaulaEg4.3.6.Rd
new file mode 100644
index 0000000..fedb338
--- /dev/null
+++ b/man/PaulaEg4.3.6.Rd
@@ -0,0 +1,75 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/PaulaEg4.3.6.R
+\name{PaulaEg4.3.6}
+\alias{PaulaEg4.3.6}
+\title{Ausência Escolar de Estudantes Australianos}
+\format{Um \code{data.frame} com 146 observações e 5 variáveis.
+    \describe{
+
+\item{\code{etnia}}{Fator com dois níveis que indica se o aluno é
+    aborígene, da própria região (A) ou não aborígene (N).}
+
+\item{\code{sexo}}{Fator com dois níveis que indica o sexo do
+    aluno, masculino (M) e feminino (F).}
+
+\item{\code{ano}}{Fator com quatro níveis que indica o ano cujo aluno
+    está cursando, 8ª série (F0), 1º ano do ensino médio (F1), 2º ano
+    do ensino médio (F2) e 3º ano do ensino médio (F3).}
+
+\item{\code{desemp}}{Fator com dois níveis que indica o desempenho do
+    respectivo aluno, baixo (SL) e normal (AL).}
+
+\item{\code{ndias}}{Número de dias ausentes no ano letivo.}
+
+}}
+\source{
+Paula, G. A. (2004). Modelos de regressão: com apoio
+computacional. São Paulo, SP: IME-USP. (0.0 pág. 000)
+}
+\description{
+Dados provenientes de um estudo sociológico desenvolvido
+    na Austrália com 146 estudantes de 8ª série e ensino médio. Neste
+    estudo avaliou-se a ausência escolar (contagem de dias ausentes)
+    com o objetivo de sua comparação segundo etnia, sexo, ano que
+    está cursando e desempenho escolar.
+}
+\examples{
+
+data(PaulaEg4.3.6)
+
+str(PaulaEg4.3.6)
+
+# Número de observações em cada combinação. Para modelagem não será
+# possível a estimação de algumas interações
+ftable(PaulaEg4.3.6[, -5])
+
+# Ausência escolar seccionadas pelas variáveis explicativas
+xtabs(ndias ~ ., data = PaulaEg4.3.6)
+
+# Relação média-variância
+aggregate(ndias ~ ., FUN = function(x) c(mean(x), var(x)),
+          data = PaulaEg4.3.6)
+
+
+library(latticeExtra)
+fl1 <- c("Aborígene", "Não Aborígene")
+fl2 <- c("Feminino", "Masculino")
+useOuterStrips(
+    xyplot(ndias ~ ano | etnia + sexo,
+           groups = desemp,
+           data = PaulaEg4.3.6,
+           type = c("p", "a", "g"),
+           auto.key = list(
+               columns = 2, cex.title = 1,
+               title = "Desempenho escolar")),
+    strip = strip.custom(factor.levels = fl1),
+    strip.left = strip.custom(factor.levels = fl2))
+
+}
+\references{
+Venables, W. N., Ripley, B. D. (1999). Modern Applied
+    Statistics with S-Plus (3rd ed.). Springer, New York.
+}
+\keyword{contagem}
+\keyword{superdispersão}
+
-- 
GitLab


From 97050cd56df2f521248f51c5ad20432f0a3644e1 Mon Sep 17 00:00:00 2001
From: Eduardo Junior <edujrrib@gmail.com>
Date: Thu, 21 Apr 2016 13:41:11 -0300
Subject: [PATCH 05/15] Adiciona dataset PaulaTb4.7

---
 R/PaulaTb4.7.R          |  43 +++++++++++++++++++++++++++++++++
 data-raw/PaulaTb4.7.txt |  41 +++++++++++++++++++++++++++++++
 data/PaulaTb4.7.rda     | Bin 0 -> 1325 bytes
 man/PaulaTb4.7.Rd       |  52 ++++++++++++++++++++++++++++++++++++++++
 4 files changed, 136 insertions(+)
 create mode 100644 R/PaulaTb4.7.R
 create mode 100644 data-raw/PaulaTb4.7.txt
 create mode 100644 data/PaulaTb4.7.rda
 create mode 100644 man/PaulaTb4.7.Rd

diff --git a/R/PaulaTb4.7.R b/R/PaulaTb4.7.R
new file mode 100644
index 0000000..a25087f
--- /dev/null
+++ b/R/PaulaTb4.7.R
@@ -0,0 +1,43 @@
+#' @name PaulaTb4.7
+#' @title Demandas de TV a Cabo em Áreas Metropolitanos dos EUA
+#' @description Dados de um estudo sobre demanda de TV's a cabo em 40
+#'     áreas metropolianas dos Estados Unidos. Neste estudo a variável
+#'     de interesse é o número de assinantes (\code{nass}) e as demais
+#'     variáveis mensuradas tentam explicar esta contagem.
+#' @format Um \code{data.frame} com 40 observações e 8 variáveis.
+#' \describe{
+#' 
+#' \item{\code{nass}}{Número de assinantes de TV a cabo (em milhares).}
+#' 
+#' \item{\code{domic}}{Número de domicílios na área (em milhares).}
+#' 
+#' \item{\code{perc}}{Percentagem de domicílios com TV a cabo.}
+#' 
+#' \item{\code{renda}}{Renda per capita por domicílio com TV a cabo (em
+#'     USD).}
+#' 
+#' \item{\code{taxa}}{Valor da taxa de instalação de TV a cabo (em
+#'     USD).}
+#' 
+#' \item{\code{custo}}{Custo médio mensal de manutenção de TV a cabo (em
+#'     USD).}
+#' 
+#' \item{\code{ncabo}}{Número de canais a cabo disponíveis na área.}
+#' 
+#' \item{\code{ntv}}{Número de canais não pagos com sinal de boa
+#'     qualidade na área.}
+#' 
+#' }
+#' @keywords contagem superdispersão
+#' @source Paula, G. A. (2004). Modelos de regressão: com apoio
+#' computacional. São Paulo, SP: IME-USP. (0.0 pág. 000)
+#' @examples
+#'
+#' data(PaulaTb4.7)
+#' 
+#' str(PaulaTb4.7)
+#' 
+#' library(lattice)
+#' splom(PaulaTb4.7, type = c("p", "smooth"), lwd = 2)
+#'
+NULL
diff --git a/data-raw/PaulaTb4.7.txt b/data-raw/PaulaTb4.7.txt
new file mode 100644
index 0000000..d8ddb07
--- /dev/null
+++ b/data-raw/PaulaTb4.7.txt
@@ -0,0 +1,41 @@
+nass	domic	perc	renda	taxa	custo	ncabo	ntv
+105	350	30	9839	14.95	10	16	13
+90	255.631	35.207	10606	15	7.5	15	11
+14	31	45.161	10455	15	7	11	9
+11.7	34.84	33.582	8958	10	7	22	10
+46	153.434	29.98	11741	25	10	20	12
+11.217	26.621	42.136	9378	15	7.66	18	8
+12	18	66.667	10433	15	7.5	12	8
+6.428	9.324	68.94	10167	15	7	17	7
+20.1	32	62.813	9218	10	5.6	10	8
+8.5	28	30.357	10519	15	6.5	6	6
+1.6	8	20	10025	17.5	7.5	8	6
+1.1	5	22	9714	15	8.95	9	9
+4.355	15.204	28.644	9294	10	7	7	7
+78.91	97.889	80.612	9784	24.95	9.49	12	7
+19.6	93	21.075	8173	20	7.5	9	7
+1	3	33.333	8967	9.95	10	13	6
+1.65	2.6	63.462	10133	25	7.55	6	5
+13.4	18.284	73.288	9361	15.5	6.3	11	5
+18.708	55	34.015	9085	15	7	16	6
+1.352	1.7	79.529	10067	20	5.6	6	6
+170	270	62.963	8908	15	8.75	15	5
+15.388	46.54	33.064	9632	15	8.73	9	6
+6.555	20.417	32.106	8995	5.95	5.95	10	6
+40	120	33.333	7787	25	6.5	10	5
+19.9	46.39	42.897	8890	15	7.5	9	7
+2.45	14.5	16.897	8041	9.95	6.25	6	4
+3.762	9.5	36.9	8605	20	6.5	6	5
+24.882	81.98	30.351	8639	18	7.5	8	4
+21.187	39.7	53.368	8781	20	6	9	4
+3.487	4.113	84.78	8551	10	6.85	11	4
+3	8	37.5	9306	10	7.95	9	6
+42.1	99.75	42.206	8346	9.95	5.73	8	5
+20.35	33.379	60.966	8803	15	7.5	8	4
+23.15	35.5	65.211	8942	17.5	6.5	8	5
+9.866	34.775	28.371	8591	15	8.25	11	4
+42.608	64.84	65.713	9163	10	6	11	6
+10.371	30.556	33.941	7683	20	7.5	8	6
+5.164	16.5	31.297	7924	14.95	6.95	8	5
+31.15	70.515	44.175	8454	9.95	7	10	4
+18.35	42.04	43.649	8429	20	7	6	4
diff --git a/data/PaulaTb4.7.rda b/data/PaulaTb4.7.rda
new file mode 100644
index 0000000000000000000000000000000000000000..df4eccf99e32129f21a08642c7ed8f6d92550e5f
GIT binary patch
literal 1325
zcmV+|1=9LLT4*^jL0KkKS*K>cs{jLI|NsC0{r~^}|NsC0|NVde-|y;UuK)kF*WdSl
z`s(Yi|M}1ZvrT}bO^~4|s7*~Y4Ky~RL)6G<Wc2`Ph&1&y8U}%*AkYD(K=m;OKm!_p
z8W{ipG-v?RY8ebhfN8XuJu-t(5@|AOJtmLTnLSNCHd1<<(rS31^o<6CLqVg|dO&CZ
zXbk|!&@=!527mw>X`uB3Kr#RT0D6HUL_#Ff(KeuBXwi)|2AVX{=`u0{Oiic;jWj(?
zJs{K6$T19zOhX}{0AN6383Ro;GBndn5u;3v8fl^ihJ!!>pcw(60MHo*ng9lXWMlvu
z000_f0iXbA83CXG00E!?3?_jCLqVVb&<udk0B8(@O#lNxGBN-S000d#0MGz541mx8
z007Vc1`|P1JW>Mus|TG3GYN3Sz=Xh?cxQzoLg4d8D4sH5sc%w3<f2e?0e`rh_i}?2
z$(&^93BNaJgcvP$pPySH4$mbZ><8}1LR$(55OUUbR!+^scloHZ8=EQ<6i%2Tf_4?C
zD@AoRN|g#@K0D*J1rSwggeKZkDy##vI0-9sDyog3=v8H<7sFWFa+fV^MQY||8f1wK
zg2FsGU;qT5DFCQ-oH!r=mCQS=p`=^yj``^7qgrP*vvqL&IvO7vz11CUM5~6<e4Ir!
z=nmBeHO>L}1a7E;10@h;8OP_c4$>%`Do`bW5W%sGNJgM6VF#4P*wY)yw8&85sf5Lq
zq%CMLJ>(#&%FH2%hBkn0AvU4db}+iOfo9r<1li#+Be(U)6{REs%>0B28Rm=t@$D*F
zudjf-xx@rpK&t4cDq=mAw`+^b(MGt4@u71JF?X0T>{ly$=gTx5GGJG>`uiHNDYrJ$
z`GLcS15J&ap!(SoZ;*uzp)@>E3#zw?=9Fk$nAnV_jLk|M<j<s*3P~<A2OiRq<SPP8
zt%_ny@t6@Rkw_t79j<|l+dY2}<|u6D7)`Ha;7+kaVE<R?v$@Ma8ym(%=y3(Ft={w1
zr$fZ~Gpwk%XXpMwRfL(;G(@03r?6(JhC$a;2yAZIfxl+q&r1|FA*S0+>bV#<&gVnB
z%1t~A>nQ2(Sh|)P*rnCp#x?%eN-i$@-nV02FJm64{%oI}z>J4gUTQTLRn@rNg_H-Y
zovDa*Q}LPh*dv_+PuAi3n9EWZ@Yb`bMHn;}RL0IZoI?v%ZW9*xxb-AkT|N9)b$ZLx
z3n7+_FWNQ+W>;K{8}N3_*|N5$QzFLSQDLuCOUwxDGJLqHbn2T<>Ud(T+Ou)h8beV)
zK+jsIN@?FCE4%eO{iV|p$O1bi6%|vMI>nCnI}^XdJz1hi`=+#tO66FWCGB{wCAMXy
z+hS)5Ef-cyaQb26Zs0S<@;y2|5icpzl(A(5tRpx~-FQQ*Ta~DQms9X6OVkYU@FQ<K
z^`)=!MuO<_hgv#b-8n{~Vw9qxc8f~H&Rc7PJL2@ZI`S1UAxHvMZs?eF9^@W&A*PXn
zsM59CG<a5O-HK23B_*u#Ned~aCFQ3-Bz24<Vpgo&pNKs8Gx#5SB5or$NrPy9)e;Zo
z`jN{?HU1$G+e0E{)hE|QNf1Q@zswrflnRhb2U3C#W~#ROs^%@wZm&`RFY1zHZv2F>
zA6b+%0|6*uTUz&?&FPI;-9T&lByc4Dh8ak(ng^g)YDt3|3P8EYAhTr-uL+j}=|#Fe
jkJ_`ZY>h%SliG;^jlY7y^jjsui~kpLML1B9r)IvZyn9`+

literal 0
HcmV?d00001

diff --git a/man/PaulaTb4.7.Rd b/man/PaulaTb4.7.Rd
new file mode 100644
index 0000000..9852a03
--- /dev/null
+++ b/man/PaulaTb4.7.Rd
@@ -0,0 +1,52 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/PaulaTb4.7.R
+\name{PaulaTb4.7}
+\alias{PaulaTb4.7}
+\title{Demandas de TV a Cabo em Áreas Metropolitanos dos EUA}
+\format{Um \code{data.frame} com 40 observações e 8 variáveis.
+\describe{
+
+\item{\code{nass}}{Número de assinantes de TV a cabo (em milhares).}
+
+\item{\code{domic}}{Número de domicílios na área (em milhares).}
+
+\item{\code{perc}}{Percentagem de domicílios com TV a cabo.}
+
+\item{\code{renda}}{Renda per capita por domicílio com TV a cabo (em
+    USD).}
+
+\item{\code{taxa}}{Valor da taxa de instalação de TV a cabo (em
+    USD).}
+
+\item{\code{custo}}{Custo médio mensal de manutenção de TV a cabo (em
+    USD).}
+
+\item{\code{ncabo}}{Número de canais a cabo disponíveis na área.}
+
+\item{\code{ntv}}{Número de canais não pagos com sinal de boa
+    qualidade na área.}
+
+}}
+\source{
+Paula, G. A. (2004). Modelos de regressão: com apoio
+computacional. São Paulo, SP: IME-USP. (0.0 pág. 000)
+}
+\description{
+Dados de um estudo sobre demanda de TV's a cabo em 40
+    áreas metropolianas dos Estados Unidos. Neste estudo a variável
+    de interesse é o número de assinantes (\code{nass}) e as demais
+    variáveis mensuradas tentam explicar esta contagem.
+}
+\examples{
+
+data(PaulaTb4.7)
+
+str(PaulaTb4.7)
+
+library(lattice)
+splom(PaulaTb4.7, type = c("p", "smooth"), lwd = 2)
+
+}
+\keyword{contagem}
+\keyword{superdispersão}
+
-- 
GitLab


From 492ca3164e4763063644d3089107aa93c34b1e59 Mon Sep 17 00:00:00 2001
From: Eduardo Junior <edujrrib@gmail.com>
Date: Fri, 22 Apr 2016 16:54:29 -0300
Subject: [PATCH 06/15] Adiciona dataset PaulaTb4.9

---
 R/PaulaTb4.9.R          |  53 ++++++++++++++++++++++++++++++++++
 data-raw/PaulaTb4.9.txt |  35 +++++++++++++++++++++++
 data/PaulaTb4.9.rda     | Bin 0 -> 455 bytes
 man/PaulaTb4.9.Rd       |  62 ++++++++++++++++++++++++++++++++++++++++
 4 files changed, 150 insertions(+)
 create mode 100644 R/PaulaTb4.9.R
 create mode 100644 data-raw/PaulaTb4.9.txt
 create mode 100644 data/PaulaTb4.9.rda
 create mode 100644 man/PaulaTb4.9.Rd

diff --git a/R/PaulaTb4.9.R b/R/PaulaTb4.9.R
new file mode 100644
index 0000000..3f71d5f
--- /dev/null
+++ b/R/PaulaTb4.9.R
@@ -0,0 +1,53 @@
+#' @name PaulaTb4.9
+#' @title Avarias em Navios de Carga
+#' @description Dados referentes a um estudo onde se avaliou o número de
+#'     avarias causadas por ondas em navios de carga. Foram 34 registros
+#'     com informações do tipo de navio, ano de fabricação, período de
+#'     operação e tempo em operação (que pode ser considerado como
+#'     offset na análise, pois espera-se um maior número de avarias em
+#'     navios com um maior tempo em operação).
+#' @format Um \code{data.frame} com 34 observações e 5 variáveis.
+#'     \describe{
+#' 
+#' \item{\code{tipo}}{Fator com cinco níveis que representa o tipo de
+#'     navio.}
+#' 
+#' \item{\code{ano}}{Fator com quatro níveis que representa o ano de
+#'     fabricação do navio.}
+#' 
+#' \item{\code{peri}}{Fator com dois níveis que representa o período de
+#'     operação do navio.}
+#' 
+#' \item{\code{meses}}{Tempo em meses que o navio esteve em operação.}
+#' 
+#' \item{\code{avarias}}{Número de avarias no navio.}
+#' 
+#' }
+#' @keywords contagem superdispersão
+#' @source Paula, G. A. (2004). Modelos de regressão: com apoio
+#' computacional. São Paulo, SP: IME-USP. (Tabela 4.9 pág. 322)
+#' @examples
+#'
+#' data(PaulaTb4.9)
+#' 
+#' str(PaulaTb4.9)
+#' 
+#' # Número de observações em cada combinação das variáveis explicativas
+#' ftable(PaulaTb4.9[, c("tipo", "ano", "peri")])
+#' 
+#' # Número de avarias e número de avarias por mês observada em cada
+#' # combinação das variáveis explicativas
+#' xtabs(avarias ~ tipo + ano + peri, data = PaulaTb4.9)
+#' xt <- xtabs(avarias/meses ~ ., data = PaulaTb4.9)
+#' plot(xt)
+#' 
+#' library(lattice)
+#' xyplot(avarias/meses ~ tipo | peri,
+#'        groups = ano,
+#'        data = PaulaTb4.9,
+#'        type = c("p", "a", "g"),
+#'        auto.key = list(
+#'            space = "right", cex.title = 1,
+#'            title = "Ano de\nfabricação"))
+#'
+NULL
diff --git a/data-raw/PaulaTb4.9.txt b/data-raw/PaulaTb4.9.txt
new file mode 100644
index 0000000..2f8c561
--- /dev/null
+++ b/data-raw/PaulaTb4.9.txt
@@ -0,0 +1,35 @@
+tipo	ano	peri	meses	avarias
+A	60-64	60-74	127	0
+A	60-64	75-79	63	0
+A	65-69	60-74	1095	3
+A	65-69	75-79	1095	4
+A	70-74	60-74	1512	6
+A	70-74	75-79	3353	18
+A	75-79	75-79	2244	11
+B	60-64	60-74	44882	39
+B	60-64	75-79	17176	29
+B	65-69	60-74	28609	58
+B	65-69	75-79	20370	53
+B	70-74	60-74	7064	12
+B	70-74	75-79	13099	44
+B	75-79	75-79	7117	18
+C	60-64	60-74	1179	1
+C	60-64	75-79	552	1
+C	65-69	60-74	781	0
+C	65-69	75-79	676	1
+C	70-74	60-74	783	6
+C	70-74	75-79	1948	2
+C	75-79	75-79	274	1
+D	60-64	60-74	251	0
+D	60-64	75-79	105	0
+D	65-69	60-74	288	0
+D	65-69	75-79	192	0
+D	70-74	60-74	349	2
+D	70-74	75-79	1208	11
+D	75-79	75-79	2051	4
+E	60-64	60-74	45	0
+E	65-69	60-74	789	7
+E	65-69	75-79	437	7
+E	70-74	60-74	1157	5
+E	70-74	75-79	2161	12
+E	75-79	75-79	542	1
diff --git a/data/PaulaTb4.9.rda b/data/PaulaTb4.9.rda
new file mode 100644
index 0000000000000000000000000000000000000000..79fd63bd73800a8288e080b3937320d239b004d7
GIT binary patch
literal 455
zcmV;&0XY6bT4*^jL0KkKS!)=`2mk^pfB*mf+G|kHU$DM_)IvWe|A4{(5KIIBf<R;f
z0096%012=Gmem_j(JFeMs(46xhw7fD8Z|U}Knz9%!3_bR0P#=C4K&n~MD;ZFGy_J4
zfCfxW0MGyfKmdAzM4<%8WB?if0000D20#D+VNJv-Bmyr6OymSWEEC@mNsAgRBtT9K
z%?wQ|X{t#~7&gUBp;AOr6DPSzErQ<SCle48l7JH80Co1`?V`5W(STyAqEQ7wv&R>k
zDQ+vrsK&>w&?I_vLOyb#Bptr7cUXjiwIf5@Z&Gyh(p))|aiyDmu)FxuBwv1k5Dggt
z&o}kPfd&~6m!$**#$HQC6Jde{dcaqWAxBqTi$4U|G%R5<wsS@!R-y$x0%$@ungE0`
zBLWctBN90srFcmohLB3Y4+mkTB5k&jMhdy|sq;Xh%oc00m3)7^1=(k$JrYA0SR{}^
z9w<T~D-)V=Lc2E9s;qy%QWi;tHb$AGj#>|s|L&~=gx>lnXX}MAiOr~5t{ODpaGiP>
xD_CrLGJU=l3&4UXU^9h2O=;6i`4EdP4;-=nVniCNP!J0^yOJrwgo9YdKtRRuv48*o

literal 0
HcmV?d00001

diff --git a/man/PaulaTb4.9.Rd b/man/PaulaTb4.9.Rd
new file mode 100644
index 0000000..22425e3
--- /dev/null
+++ b/man/PaulaTb4.9.Rd
@@ -0,0 +1,62 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/PaulaTb4.9.R
+\name{PaulaTb4.9}
+\alias{PaulaTb4.9}
+\title{Avarias em Navios de Carga}
+\format{Um \code{data.frame} com 34 observações e 5 variáveis.
+    \describe{
+
+\item{\code{tipo}}{Fator com cinco níveis que representa o tipo de
+    navio.}
+
+\item{\code{ano}}{Fator com quatro níveis que representa o ano de
+    fabricação do navio.}
+
+\item{\code{peri}}{Fator com dois níveis que representa o período de
+    operação do navio.}
+
+\item{\code{meses}}{Tempo em meses que o navio esteve em operação.}
+
+\item{\code{avarias}}{Número de avarias no navio.}
+
+}}
+\source{
+Paula, G. A. (2004). Modelos de regressão: com apoio
+computacional. São Paulo, SP: IME-USP. (Tabela 4.9 pág. 322)
+}
+\description{
+Dados referentes a um estudo onde se avaliou o número de
+    avarias causadas por ondas em navios de carga. Foram 34 registros
+    com informações do tipo de navio, ano de fabricação, período de
+    operação e tempo em operação (que pode ser considerado como
+    offset na análise, pois espera-se um maior número de avarias em
+    navios com um maior tempo em operação).
+}
+\examples{
+
+data(PaulaTb4.9)
+
+str(PaulaTb4.9)
+
+# Número de observações em cada combinação das variáveis explicativas
+ftable(PaulaTb4.9[, c("tipo", "ano", "peri")])
+
+# Número de avarias e número de avarias por mês observada em cada
+# combinação das variáveis explicativas
+xtabs(avarias ~ tipo + ano + peri, data = PaulaTb4.9)
+xt <- xtabs(avarias/meses ~ ., data = PaulaTb4.9)
+plot(xt)
+
+library(lattice)
+xyplot(avarias/meses ~ tipo | peri,
+       groups = ano,
+       data = PaulaTb4.9,
+       type = c("p", "a", "g"),
+       auto.key = list(
+           space = "right", cex.title = 1,
+           title = "Ano de\\nfabricação"))
+
+}
+\keyword{contagem}
+\keyword{superdispersão}
+
-- 
GitLab


From 2a9d973b359d31e3f5677101b4984665e7941bf3 Mon Sep 17 00:00:00 2001
From: Eduardo Junior <edujrrib@gmail.com>
Date: Sun, 24 Apr 2016 16:44:48 -0300
Subject: [PATCH 07/15] Adiciona dataset PaulaTb4.12

---
 R/PaulaTb4.12.R          |  48 +++++++++++++++++++++++++++++++++
 data-raw/PaulaTb4.12.txt |  17 ++++++++++++
 data/PaulaTb4.12.rda     | Bin 0 -> 310 bytes
 man/PaulaTb4.12.Rd       |  57 +++++++++++++++++++++++++++++++++++++++
 4 files changed, 122 insertions(+)
 create mode 100644 R/PaulaTb4.12.R
 create mode 100644 data-raw/PaulaTb4.12.txt
 create mode 100644 data/PaulaTb4.12.rda
 create mode 100644 man/PaulaTb4.12.Rd

diff --git a/R/PaulaTb4.12.R b/R/PaulaTb4.12.R
new file mode 100644
index 0000000..997f5f1
--- /dev/null
+++ b/R/PaulaTb4.12.R
@@ -0,0 +1,48 @@
+#' @name PaulaTb4.12
+#' @title Associação entre Renda e Satisfação no Emprego
+#' @description Dados resultantes de uma pesquisa com 901 indivíduos
+#'     classificados segundo sua renda anual e grau informado de
+#'     satisfação no emprego. O interesse no estudo é relacionar o
+#'     número de indivíduos conforme renda anual e satisfação no
+#'     emprego.
+#' @format Um \code{data.frame} com 16 observações e 3 variáveis.
+#' \describe{
+#' 
+#' \item{\code{renda}}{Fator com quatro níveis representando a renda do
+#'     indivíduo. Com unidades de mil USD os fatores são: menor que 6
+#'     (\code{<6}), entre 6 e 12 (\code{6-15}), entre 15 e 25
+#'     (\code{15-25}) e maior que 25 (\code{>25}).}
+#' 
+#' \item{\code{satis}}{Fotor com quatro níveis que representa o grau de
+#'     satisfação do indíviduo no emprego (\code{alto}, \code{bom},
+#'     \code{médio} e \code{baixo}).}
+#' 
+#' \item{\code{nind}}{Número de indivíduos na combinação das variáveis
+#'     \code{renda} e \code{satis}.}
+#' 
+#' }
+#' @keywords contagem
+#' @source Paula, G. A. (2004). Modelos de regressão: com apoio
+#'     computacional. São Paulo, SP: IME-USP. (Tabela 4.12 pág. 331)
+#'
+#' @references Agresti, A. (1990). Categorical Data Analysis. John
+#'     Wiley, New York.
+#' @examples
+#'
+#' data(PaulaTb4.12)
+#' 
+#' str(PaulaTb4.12)
+#' 
+#' xt <- xtabs(nind ~ ., data = PaulaTb4.12)
+#' plot(xt)
+#' 
+#' library(lattice)
+#' xyplot(nind ~ renda,
+#'        groups = satis,
+#'        data = PaulaTb4.12,
+#'        type = c("p", "a", "g"),
+#'        auto.key = list(
+#'            space = "right", cex.title = 1,
+#'            title = "Grau de\nsatisfação"))
+#'
+NULL
diff --git a/data-raw/PaulaTb4.12.txt b/data-raw/PaulaTb4.12.txt
new file mode 100644
index 0000000..77ee89e
--- /dev/null
+++ b/data-raw/PaulaTb4.12.txt
@@ -0,0 +1,17 @@
+renda	satis	nind
+<6	alto	20
+<6	bom	24
+<6	médio	80
+<6	baixo	82
+6-15	alto	22
+6-15	bom	38
+6-15	médio	104
+6-15	baixo	125
+15-25	alto	13
+15-25	bom	28
+15-25	médio	81
+15-25	baixo	113
+>25	alto	7
+>25	bom	18
+>25	médio	54
+>25	baixo	92
diff --git a/data/PaulaTb4.12.rda b/data/PaulaTb4.12.rda
new file mode 100644
index 0000000000000000000000000000000000000000..8ad901d5389b1df1a61a37790db68c6ec9057887
GIT binary patch
literal 310
zcmV-60m=SCT4*^jL0KkKS>a?PoB#n1f7JiFT|@x`Hw6R$bVNUAzrsKO03ZkeKmo7-
z`jZV!N#z&`v?fh7&=~;J2sG0WMNd=I^)aC`Vl==eCJBVXWYYkVLX1hKO&S9xBQyvb
zQHhf#S%P(xhzxEmFtK9Hry6e5)rkb@#BoB@)p%OC{Bj^lC26xB2qDid*yf|v1ohGw
zz|oK}i1OkG1QD0t&s3qelu{A3i7HwZ4FO(>yCa5Dq_<QBIFT@cqzR#b(<IU;Xav}W
zafMePWC8%hMhvk#7f(8Svq}6m5E`l1Q^ge!(wb{Lmi(|Kz1D<e*~-li6M<0X65i5*
zt46oharSSyUZ>_p#JX?C4h$Y80YuOSOPTEnW5}NY^$sLEnO_#m<}e1pg8}X?<ce^i
IA;QQ>IDln=y8r+H

literal 0
HcmV?d00001

diff --git a/man/PaulaTb4.12.Rd b/man/PaulaTb4.12.Rd
new file mode 100644
index 0000000..96257db
--- /dev/null
+++ b/man/PaulaTb4.12.Rd
@@ -0,0 +1,57 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/PaulaTb4.12.R
+\name{PaulaTb4.12}
+\alias{PaulaTb4.12}
+\title{Associação entre Renda e Satisfação no Emprego}
+\format{Um \code{data.frame} com 16 observações e 3 variáveis.
+\describe{
+
+\item{\code{renda}}{Fator com quatro níveis representando a renda do
+    indivíduo. Com unidades de mil USD os fatores são: menor que 6
+    (\code{<6}), entre 6 e 12 (\code{6-15}), entre 15 e 25
+    (\code{15-25}) e maior que 25 (\code{>25}).}
+
+\item{\code{satis}}{Fotor com quatro níveis que representa o grau de
+    satisfação do indíviduo no emprego (\code{alto}, \code{bom},
+    \code{médio} e \code{baixo}).}
+
+\item{\code{nind}}{Número de indivíduos na combinação das variáveis
+    \code{renda} e \code{satis}.}
+
+}}
+\source{
+Paula, G. A. (2004). Modelos de regressão: com apoio
+    computacional. São Paulo, SP: IME-USP. (Tabela 4.12 pág. 331)
+}
+\description{
+Dados resultantes de uma pesquisa com 901 indivíduos
+    classificados segundo sua renda anual e grau informado de
+    satisfação no emprego. O interesse no estudo é relacionar o
+    número de indivíduos conforme renda anual e satisfação no
+    emprego.
+}
+\examples{
+
+data(PaulaTb4.12)
+
+str(PaulaTb4.12)
+
+xt <- xtabs(nind ~ ., data = PaulaTb4.12)
+plot(xt)
+
+library(lattice)
+xyplot(nind ~ renda,
+       groups = satis,
+       data = PaulaTb4.12,
+       type = c("p", "a", "g"),
+       auto.key = list(
+           space = "right", cex.title = 1,
+           title = "Grau de\\nsatisfação"))
+
+}
+\references{
+Agresti, A. (1990). Categorical Data Analysis. John
+    Wiley, New York.
+}
+\keyword{contagem}
+
-- 
GitLab


From 98a6c972e002d236e815cc3c349cef29125769cb Mon Sep 17 00:00:00 2001
From: Eduardo Junior <edujrrib@gmail.com>
Date: Sun, 24 Apr 2016 17:23:52 -0300
Subject: [PATCH 08/15] Adiciona dataset PaulaTb4.14

---
 R/PaulaTb4.14.R          |  55 +++++++++++++++++++++++++++++++++
 data-raw/PaulaTb4.14.txt |  33 ++++++++++++++++++++
 data/PaulaTb4.14.rda     | Bin 0 -> 351 bytes
 man/PaulaTb4.14.Rd       |  64 +++++++++++++++++++++++++++++++++++++++
 4 files changed, 152 insertions(+)
 create mode 100644 R/PaulaTb4.14.R
 create mode 100644 data-raw/PaulaTb4.14.txt
 create mode 100644 data/PaulaTb4.14.rda
 create mode 100644 man/PaulaTb4.14.Rd

diff --git a/R/PaulaTb4.14.R b/R/PaulaTb4.14.R
new file mode 100644
index 0000000..413dc18
--- /dev/null
+++ b/R/PaulaTb4.14.R
@@ -0,0 +1,55 @@
+#' @name PaulaTb4.14
+#' @title Ocorrência de Doença das Coronárias
+#' @description Os dados são referentes à classificação de 1330
+#'     pacientes segundo três fatores: ocorrência da doença das
+#'     coronárias, nível de colesterol e pressão arterial. O interesse
+#'     está em verificar a associação destes fatores com base no número
+#'     de indivíduos classificados em cada combinação.
+#' @format Um \code{data.frame} com 32 observações e 4 variáveis.
+#'     \describe{
+#' 
+#' \item{\code{doenca}}{Fator com dois níveis que indica a ocorrência
+#'     (\code{sim}) ou não ocorrência (\code{não}) de doença das
+#'     coronárias.}
+#' 
+#' \item{\code{colest}}{Fator com quatro níveis que indica o nível de
+#'     colesterol do paciente. A unidade de medida adotada é
+#'     \eqn{mg/100cm^3} com classes \code{<200}, \code{200-219},
+#'     \code{220-259} e \code{>259}.}
+#' 
+#' \item{\code{pa}}{Fator com quatro níveis que indica a pressão
+#'     arterial do paciente. A unidade de medida adotada é mm Hg
+#'     (milímetro-mercúrio) com classes \code{<127}, \code{127-146},
+#'     \code{147-166} e \code{>166}.}
+#' 
+#' \item{\code{nind}}{Número de indivíduos na combinação das variáveis
+#'     \code{doenca}, \code{colest} e \code{pa}.}
+#' 
+#' }
+#' @keywords contagem
+#' @source Paula, G. A. (2004). Modelos de regressão: com apoio
+#' computacional. São Paulo, SP: IME-USP. (Tabela 4.14 pág. 334)
+#'
+#' @references Everitt, B. S. (1977). The Analysis of Contingency
+#'     Tables. Chapman anda Hall, London.
+#' @examples
+#'
+#' data(PaulaTb4.14)
+#' 
+#' str(PaulaTb4.14)
+#' 
+#' xt <- xtabs(nind ~ ., data = PaulaTb4.14)
+#' ftable(xt)
+#' plot(xt)
+#' 
+#' library(lattice)
+#' xyplot(nind ~ colest | doenca,
+#'        groups = pa,
+#'        data = PaulaTb4.14,
+#'        type = c("p", "a", "g"),
+#'        scales = list(x = list(rot = 45)),
+#'        auto.key = list(
+#'            space = "right", cex.title = 1,
+#'            title = "Pressão arterial\nem mm Hg"))
+#'
+NULL
diff --git a/data-raw/PaulaTb4.14.txt b/data-raw/PaulaTb4.14.txt
new file mode 100644
index 0000000..c4b7a97
--- /dev/null
+++ b/data-raw/PaulaTb4.14.txt
@@ -0,0 +1,33 @@
+doenca	colest	pa	nind
+sim	<200	<127	2
+sim	<200	127-146	3
+sim	<200	147-166	3
+sim	<200	>166	4
+sim	200-219	<127	3
+sim	200-219	127-146	2
+sim	200-219	147-166	1
+sim	200-219	>166	3
+sim	220-259	<127	8
+sim	220-259	127-146	11
+sim	220-259	147-166	6
+sim	220-259	>166	6
+sim	>259	<127	7
+sim	>259	127-146	12
+sim	>259	147-166	11
+sim	>259	>166	11
+não	<200	<127	117
+não	<200	127-146	121
+não	<200	147-166	47
+não	<200	>166	22
+não	200-219	<127	85
+não	200-219	127-146	98
+não	200-219	147-166	43
+não	200-219	>166	20
+não	220-259	<127	119
+não	220-259	127-146	209
+não	220-259	147-166	68
+não	220-259	>166	43
+não	>259	<127	67
+não	>259	127-146	99
+não	>259	147-166	46
+não	>259	>166	33
diff --git a/data/PaulaTb4.14.rda b/data/PaulaTb4.14.rda
new file mode 100644
index 0000000000000000000000000000000000000000..7010521851e9cd1de4e430b4e6e8670753f650b6
GIT binary patch
literal 351
zcmV-l0igauT4*^jL0KkKS+eGnI{*RTf7k#1O#omE_oWN~RzN=|-=IJM2mlBGAOJuB
z00FQ8IYbQ!q=r+;Ju(S|&>KL>F&jaI(j34hm;}gR04525005C88j+LA0000Q0ibE1
z8c+$+5JV+4a$|N<5*W}@0E{%lb!b#<X*BJm<^veZ;w@1yF2w?DB+IX)uk^FR7&8Zl
z93W$sNvXAFX|_Y2im3iE9e*GIL);hyGpW@nri5nam#pnOd;g{(EX@c;HUg_cUvW~k
z%Zzh?$xjO=umBbb4J09<fDH^f+DO3AfNdmcunf5&Dkg!n8Rl^sn6@OM(Q?@*>Q0S(
z+-jRsk!vvEz93*=Ny8%o0n_W+C7xR5^{SGRu+0>`QMX5Hq|2<+-)avarSZ<*=&iZC
xyXA5PT!P5m!dNAIu~7Bsl2}nu;>3!V4b$;~DKZX|Ljym>+>uTcBrLh4&cIE|l_dZG

literal 0
HcmV?d00001

diff --git a/man/PaulaTb4.14.Rd b/man/PaulaTb4.14.Rd
new file mode 100644
index 0000000..22fc367
--- /dev/null
+++ b/man/PaulaTb4.14.Rd
@@ -0,0 +1,64 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/PaulaTb4.14.R
+\name{PaulaTb4.14}
+\alias{PaulaTb4.14}
+\title{Ocorrência de Doença das Coronárias}
+\format{Um \code{data.frame} com 32 observações e 4 variáveis.
+    \describe{
+
+\item{\code{doenca}}{Fator com dois níveis que indica a ocorrência
+    (\code{sim}) ou não ocorrência (\code{não}) de doença das
+    coronárias.}
+
+\item{\code{colest}}{Fator com quatro níveis que indica o nível de
+    colesterol do paciente. A unidade de medida adotada é
+    \eqn{mg/100cm^3} com classes \code{<200}, \code{200-219},
+    \code{220-259} e \code{>259}.}
+
+\item{\code{pa}}{Fator com quatro níveis que indica a pressão
+    arterial do paciente. A unidade de medida adotada é mm Hg
+    (milímetro-mercúrio) com classes \code{<127}, \code{127-146},
+    \code{147-166} e \code{>166}.}
+
+\item{\code{nind}}{Número de indivíduos na combinação das variáveis
+    \code{doenca}, \code{colest} e \code{pa}.}
+
+}}
+\source{
+Paula, G. A. (2004). Modelos de regressão: com apoio
+computacional. São Paulo, SP: IME-USP. (Tabela 4.14 pág. 334)
+}
+\description{
+Os dados são referentes à classificação de 1330
+    pacientes segundo três fatores: ocorrência da doença das
+    coronárias, nível de colesterol e pressão arterial. O interesse
+    está em verificar a associação destes fatores com base no número
+    de indivíduos classificados em cada combinação.
+}
+\examples{
+
+data(PaulaTb4.14)
+
+str(PaulaTb4.14)
+
+xt <- xtabs(nind ~ ., data = PaulaTb4.14)
+ftable(xt)
+plot(xt)
+
+library(lattice)
+xyplot(nind ~ colest | doenca,
+       groups = pa,
+       data = PaulaTb4.14,
+       type = c("p", "a", "g"),
+       scales = list(x = list(rot = 45)),
+       auto.key = list(
+           space = "right", cex.title = 1,
+           title = "Pressão arterial\\nem mm Hg"))
+
+}
+\references{
+Everitt, B. S. (1977). The Analysis of Contingency
+    Tables. Chapman anda Hall, London.
+}
+\keyword{contagem}
+
-- 
GitLab


From 48859a43d0713881e5e25d5cc540f9ba7ba0e98a Mon Sep 17 00:00:00 2001
From: Eduardo Junior <edujrrib@gmail.com>
Date: Sun, 24 Apr 2016 18:08:59 -0300
Subject: [PATCH 09/15] Adiciona dataset PaulaEx4.6.5

---
 R/PaulaEx4.6.5.R          |  54 ++++++++++++++++++++
 data-raw/PaulaEx4.6.5.txt | 101 ++++++++++++++++++++++++++++++++++++++
 data/PaulaEx4.6.5.rda     | Bin 0 -> 603 bytes
 man/PaulaEx4.6.5.Rd       |  63 ++++++++++++++++++++++++
 4 files changed, 218 insertions(+)
 create mode 100644 R/PaulaEx4.6.5.R
 create mode 100644 data-raw/PaulaEx4.6.5.txt
 create mode 100644 data/PaulaEx4.6.5.rda
 create mode 100644 man/PaulaEx4.6.5.Rd

diff --git a/R/PaulaEx4.6.5.R b/R/PaulaEx4.6.5.R
new file mode 100644
index 0000000..d729c39
--- /dev/null
+++ b/R/PaulaEx4.6.5.R
@@ -0,0 +1,54 @@
+#' @name PaulaEx4.6.5
+#' @title Estudo Gerontológico do Número de Quedas
+#' @description Dados provenientes de um estudo prospectivo com 100
+#'     indivíduos de pelo menos 65 anos de idade em boas condições
+#'     físicas onde se avaliou o número de quedas num período de seis
+#'     meses registrando, também, as informações: tipo de intervenção
+#'     realizada, sexo e os escores de balanço e força. O objetivo do
+#'     estudo é tentar relacionar o número médio de quedas com as
+#'     variáveis explicativas coletadas.
+#' @format Um \code{data.frame} com 100 observações e 5 variáveis.
+#'     \describe{
+#' 
+#' \item{\code{nquedas}}{Número de quedas no período de seis meses.}
+#' 
+#' \item{\code{interv}}{Fator com dois níveis que indica a intervenção
+#'     realizada (\code{E}: somente educação, \code{EF}: educação e
+#'     exercícios físicos.)}
+#' 
+#' \item{\code{sexo}}{Fator com dois níveis que indica o sexo do
+#'     indivíduo (\code{F}: feminino e \code{M}: masculino).}
+#' 
+#' \item{\code{balan}}{Escore do balanço do indivíduo, escala de 0 a 100.}
+#' 
+#' \item{\code{forca}}{Escore da força do indivíduo, escala de 0 a 100.}
+#' 
+#' }
+#' @keywords contagem
+#' @source Paula, G. A. (2004). Modelos de regressão: com apoio
+#'     computacional. São Paulo, SP: IME-USP. (Exercício 4.6.5 pág. 342)
+#'
+#' @references Neter, J., Kutner, M. H., Nachtsheim, C. J., Wasserman,
+#'     W. (1996). Applie Linear Regression Models (3tr ed.). Irwin,
+#'     Illinois.
+#' @examples
+#'
+#' data(PaulaEx4.6.5)
+#' 
+#' str(PaulaEx4.6.5)
+#' 
+#' library(lattice)
+#' 
+#' xyplot(nquedas ~ balan + forca | interv,
+#'        groups = sexo,
+#'        data = PaulaEx4.6.5,
+#'        xlab = "Escore",
+#'        type = c("p", "g", "smooth"),
+#'        scales = list(x = list(rot = 45, relation = "free")),
+#'        auto.key = list(cex.title = 1, columns = 2,
+#'                        title = "Sexo"))
+#' 
+#' splom(~ PaulaEx4.6.5[, c("nquedas", "balan", "forca")],
+#'       type = c("p", "smooth"))
+#'
+NULL
diff --git a/data-raw/PaulaEx4.6.5.txt b/data-raw/PaulaEx4.6.5.txt
new file mode 100644
index 0000000..6ec522f
--- /dev/null
+++ b/data-raw/PaulaEx4.6.5.txt
@@ -0,0 +1,101 @@
+nquedas	interv	sexo	balan	forca
+1	EF	F	45	70
+1	EF	F	62	66
+2	EF	M	43	64
+0	EF	M	76	48
+2	EF	F	51	72
+1	EF	M	73	39
+0	EF	M	40	54
+0	EF	F	66	37
+2	EF	M	80	81
+2	EF	M	56	60
+2	EF	M	59	64
+3	EF	M	81	44
+2	EF	M	28	68
+3	EF	M	76	66
+1	EF	F	37	46
+2	EF	M	45	34
+4	EF	F	80	55
+3	EF	F	41	78
+1	EF	F	32	64
+2	EF	M	48	77
+3	EF	F	81	58
+1	EF	M	43	60
+1	EF	F	66	57
+0	EF	M	52	53
+0	EF	M	63	40
+2	EF	F	33	64
+0	EF	F	74	77
+0	EF	M	73	52
+3	EF	F	79	89
+3	EF	F	56	54
+2	EF	M	47	73
+1	EF	F	38	71
+1	EF	M	28	73
+5	EF	M	51	75
+1	EF	M	40	70
+0	EF	M	83	83
+4	EF	M	43	29
+1	EF	M	40	59
+0	EF	M	19	61
+1	EF	F	63	51
+1	EF	M	33	64
+4	EF	M	13	56
+1	EF	M	62	52
+1	EF	M	53	34
+0	EF	M	42	55
+3	EF	F	92	82
+0	EF	M	54	75
+4	EF	M	56	87
+1	EF	F	28	63
+0	EF	F	39	50
+4	E	F	74	59
+11	E	F	45	87
+3	E	M	59	65
+2	E	F	48	59
+6	E	F	63	90
+3	E	M	56	43
+3	E	M	63	58
+6	E	F	75	69
+3	E	M	49	66
+3	E	F	55	68
+5	E	F	90	58
+7	E	M	98	49
+7	E	M	53	53
+4	E	F	36	30
+4	E	F	24	42
+4	E	F	33	55
+9	E	F	50	57
+7	E	F	76	80
+9	E	M	89	58
+7	E	M	65	62
+3	E	F	19	76
+3	E	M	33	62
+2	E	M	34	55
+8	E	F	73	58
+4	E	M	39	71
+2	E	M	54	57
+7	E	M	66	59
+3	E	F	51	65
+3	E	M	28	49
+2	E	M	36	51
+3	E	F	13	18
+1	E	M	54	48
+4	E	M	52	84
+4	E	F	47	83
+5	E	F	66	50
+4	E	F	31	71
+4	E	F	46	73
+4	E	F	68	72
+3	E	F	80	65
+3	E	M	67	44
+1	E	F	13	67
+3	E	F	25	89
+10	E	M	43	70
+9	E	F	73	60
+7	E	F	43	62
+5	E	M	76	46
+2	E	M	33	55
+4	E	F	69	48
+4	E	M	50	52
+2	E	F	37	56
diff --git a/data/PaulaEx4.6.5.rda b/data/PaulaEx4.6.5.rda
new file mode 100644
index 0000000000000000000000000000000000000000..0aacb15075078d3cac3da51c99714a8001e57530
GIT binary patch
literal 603
zcmV-h0;K&yT4*^jL0KkKS%Ng16aWN$f8hWASZDYD|NsC0{PaI3zra8M00aO5zycV|
zIn#wDJtwj#dY*}}lhY$jsUDh5qIpe-fIT#Np{4==0ASTWRP>r^Gf6!_8a+)KJxu@x
zfH437000d(pv_4{&;S55000000000000|U|9#8{70000Q0iXZ@pa2aFgbG86kv1Yx
zG9=n)5FkhwSpW$U5P<^$0uUiNI0X)&2q_$)AR3tp1__7~1|fjKut0${)Y2rPCrWWJ
zurh-lD<qhTG&CTAp~Di`NoyWQAAuC5M%93fbOKgbXSh_Trz!I3_}P;J3sk0jl5=*Y
zoqDRW^K@0QmCZzjHTadRghGxPZ;BC`o)_j%%%kIxo852`gQBOq(IOXaZAsWx)Tw%F
zI2)YYr*@CLv?a5nTSbDLP#}&*E3DQWZQ@K;ref|@dv$8#wCU+HP*Km$L`Fz?a+2am
zU82(JJ+Q`IvmAL;t?-*lDh4{V+1tR0<ZB<8a2aJA0N@jgS7oH*9XeU{*AtH4H266l
z2tIs_!T*o}2m%n#U?`!!$dIN@?emTs6ruzqms3d+F(Hyo{-G@fr@2~`5O*Oo!K9Fb
zy?`$mK_NterqYm_fI?CjHl!s=HspqwHrxpa_jwEm#(}W{n|(5jVpR-9CKH+)LQ6rF
zwQ@wPqksvqe6YD<^~!+0sQ&&Pm{&x5&G5@2%wZfABL15af(U8Z5K(oI+$1Oi%cp8a
pi@STNLLb;gv~I<WLn9L;3!h2cD>Oi;5dwdUxgwk>NI@D+iU8X(_QC)F

literal 0
HcmV?d00001

diff --git a/man/PaulaEx4.6.5.Rd b/man/PaulaEx4.6.5.Rd
new file mode 100644
index 0000000..ede6a86
--- /dev/null
+++ b/man/PaulaEx4.6.5.Rd
@@ -0,0 +1,63 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/PaulaEx4.6.5.R
+\name{PaulaEx4.6.5}
+\alias{PaulaEx4.6.5}
+\title{Estudo Gerontológico do Número de Quedas}
+\format{Um \code{data.frame} com 100 observações e 5 variáveis.
+    \describe{
+
+\item{\code{nquedas}}{Número de quedas no período de seis meses.}
+
+\item{\code{interv}}{Fator com dois níveis que indica a intervenção
+    realizada (\code{E}: somente educação, \code{EF}: educação e
+    exercícios físicos.)}
+
+\item{\code{sexo}}{Fator com dois níveis que indica o sexo do
+    indivíduo (\code{F}: feminino e \code{M}: masculino).}
+
+\item{\code{balan}}{Escore do balanço do indivíduo, escala de 0 a 100.}
+
+\item{\code{forca}}{Escore da força do indivíduo, escala de 0 a 100.}
+
+}}
+\source{
+Paula, G. A. (2004). Modelos de regressão: com apoio
+    computacional. São Paulo, SP: IME-USP. (Exercício 4.6.5 pág. 342)
+}
+\description{
+Dados provenientes de um estudo prospectivo com 100
+    indivíduos de pelo menos 65 anos de idade em boas condições
+    físicas onde se avaliou o número de quedas num período de seis
+    meses registrando, também, as informações: tipo de intervenção
+    realizada, sexo e os escores de balanço e força. O objetivo do
+    estudo é tentar relacionar o número médio de quedas com as
+    variáveis explicativas coletadas.
+}
+\examples{
+
+data(PaulaEx4.6.5)
+
+str(PaulaEx4.6.5)
+
+library(lattice)
+
+xyplot(nquedas ~ balan + forca | interv,
+       groups = sexo,
+       data = PaulaEx4.6.5,
+       xlab = "Escore",
+       type = c("p", "g", "smooth"),
+       scales = list(x = list(rot = 45, relation = "free")),
+       auto.key = list(cex.title = 1, columns = 2,
+                       title = "Sexo"))
+
+splom(~ PaulaEx4.6.5[, c("nquedas", "balan", "forca")],
+      type = c("p", "smooth"))
+
+}
+\references{
+Neter, J., Kutner, M. H., Nachtsheim, C. J., Wasserman,
+    W. (1996). Applie Linear Regression Models (3tr ed.). Irwin,
+    Illinois.
+}
+\keyword{contagem}
+
-- 
GitLab


From 15cb86195cc5399e1d29adba91ef8d1831696cfe Mon Sep 17 00:00:00 2001
From: Eduardo Junior <edujrrib@gmail.com>
Date: Sun, 24 Apr 2016 19:16:55 -0300
Subject: [PATCH 10/15] Adiciona dataset PaulaEx4.6.6

---
 R/PaulaEx4.6.6.R          |  72 +++++++++++++++++++++++++++++++++
 data-raw/PaulaEx4.6.6.txt |  73 ++++++++++++++++++++++++++++++++++
 data/PaulaEx4.6.6.rda     | Bin 0 -> 1036 bytes
 man/PaulaEx4.6.6.Rd       |  81 ++++++++++++++++++++++++++++++++++++++
 4 files changed, 226 insertions(+)
 create mode 100644 R/PaulaEx4.6.6.R
 create mode 100644 data-raw/PaulaEx4.6.6.txt
 create mode 100644 data/PaulaEx4.6.6.rda
 create mode 100644 man/PaulaEx4.6.6.Rd

diff --git a/R/PaulaEx4.6.6.R b/R/PaulaEx4.6.6.R
new file mode 100644
index 0000000..6d0f343
--- /dev/null
+++ b/R/PaulaEx4.6.6.R
@@ -0,0 +1,72 @@
+#' @name PaulaEx4.6.6
+#' @title Câncer Nasal em Trabalhadores de Refinaria de uma Níquel
+#' @description Dados provenientes de um estudo de seguimento onde
+#'     acompanhou-se trabalhadores de uma refinaria de níquel no País de
+#'     Gales durante um período e avaliou-se o número de ocorrências de
+#'     câncer nasal. O interesse no estudo é avaliar a associação entre
+#'     a taxa anual de câncer nasal e as variáveis explicativas: idade
+#'     no primeiro emprego, ano do primeiro emprego e tempo decorrido
+#'     desde o primeiro emprego.
+#' @format Um \code{data.frame} com 72 observações e 5 variáveis.
+#'     \describe{
+#' 
+#' \item{\code{idade}}{Fator com quatro níveis que indica a idade do
+#'     trabalhodor no seu primeiro emprego, em anos categorizados nos
+#'     níveis \code{<20}, \code{20-27}, \code{27.5-34.9} e \code{>35}.}
+#' 
+#' \item{\code{ano}}{Fator com quatro níveis que indica o ano do
+#'     primeiro emprego (\code{<1910}, \code{1910-1914},
+#'     \code{1915-1919} e \code{1920-1924}).}
+#' 
+#' \item{\code{tempo}}{Fator com cinco níveis que indica o tempo
+#'     decorrido desde o primeiro emprego, em anos categorizados nos
+#'     níveis \code{0-19}, \code{20-39}, \code{30-39}, \code{40-49} e
+#'     \code{>50}.}
+#' 
+#' \item{\code{ncasos}}{Número de casos de câncer nasal.}
+#' 
+#' \item{\code{tpessoas}}{Total de pessoas por ano de observação.}
+#' 
+#' }
+#' @keywords contagem
+#' @source Paula, G. A. (2004). Modelos de regressão: com apoio
+#' computacional. São Paulo, SP: IME-USP. (0.0 pág. 000)
+#'
+#' @references Breslow, N. E., Day, N. E. (1987). Statistical Methods in
+#'     Cancer Research (vol. II). IARC Scientific Publications,
+#'     International Agency for Research  on Cancer, Lyon.
+#' @examples
+#'
+#' data(PaulaEx4.6.6)
+#' 
+#' str(PaulaEx4.6.6)
+#' 
+#' # Número de observações em cada combinação das variáveis explicativas
+#' # Para modelagem não será possível a estimação de algumas interações
+#' ftable(PaulaEx4.6.6[, c("idade", "ano", "tempo")])
+#' 
+#' # Casos de câncer seccionados pelas variáveis explicativas
+#' ftable(xtabs(ncasos ~ idade + ano + tempo, data = PaulaEx4.6.6))
+#' xt <- xtabs((ncasos/tpessoas)*100 ~ ., data = PaulaEx4.6.6)
+#' ftable(xt)
+#' plot(xt)
+#' 
+#' library(lattice)
+#' 
+#' xyplot((ncasos/tpessoas)*100 ~ tempo | ano,
+#'        groups = idade,
+#'        data = PaulaEx4.6.6,
+#'        type = c("p", "g", "a"),
+#'        auto.key = list(space = "right", cex.title = 1,
+#'                        title = "Idade"))
+#' 
+#' # Retirando a observação que domina a escala do eixo y
+#' index <- with(PaulaEx4.6.6, which.max(ncasos/tpessoas))
+#' xyplot((ncasos/tpessoas)*100 ~ tempo | ano,
+#'        groups = idade,
+#'        data = PaulaEx4.6.6[-index, ],
+#'        type = c("p", "g", "a"),
+#'        auto.key = list(space = "right", cex.title = 1,
+#'                        title = "Idade"))
+#'
+NULL
diff --git a/data-raw/PaulaEx4.6.6.txt b/data-raw/PaulaEx4.6.6.txt
new file mode 100644
index 0000000..47f8ef7
--- /dev/null
+++ b/data-raw/PaulaEx4.6.6.txt
@@ -0,0 +1,73 @@
+idade	ano	tempo	ncasos	tpessoas
+<20	<1910	20-39	0	19.406
+<20	<1910	>50	0	33.209
+<20	1910-1914	30-39	0	179.501
+<20	1915-1919	0-19	0	71.4
+<20	1915-1919	40-49	0	210.773
+<20	1920-1924	20-39	0	344.109
+<20	1920-1924	>50	0	176.503
+20-27	<1910	40-49	0	304.922
+20-27	1910-1914	20-39	1	528.066
+20-27	1910-1914	>50	2	97.982
+20-27	1915-1919	30-39	0	206.343
+20-27	1920-1924	0-19	0	1021.139
+20-27	1920-1924	40-49	3	585.779
+27.5-34.9	<1910	30-39	1	262.567
+27.5-34.9	1910-1914	0-19	0	3.824
+27.5-34.9	1910-1914	40-49	3	90.851
+27.5-34.9	1915-1919	20-39	2	169.654
+27.5-34.9	1915-1919	>50	1	0.84
+27.5-34.9	1920-1924	30-39	1	458.838
+>35	<1910	20-39	0	14.773
+>35	1910-1914	0-19	0	3.176
+>35	1910-1914	40-49	0	7.258
+>35	1915-1919	30-39	1	68.881
+>35	1920-1924	20-39	3	319.077
+<20	<1910	30-39	0	70
+<20	1910-1914	0-19	0	2.166
+<20	1910-1914	40-49	1	121.217
+<20	1915-1919	20-39	0	267.774
+<20	1915-1919	>50	0	157.445
+<20	1920-1924	30-39	0	315.17
+20-27	<1910	20-39	1	174.418
+20-27	<1910	>50	2	142.282
+20-27	1910-1914	30-39	4	497.481
+20-27	1915-1919	0-19	0	82.886
+20-27	1915-1919	40-49	2	111.541
+20-27	1920-1924	20-39	1	1088.072
+20-27	1920-1924	>50	0	250.398
+27.5-34.9	<1910	40-49	1	151.76
+27.5-34.9	1910-1914	20-39	3	330.71
+27.5-34.9	1910-1914	>50	0	19.54
+27.5-34.9	1915-1919	30-39	1	111.962
+27.5-34.9	1920-1924	0-19	0	679.445
+27.5-34.9	1920-1924	40-49	1	183.701
+>35	<1910	30-39	0	36.57
+>35	1910-1914	20-39	2	164.801
+>35	1915-1919	0-19	0	34.54
+>35	1915-1919	40-49	0	4.382
+>35	1920-1924	30-39	0	141.845
+<20	<1910	40-49	0	52.836
+<20	1910-1914	20-39	1	175.294
+<20	1910-1914	>50	0	77.877
+<20	1915-1919	30-39	0	267.714
+<20	1920-1924	0-19	0	279.472
+<20	1920-1924	40-49	0	267.32
+20-27	<1910	30-39	2	521.768
+20-27	1910-1914	0-19	0	3.831
+20-27	1910-1914	40-49	2	279.542
+20-27	1915-1919	20-39	0	253.653
+20-27	1915-1919	>50	0	45.434
+20-27	1920-1924	30-39	0	869.314
+27.5-34.9	<1910	20-39	3	116.939
+27.5-34.9	<1910	>50	1	32.238
+27.5-34.9	1910-1914	30-39	2	265.273
+27.5-34.9	1915-1919	0-19	0	49.453
+27.5-34.9	1915-1919	40-49	0	55.06
+27.5-34.9	1920-1924	20-39	0	686.531
+27.5-34.9	1920-1924	>50	0	42.665
+>35	<1910	40-49	0	17.29
+>35	1910-1914	30-39	5	56.13
+>35	1915-1919	20-39	2	124.253
+>35	1920-1924	0-19	1	354.72
+>35	1920-1924	40-49	0	17.203
diff --git a/data/PaulaEx4.6.6.rda b/data/PaulaEx4.6.6.rda
new file mode 100644
index 0000000000000000000000000000000000000000..00bcd0c4fc412fc80816006b0816f1faec5a9b3f
GIT binary patch
literal 1036
zcmV+n1oQhsT4*^jL0KkKS(!727XSl&fB*mg{onQb|L_0*|6l+A|MmL1uKwzuSN&ge
zQmVSYqwBx|`~gcwfM}5f!kT2!qeC?sX!RNz4Af{1G<t(WCYm0Rqtx{pGJ2Y1GCe@`
zG<qhUpvW?4(?In-L6br1WW@5AN2XKM+G-#)4FQp$G#Y4R0MkPR$Y=vhK+qWhrXT<^
z001-rrV)TZ0g%uD00aPOpky>?XaHyinhZe5XaF<-115k0kOoaMG|`cu&;S9T1|g$O
zFq#-3Bv6Dv(qz=pko7eEKnbHpntr78(KPgf1YjYMX`mV&ra|f&Xf%33qfAT!7$K&H
z1i(gtkYvlrM3b43j0QJ!;^N~XC{TeYr~uP~2_n%kx+W=15K=;ELIQv=Wf3SrV`niL
z-3c_vDa16I8zTY(VCey55RoLtFq#f@4Ur-y4K&#b;xo<)+C)UD4JMzV|HSD<jgAF?
zTV3fHMWpEoD*>dEvylqSB$^Pbdv>-mf!gEuQW8lO?En<mfG4>sO-d?P={vR#zIysD
zXI04vrjVKvz1Bcj2H9@vut#FRD$L*{cXL8RZ4}VK389ef{T4+O=|Kd|2^P&Hh2hnL
z6k10CrMAZUkca_M=>E<ycajR^WV{WaRx@dW6^+)@DX|r%7Ay3N^0B0xq8ODyaCX<2
z^(E(E@En~j)`cFL*4!)I>5nojZCX~zTprKE$|+)MR&ZKMS(C13a9J}J>gD3wa>Yt(
zq0KyD<+6gt#oO6YKXn<rih6<tGv_ZOYeKMK4|osC9K#y<3AYxkngqiR`OR-MPJNj#
zQw!KBwYaluPbp_N3wK|a?w&*rKSVZzX2g;%N%@WZB1XoNS<g<pD8tKZw~Z>MVGj;=
zfgijuA;M&0#DemZ)C+)gqTbOahabcsXz+E@Is;6nI&(pfRqmXEwPlYgLCQ??;T1E;
znA2-aB*s`EKA#BHd`$vh4|MXhmO6SU<(?{2M7UI7Tcom<WRmib>1I<;+_@a-B*UDV
zg03Uv9Xq<a?ZQGjMOIW9icf^1`o6>*u_Yk2OuTRTuCAp`S5lo=;H3-u`hlj*5}N<x
zqSCvpg`E_pi71(P+R2lJA26W-Q~Vz~7dE<`MtH5l&KRbh2{_`QZNAzRpgl1T*wZpQ
zo0#Mawt<qFabbELz(B&DHADLt-if=$RAvLhtY+D6DE|nTO6XUC0el-lKWlhUFP&_5
z<S@Rb&l;r5VIy~b`)A`YAN8<Gf;dTz^!=73F6#_(zyZ}j3;&Jx@j!ou7>r^OAsKIS
z3lu>D9zny1xZ>KzbrML)w0JFB<Hw6R7-VTqyMt6#(=wtqVuXc}HyXf~{9VZu;X*=W
G&KO)e%-g5{

literal 0
HcmV?d00001

diff --git a/man/PaulaEx4.6.6.Rd b/man/PaulaEx4.6.6.Rd
new file mode 100644
index 0000000..efef473
--- /dev/null
+++ b/man/PaulaEx4.6.6.Rd
@@ -0,0 +1,81 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/PaulaEx4.6.6.R
+\name{PaulaEx4.6.6}
+\alias{PaulaEx4.6.6}
+\title{Câncer Nasal em Trabalhadores de Refinaria de uma Níquel}
+\format{Um \code{data.frame} com 72 observações e 5 variáveis.
+    \describe{
+
+\item{\code{idade}}{Fator com quatro níveis que indica a idade do
+    trabalhodor no seu primeiro emprego, em anos categorizados nos
+    níveis \code{<20}, \code{20-27}, \code{27.5-34.9} e \code{>35}.}
+
+\item{\code{ano}}{Fator com quatro níveis que indica o ano do
+    primeiro emprego (\code{<1910}, \code{1910-1914},
+    \code{1915-1919} e \code{1920-1924}).}
+
+\item{\code{tempo}}{Fator com cinco níveis que indica o tempo
+    decorrido desde o primeiro emprego, em anos categorizados nos
+    níveis \code{0-19}, \code{20-39}, \code{30-39}, \code{40-49} e
+    \code{>50}.}
+
+\item{\code{ncasos}}{Número de casos de câncer nasal.}
+
+\item{\code{tpessoas}}{Total de pessoas por ano de observação.}
+
+}}
+\source{
+Paula, G. A. (2004). Modelos de regressão: com apoio
+computacional. São Paulo, SP: IME-USP. (0.0 pág. 000)
+}
+\description{
+Dados provenientes de um estudo de seguimento onde
+    acompanhou-se trabalhadores de uma refinaria de níquel no País de
+    Gales durante um período e avaliou-se o número de ocorrências de
+    câncer nasal. O interesse no estudo é avaliar a associação entre
+    a taxa anual de câncer nasal e as variáveis explicativas: idade
+    no primeiro emprego, ano do primeiro emprego e tempo decorrido
+    desde o primeiro emprego.
+}
+\examples{
+
+data(PaulaEx4.6.6)
+
+str(PaulaEx4.6.6)
+
+# Número de observações em cada combinação das variáveis explicativas
+# Para modelagem não será possível a estimação de algumas interações
+ftable(PaulaEx4.6.6[, c("idade", "ano", "tempo")])
+
+# Casos de câncer seccionados pelas variáveis explicativas
+ftable(xtabs(ncasos ~ idade + ano + tempo, data = PaulaEx4.6.6))
+xt <- xtabs((ncasos/tpessoas)*100 ~ ., data = PaulaEx4.6.6)
+ftable(xt)
+plot(xt)
+
+library(lattice)
+
+xyplot((ncasos/tpessoas)*100 ~ tempo | ano,
+       groups = idade,
+       data = PaulaEx4.6.6,
+       type = c("p", "g", "a"),
+       auto.key = list(space = "right", cex.title = 1,
+                       title = "Idade"))
+
+# Retirando a observação que domina a escala do eixo y
+index <- with(PaulaEx4.6.6, which.max(ncasos/tpessoas))
+xyplot((ncasos/tpessoas)*100 ~ tempo | ano,
+       groups = idade,
+       data = PaulaEx4.6.6[-index, ],
+       type = c("p", "g", "a"),
+       auto.key = list(space = "right", cex.title = 1,
+                       title = "Idade"))
+
+}
+\references{
+Breslow, N. E., Day, N. E. (1987). Statistical Methods in
+    Cancer Research (vol. II). IARC Scientific Publications,
+    International Agency for Research  on Cancer, Lyon.
+}
+\keyword{contagem}
+
-- 
GitLab


From 34ae7d9da47c4be37834f0be70640b668cfed59d Mon Sep 17 00:00:00 2001
From: Eduardo Junior <edujrrib@gmail.com>
Date: Sun, 24 Apr 2016 19:46:23 -0300
Subject: [PATCH 11/15] Adiciona dataset PaulaEx4.6.7

---
 R/PaulaEx4.6.7.R          |  32 +++++++++++++++++++++++++++++
 data-raw/PaulaEx4.6.7.txt |  33 ++++++++++++++++++++++++++++++
 data/PaulaEx4.6.7.rda     | Bin 0 -> 290 bytes
 man/PaulaEx4.6.7.Rd       |  42 ++++++++++++++++++++++++++++++++++++++
 4 files changed, 107 insertions(+)
 create mode 100644 R/PaulaEx4.6.7.R
 create mode 100644 data-raw/PaulaEx4.6.7.txt
 create mode 100644 data/PaulaEx4.6.7.rda
 create mode 100644 man/PaulaEx4.6.7.Rd

diff --git a/R/PaulaEx4.6.7.R b/R/PaulaEx4.6.7.R
new file mode 100644
index 0000000..054fab0
--- /dev/null
+++ b/R/PaulaEx4.6.7.R
@@ -0,0 +1,32 @@
+#' @name PaulaEx4.6.7
+#' @title Número de Falhas em Peças de Tecido
+#' @description Dados referentes à produção de peças de tecido em uma
+#'     determinada fábrica. A fábrica registra o comprimento da peça
+#'     produzida e o número de falhas encontradas na peça.
+#' @format Um \code{data.frame} com 32 observações e 2 variáveis.
+#' \describe{
+#' 
+#' \item{\code{comp}}{Comprimento da peça de tecido produzida, em metros.}
+#' 
+#' \item{\code{nfalhas}}{Número de falhas encontradas na peça.}
+#' 
+#' }
+#' @keywords contagem superdispersão
+#' @source Paula, G. A. (2004). Modelos de regressão: com apoio
+#'     computacional. São Paulo, SP: IME-USP. (Exercício 4.6.7 pág. 343)
+#'
+#' @references Hinde, J. (1982). Compound Poisson Regression Models in R
+#'     (Gilchrist ed.). Springer, New York.
+#' @examples
+#'
+#' data(PaulaEx4.6.7)
+#' 
+#' str(PaulaEx4.6.7)
+#'
+#' library(lattice)
+#' xyplot(nfalhas ~ comp, data = PaulaEx4.6.7,
+#'        type = c("p", "g", "smooth"))
+#' 
+#' histogram( ~nfalhas/comp, data = PaulaEx4.6.7)
+#'
+NULL
diff --git a/data-raw/PaulaEx4.6.7.txt b/data-raw/PaulaEx4.6.7.txt
new file mode 100644
index 0000000..6a4c164
--- /dev/null
+++ b/data-raw/PaulaEx4.6.7.txt
@@ -0,0 +1,33 @@
+comp	nfalhas
+551	6
+651	4
+832	17
+375	9
+715	14
+868	8
+271	5
+630	7
+491	7
+372	7
+645	6
+441	8
+895	28
+458	4
+642	10
+492	4
+543	8
+842	9
+905	23
+542	9
+522	6
+122	1
+657	9
+170	4
+738	9
+371	14
+735	17
+749	10
+495	7
+716	3
+952	9
+417	2
diff --git a/data/PaulaEx4.6.7.rda b/data/PaulaEx4.6.7.rda
new file mode 100644
index 0000000000000000000000000000000000000000..33e6b0dd61f3eddb7d54f517991ea1b29190484e
GIT binary patch
literal 290
zcmV+-0p0#WT4*^jL0KkKS-rX3^8f(I|NsB@=!L+66@W$%P(Uw7-_X)1AOIi`0AK(d
z007VqfB~=o)s#gL^)&RF4FCbAfB*nA9;4Jen@S3rdO&0WGH3t*G|0#R$N&OG5Tn#-
zk)UBT&@^PxlW7_QMt}x{K;{O~OhwEDaWaDAIpmTUm?KQ6qb|CElROU;TwDPFkStc6
z37zsT3V_CB!+_@T)WX;W|3dx}AlZGLZy-y(I~1q|pflg46aY}bBGMm0_S8^}39w=i
z!J>wem55EGFE&HI2~5IPNHO?j^sPRBB7a$+ZF{`FkD{Q4Hx$>cEyXZd#aPb(StO*B
oTXg2S&Bp<jLFkf~!LcfAmN9`9{NOhs5&w(1BAh5lUfk|^fW{1c?*IS*

literal 0
HcmV?d00001

diff --git a/man/PaulaEx4.6.7.Rd b/man/PaulaEx4.6.7.Rd
new file mode 100644
index 0000000..c6a387c
--- /dev/null
+++ b/man/PaulaEx4.6.7.Rd
@@ -0,0 +1,42 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/PaulaEx4.6.7.R
+\name{PaulaEx4.6.7}
+\alias{PaulaEx4.6.7}
+\title{Número de Falhas em Peças de Tecido}
+\format{Um \code{data.frame} com 32 observações e 2 variáveis.
+\describe{
+
+\item{\code{comp}}{Comprimento da peça de tecido produzida, em metros.}
+
+\item{\code{nfalhas}}{Número de falhas encontradas na peça.}
+
+}}
+\source{
+Paula, G. A. (2004). Modelos de regressão: com apoio
+    computacional. São Paulo, SP: IME-USP. (Exercício 4.6.7 pág. 343)
+}
+\description{
+Dados referentes à produção de peças de tecido em uma
+    determinada fábrica. A fábrica registra o comprimento da peça
+    produzida e o número de falhas encontradas na peça.
+}
+\examples{
+
+data(PaulaEx4.6.7)
+
+str(PaulaEx4.6.7)
+
+library(lattice)
+xyplot(nfalhas ~ comp, data = PaulaEx4.6.7,
+       type = c("p", "g", "smooth"))
+
+histogram( ~nfalhas/comp, data = PaulaEx4.6.7)
+
+}
+\references{
+Hinde, J. (1982). Compound Poisson Regression Models in R
+    (Gilchrist ed.). Springer, New York.
+}
+\keyword{contagem}
+\keyword{superdispersão}
+
-- 
GitLab


From 07f0eb18bbcef11c50c25652eb9add7b0e137b94 Mon Sep 17 00:00:00 2001
From: Eduardo Junior <edujrrib@gmail.com>
Date: Sun, 24 Apr 2016 21:53:14 -0300
Subject: [PATCH 12/15] Adiciona dataset PaulaEx4.6.15

---
 R/PaulaEx4.6.15.R          |  70 +++++++++
 data-raw/PaulaEx4.6.15.txt | 288 +++++++++++++++++++++++++++++++++++++
 data/PaulaEx4.6.15.rda     | Bin 0 -> 486 bytes
 man/PaulaEx4.6.15.Rd       |  80 +++++++++++
 4 files changed, 438 insertions(+)
 create mode 100644 R/PaulaEx4.6.15.R
 create mode 100644 data-raw/PaulaEx4.6.15.txt
 create mode 100644 data/PaulaEx4.6.15.rda
 create mode 100644 man/PaulaEx4.6.15.Rd

diff --git a/R/PaulaEx4.6.15.R b/R/PaulaEx4.6.15.R
new file mode 100644
index 0000000..062383b
--- /dev/null
+++ b/R/PaulaEx4.6.15.R
@@ -0,0 +1,70 @@
+#' @name PaulaEx4.6.15
+#' @title Número de Infecções de Ouvido em Recrutas Americanos
+#' @description Dados referentes a um estudo realizado em 1990 com
+#'     recrutas americanos onde a variável de interesse era o número de
+#'     infecções de ouvido. Para associação com a infecção de ouvido,
+#'     foram coletadas as seguintes informações sobre os recrutas:
+#'     hábito de nadar, local em que costuma nadar, idade e sexo.
+#' @format Um \code{data.frame} com 287 observações e 5 variáveis.
+#'     \describe{
+#' 
+#' \item{\code{habito}}{Fator com dois níveis que indica o hábito em
+#'     nadar do recruta (\code{ocasional} ou \code{frequente}).}
+#' 
+#' \item{\code{local}}{Fator com dois níveis que indica o local onde o
+#'     recruta costuma nadar (\code{praia} ou \code{piscina}).}
+#' 
+#' \item{\code{idade}}{Idade do recruta, em anos categorizados em três
+#'     níveis \code{15-19}, \code{20-24} e \code{25-29}.}
+#' 
+#' \item{\code{sexo}}{Sexo, \code{F} para feminino e \code{M} para masculino.}
+#' 
+#' \item{\code{ninfec}}{Número de infecções de ouvido diagnósticadas
+#'     pelo próprio recruta.}
+#' 
+#' }
+#' @keywords contagem superdispersão
+#' @source Paula, G. A. (2004). Modelos de regressão: com apoio
+#'     computacional. São Paulo, SP: IME-USP. (Exercício 4.6.15
+#'     pág. 346)
+#'
+#' @references Hand, D. J, Daly, F., Lunn, A. D., McConway, K. J.,
+#'     Ostrowski, E. (1994). A Handbook of Small Data Sets. Chapman and
+#'     Hall, London.
+#' @examples
+#'
+#' data(PaulaEx4.6.15)
+#' 
+#' str(PaulaEx4.6.15)
+#' 
+#' xt <- xtabs(ninfec ~ ., data = PaulaEx4.6.15)
+#' ftable(prop.table(xt))
+#' plot(xt)
+#' 
+#' mv <- aggregate(ninfec ~ ., FUN = function(x)
+#'     c(mu = mean(x), var = var(x)), data = PaulaEx4.6.15)
+#' 
+#' library(lattice)
+#' 
+#' # Relação Média Variância
+#' xyplot(ninfec[, "var"] ~ ninfec[, "mu"],
+#'         data = mv,
+#'         ylab = "Variância amostral",
+#'         xlab = "Média amostral",
+#'         panel = function(x, y) {
+#'             panel.xyplot(x, y, type = c("p", "r"), grid = TRUE)
+#'             panel.abline(a = 0, b = 1, lty = 2)
+#'         })
+#' 
+#' library(latticeExtra)
+#' useOuterStrips(    
+#'     xyplot(ninfec ~ idade | habito + local,
+#'            groups = sexo,
+#'            data = PaulaEx4.6.15,
+#'            jitter.x = TRUE, jitter.y = TRUE,
+#'            type = c("p", "g", "a"),
+#'            auto.key = list(space = "right", cex.title = 1,
+#'                            title = "Sexo"))
+#'     )
+#'
+NULL
diff --git a/data-raw/PaulaEx4.6.15.txt b/data-raw/PaulaEx4.6.15.txt
new file mode 100644
index 0000000..2902476
--- /dev/null
+++ b/data-raw/PaulaEx4.6.15.txt
@@ -0,0 +1,288 @@
+habito	local	idade	sexo	ninfec
+ocasional	piscina	15-19	M	0
+ocasional	piscina	15-19	M	0
+ocasional	piscina	15-19	M	0
+ocasional	piscina	15-19	M	0
+ocasional	piscina	15-19	M	0
+ocasional	piscina	15-19	M	0
+ocasional	piscina	15-19	M	0
+ocasional	piscina	15-19	M	0
+ocasional	piscina	15-19	M	0
+ocasional	piscina	15-19	M	0
+ocasional	piscina	15-19	M	0
+ocasional	piscina	15-19	M	1
+ocasional	piscina	15-19	M	1
+ocasional	piscina	15-19	M	1
+ocasional	piscina	15-19	M	1
+ocasional	piscina	15-19	M	1
+ocasional	piscina	15-19	M	1
+ocasional	piscina	15-19	M	1
+ocasional	piscina	15-19	M	2
+ocasional	piscina	15-19	M	2
+ocasional	piscina	15-19	M	2
+ocasional	piscina	15-19	M	2
+ocasional	piscina	15-19	M	3
+ocasional	piscina	15-19	M	3
+ocasional	piscina	15-19	M	3
+ocasional	piscina	15-19	M	3
+ocasional	piscina	15-19	M	4
+ocasional	piscina	15-19	M	4
+ocasional	piscina	15-19	M	6
+ocasional	piscina	15-19	M	11
+ocasional	piscina	15-19	M	16
+ocasional	piscina	15-19	F	0
+ocasional	piscina	15-19	F	0
+ocasional	piscina	15-19	F	4
+ocasional	piscina	15-19	F	10
+ocasional	piscina	20-24	M	0
+ocasional	piscina	20-24	M	0
+ocasional	piscina	20-24	M	0
+ocasional	piscina	20-24	M	0
+ocasional	piscina	20-24	M	1
+ocasional	piscina	20-24	M	2
+ocasional	piscina	20-24	M	2
+ocasional	piscina	20-24	M	2
+ocasional	piscina	20-24	M	3
+ocasional	piscina	20-24	M	3
+ocasional	piscina	20-24	M	5
+ocasional	piscina	20-24	M	17
+ocasional	piscina	20-24	F	0
+ocasional	piscina	20-24	F	0
+ocasional	piscina	20-24	F	0
+ocasional	piscina	20-24	F	0
+ocasional	piscina	20-24	F	0
+ocasional	piscina	20-24	F	1
+ocasional	piscina	20-24	F	2
+ocasional	piscina	20-24	F	3
+ocasional	piscina	20-24	F	3
+ocasional	piscina	20-24	F	3
+ocasional	piscina	20-24	F	4
+ocasional	piscina	25-29	M	1
+ocasional	piscina	25-29	M	1
+ocasional	piscina	25-29	M	2
+ocasional	piscina	25-29	M	3
+ocasional	piscina	25-29	M	4
+ocasional	piscina	25-29	M	4
+ocasional	piscina	25-29	M	10
+ocasional	piscina	25-29	F	0
+ocasional	piscina	25-29	F	0
+ocasional	piscina	25-29	F	2
+ocasional	piscina	25-29	F	2
+frequente	piscina	15-19	M	0
+frequente	piscina	15-19	M	0
+frequente	piscina	15-19	M	0
+frequente	piscina	15-19	M	0
+frequente	piscina	15-19	M	0
+frequente	piscina	15-19	M	0
+frequente	piscina	15-19	M	0
+frequente	piscina	15-19	M	0
+frequente	piscina	15-19	M	0
+frequente	piscina	15-19	M	0
+frequente	piscina	15-19	M	0
+frequente	piscina	15-19	M	0
+frequente	piscina	15-19	M	0
+frequente	piscina	15-19	M	0
+frequente	piscina	15-19	M	0
+frequente	piscina	15-19	M	1
+frequente	piscina	15-19	M	1
+frequente	piscina	15-19	M	1
+frequente	piscina	15-19	M	2
+frequente	piscina	15-19	M	2
+frequente	piscina	15-19	M	2
+frequente	piscina	15-19	M	2
+frequente	piscina	15-19	M	2
+frequente	piscina	15-19	M	3
+frequente	piscina	15-19	M	3
+frequente	piscina	15-19	M	3
+frequente	piscina	15-19	M	3
+frequente	piscina	15-19	M	3
+frequente	piscina	15-19	M	4
+frequente	piscina	15-19	M	4
+frequente	piscina	15-19	M	4
+frequente	piscina	15-19	M	5
+frequente	piscina	15-19	F	0
+frequente	piscina	15-19	F	0
+frequente	piscina	15-19	F	0
+frequente	piscina	15-19	F	6
+frequente	piscina	20-24	M	0
+frequente	piscina	20-24	M	0
+frequente	piscina	20-24	M	0
+frequente	piscina	20-24	M	0
+frequente	piscina	20-24	M	0
+frequente	piscina	20-24	M	0
+frequente	piscina	20-24	M	0
+frequente	piscina	20-24	M	1
+frequente	piscina	20-24	M	1
+frequente	piscina	20-24	M	2
+frequente	piscina	20-24	M	2
+frequente	piscina	20-24	M	3
+frequente	piscina	20-24	M	3
+frequente	piscina	20-24	F	0
+frequente	piscina	20-24	F	0
+frequente	piscina	20-24	F	0
+frequente	piscina	20-24	F	0
+frequente	piscina	20-24	F	0
+frequente	piscina	20-24	F	1
+frequente	piscina	20-24	F	1
+frequente	piscina	20-24	F	2
+frequente	piscina	20-24	F	2
+frequente	piscina	20-24	F	3
+frequente	piscina	25-29	M	0
+frequente	piscina	25-29	M	0
+frequente	piscina	25-29	M	0
+frequente	piscina	25-29	M	0
+frequente	piscina	25-29	M	1
+frequente	piscina	25-29	M	1
+frequente	piscina	25-29	M	3
+frequente	piscina	25-29	M	3
+frequente	piscina	25-29	F	0
+frequente	piscina	25-29	F	0
+frequente	piscina	25-29	F	0
+frequente	piscina	25-29	F	1
+ocasional	praia	15-19	M	0
+ocasional	praia	15-19	M	0
+ocasional	praia	15-19	M	0
+ocasional	praia	15-19	M	0
+ocasional	praia	15-19	M	0
+ocasional	praia	15-19	M	0
+ocasional	praia	15-19	M	0
+ocasional	praia	15-19	M	0
+ocasional	praia	15-19	M	0
+ocasional	praia	15-19	M	0
+ocasional	praia	15-19	M	0
+ocasional	praia	15-19	M	1
+ocasional	praia	15-19	M	1
+ocasional	praia	15-19	M	2
+ocasional	praia	15-19	M	2
+ocasional	praia	15-19	M	3
+ocasional	praia	15-19	M	4
+ocasional	praia	15-19	M	4
+ocasional	praia	15-19	M	4
+ocasional	praia	15-19	M	9
+ocasional	praia	15-19	F	0
+ocasional	praia	15-19	F	0
+ocasional	praia	15-19	F	0
+ocasional	praia	15-19	F	0
+ocasional	praia	15-19	F	0
+ocasional	praia	15-19	F	0
+ocasional	praia	15-19	F	0
+ocasional	praia	15-19	F	0
+ocasional	praia	15-19	F	0
+ocasional	praia	15-19	F	1
+ocasional	praia	15-19	F	2
+ocasional	praia	15-19	F	3
+ocasional	praia	15-19	F	3
+ocasional	praia	15-19	F	6
+ocasional	praia	15-19	F	9
+ocasional	praia	20-24	M	0
+ocasional	praia	20-24	M	0
+ocasional	praia	20-24	M	0
+ocasional	praia	20-24	M	0
+ocasional	praia	20-24	M	0
+ocasional	praia	20-24	M	0
+ocasional	praia	20-24	M	1
+ocasional	praia	20-24	F	0
+ocasional	praia	20-24	F	0
+ocasional	praia	20-24	F	0
+ocasional	praia	20-24	F	0
+ocasional	praia	20-24	F	0
+ocasional	praia	20-24	F	1
+ocasional	praia	20-24	F	1
+ocasional	praia	20-24	F	2
+ocasional	praia	20-24	F	3
+ocasional	praia	25-29	M	0
+ocasional	praia	25-29	M	0
+ocasional	praia	25-29	M	0
+ocasional	praia	25-29	M	0
+ocasional	praia	25-29	M	0
+ocasional	praia	25-29	M	0
+ocasional	praia	25-29	M	0
+ocasional	praia	25-29	M	0
+ocasional	praia	25-29	M	0
+ocasional	praia	25-29	M	0
+ocasional	praia	25-29	M	0
+ocasional	praia	25-29	M	1
+ocasional	praia	25-29	M	1
+ocasional	praia	25-29	M	2
+ocasional	praia	25-29	M	2
+ocasional	praia	25-29	M	9
+ocasional	praia	25-29	F	0
+ocasional	praia	25-29	F	0
+ocasional	praia	25-29	F	0
+ocasional	praia	25-29	F	1
+ocasional	praia	25-29	F	3
+ocasional	praia	25-29	F	4
+ocasional	praia	25-29	F	5
+ocasional	praia	25-29	F	6
+frequente	praia	15-19	M	0
+frequente	praia	15-19	M	0
+frequente	praia	15-19	M	0
+frequente	praia	15-19	M	0
+frequente	praia	15-19	M	0
+frequente	praia	15-19	M	0
+frequente	praia	15-19	M	0
+frequente	praia	15-19	M	0
+frequente	praia	15-19	M	0
+frequente	praia	15-19	M	0
+frequente	praia	15-19	M	0
+frequente	praia	15-19	M	0
+frequente	praia	15-19	M	1
+frequente	praia	15-19	M	1
+frequente	praia	15-19	M	1
+frequente	praia	15-19	M	2
+frequente	praia	15-19	M	2
+frequente	praia	15-19	M	2
+frequente	praia	15-19	M	2
+frequente	praia	15-19	M	5
+frequente	praia	15-19	F	0
+frequente	praia	15-19	F	0
+frequente	praia	15-19	F	0
+frequente	praia	15-19	F	0
+frequente	praia	15-19	F	0
+frequente	praia	15-19	F	0
+frequente	praia	15-19	F	0
+frequente	praia	15-19	F	0
+frequente	praia	15-19	F	1
+frequente	praia	15-19	F	2
+frequente	praia	15-19	F	2
+frequente	praia	15-19	F	2
+frequente	praia	15-19	F	3
+frequente	praia	15-19	F	10
+frequente	praia	20-24	M	0
+frequente	praia	20-24	M	0
+frequente	praia	20-24	M	0
+frequente	praia	20-24	M	0
+frequente	praia	20-24	M	1
+frequente	praia	20-24	M	1
+frequente	praia	20-24	M	5
+frequente	praia	20-24	F	0
+frequente	praia	20-24	F	0
+frequente	praia	20-24	F	0
+frequente	praia	20-24	F	0
+frequente	praia	20-24	F	0
+frequente	praia	20-24	F	0
+frequente	praia	20-24	F	1
+frequente	praia	20-24	F	1
+frequente	praia	20-24	F	1
+frequente	praia	20-24	F	2
+frequente	praia	25-29	M	0
+frequente	praia	25-29	M	0
+frequente	praia	25-29	M	0
+frequente	praia	25-29	M	0
+frequente	praia	25-29	M	0
+frequente	praia	25-29	M	0
+frequente	praia	25-29	M	0
+frequente	praia	25-29	M	0
+frequente	praia	25-29	M	0
+frequente	praia	25-29	M	0
+frequente	praia	25-29	M	0
+frequente	praia	25-29	M	0
+frequente	praia	25-29	M	1
+frequente	praia	25-29	M	2
+frequente	praia	25-29	M	2
+frequente	praia	25-29	F	0
+frequente	praia	25-29	F	0
+frequente	praia	25-29	F	0
+frequente	praia	25-29	F	2
+frequente	praia	25-29	F	2
+frequente	praia	25-29	F	2
diff --git a/data/PaulaEx4.6.15.rda b/data/PaulaEx4.6.15.rda
new file mode 100644
index 0000000000000000000000000000000000000000..36bbe7302e8caf9cb3237b344296ad028e59a4e4
GIT binary patch
literal 486
zcmV<C0U7>6T4*^jL0KkKS&w90cmN9z|H1#d=!l35_b3MfP(VLt|G+>1AOHXXzydMQ
zg8``2)6^!KZA~%&0B9O%pcxIQB-I3(r|L|Y5r6;*qb4Q*4qyP7011Eq0006dCZ?0n
zfB-ZDCWe3j1MQ!Du*SC>+8AFZns>tZ%8-Do0urpVMhgG}tcnsT1VSt#$O6I$im(Zs
zkO~<BE@7$wqzEGgQb9sNBv6rL5rkB2fk-M!G88}plqeBJgo42mB8-YCvMQ)$d7+J!
zm!%{kiV+ziiljy>N)&9&RaQ9C_ocLOzzpkNvS*HOy{j9vt;56O)tX;2>{lxid3CcN
zivUOll0^hVNs6gb{N<=rA3AII)`quVc5mxMQ9~3^8=@ra)w=&q9UppVK*21<TdLs&
zH$Y;8$+<*99(X9(05i<dQ;Q{~EXY8;6e-O_u38u(p@k+`f`C~SY*;%`RW%}w=%P{~
zdJ3Ky=mntwBnY;Elnk6xHXGHLdTdibM3kwMf;5wztU@K0dMc;%wNwREInam^s+f69
zJ7G{3mR}xREM>D0*`x@u($ou#+^(|_8?MOOBa#N%Gr65>H31hFoqPqz9#l`0{FaE?
chz2O^u({^c5&M`5K{fnc$rRy2LOqdn;6Urd`~Uy|

literal 0
HcmV?d00001

diff --git a/man/PaulaEx4.6.15.Rd b/man/PaulaEx4.6.15.Rd
new file mode 100644
index 0000000..99f84c2
--- /dev/null
+++ b/man/PaulaEx4.6.15.Rd
@@ -0,0 +1,80 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/PaulaEx4.6.15.R
+\name{PaulaEx4.6.15}
+\alias{PaulaEx4.6.15}
+\title{Número de Infecções de Ouvido em Recrutas Americanos}
+\format{Um \code{data.frame} com 287 observações e 5 variáveis.
+    \describe{
+
+\item{\code{habito}}{Fator com dois níveis que indica o hábito em
+    nadar do recruta (\code{ocasional} ou \code{frequente}).}
+
+\item{\code{local}}{Fator com dois níveis que indica o local onde o
+    recruta costuma nadar (\code{praia} ou \code{piscina}).}
+
+\item{\code{idade}}{Idade do recruta, em anos categorizados em três
+    níveis \code{15-19}, \code{20-24} e \code{25-29}.}
+
+\item{\code{sexo}}{Sexo, \code{F} para feminino e \code{M} para masculino.}
+
+\item{\code{ninfec}}{Número de infecções de ouvido diagnósticadas
+    pelo próprio recruta.}
+
+}}
+\source{
+Paula, G. A. (2004). Modelos de regressão: com apoio
+    computacional. São Paulo, SP: IME-USP. (Exercício 4.6.15
+    pág. 346)
+}
+\description{
+Dados referentes a um estudo realizado em 1990 com
+    recrutas americanos onde a variável de interesse era o número de
+    infecções de ouvido. Para associação com a infecção de ouvido,
+    foram coletadas as seguintes informações sobre os recrutas:
+    hábito de nadar, local em que costuma nadar, idade e sexo.
+}
+\examples{
+
+data(PaulaEx4.6.15)
+
+str(PaulaEx4.6.15)
+
+xt <- xtabs(ninfec ~ ., data = PaulaEx4.6.15)
+ftable(prop.table(xt))
+plot(xt)
+
+mv <- aggregate(ninfec ~ ., FUN = function(x)
+    c(mu = mean(x), var = var(x)), data = PaulaEx4.6.15)
+
+library(lattice)
+
+# Relação Média Variância
+xyplot(ninfec[, "var"] ~ ninfec[, "mu"],
+        data = mv,
+        ylab = "Variância amostral",
+        xlab = "Média amostral",
+        panel = function(x, y) {
+            panel.xyplot(x, y, type = c("p", "r"), grid = TRUE)
+            panel.abline(a = 0, b = 1, lty = 2)
+        })
+
+library(latticeExtra)
+useOuterStrips(    
+    xyplot(ninfec ~ idade | habito + local,
+           groups = sexo,
+           data = PaulaEx4.6.15,
+           jitter.x = TRUE, jitter.y = TRUE,
+           type = c("p", "g", "a"),
+           auto.key = list(space = "right", cex.title = 1,
+                           title = "Sexo"))
+    )
+
+}
+\references{
+Hand, D. J, Daly, F., Lunn, A. D., McConway, K. J.,
+    Ostrowski, E. (1994). A Handbook of Small Data Sets. Chapman and
+    Hall, London.
+}
+\keyword{contagem}
+\keyword{superdispersão}
+
-- 
GitLab


From d72403736d279b47f6be4cb3b7bb18d61d935849 Mon Sep 17 00:00:00 2001
From: Eduardo Junior <edujrrib@gmail.com>
Date: Sun, 24 Apr 2016 22:22:30 -0300
Subject: [PATCH 13/15] Adiciona dataset PaulaEx4.6.17

---
 R/PaulaEx4.6.17.R          |  55 +++++++++++++++++++++++++++++++
 data-raw/PaulaEx4.6.17.txt |  25 +++++++++++++++
 data/PaulaEx4.6.17.rda     | Bin 0 -> 336 bytes
 man/PaulaEx4.6.17.Rd       |  64 +++++++++++++++++++++++++++++++++++++
 4 files changed, 144 insertions(+)
 create mode 100644 R/PaulaEx4.6.17.R
 create mode 100644 data-raw/PaulaEx4.6.17.txt
 create mode 100644 data/PaulaEx4.6.17.rda
 create mode 100644 man/PaulaEx4.6.17.Rd

diff --git a/R/PaulaEx4.6.17.R b/R/PaulaEx4.6.17.R
new file mode 100644
index 0000000..3544d33
--- /dev/null
+++ b/R/PaulaEx4.6.17.R
@@ -0,0 +1,55 @@
+#' @name PaulaEx4.6.17
+#' @title Avaliação de Detergentes
+#' @description Dados resultantes de uma pesquisa em que 1008 pessoas
+#'     receberam duas marcas de detergente, \code{X} e \code{M}, e
+#'     posteriormente responderam às perguntas sobre a temperatura da
+#'     água, uso anterior do detergente \code{M}, detergente de
+#'     preferência e maciez da água.
+#' @format Um \code{data.frame} com 24 observações e 5 variáveis.
+#'     \describe{
+#' 
+#' \item{\code{temp}}{Temperatura da água, mensurada em dois níveis
+#'     \code{alta} e \code{baixa}.}
+#' 
+#' \item{\code{usom}}{Uso anterior do detergente da marca \code{M}
+#'     (\code{sim} ou \code{não}).}
+#' 
+#' \item{\code{prefer}}{Detergente de preferência (\code{M} ou
+#'     \code{X}).}
+#' 
+#' \item{\code{maciez}}{Maciez da água, mensurada em três níveis
+#'     \code{forte}, code{leve} e \code{média}.}
+#' 
+#' \item{\code{nind}}{Número de pessoas que tiveram respostas conforme
+#'     combinação de \code{temp}, \code{usom}, \code{prefer} e \code{maciez}.}
+#' 
+#' }
+#' @keywords contagem
+#' @source Paula, G. A. (2004). Modelos de regressão: com apoio
+#'     computacional. São Paulo, SP: IME-USP. (Exercício 4.6.17
+#'     pág. 347)
+#'
+#' @references Bishop, Y. M. M., Fienberg, S. E., Holland,
+#'     P. W. (1975). Discrete Multivariate Analysis: Theory and
+#'     Practice. MIT Press, Cambridge.
+#' @examples
+#'
+#' data(PaulaEx4.6.17)
+#' 
+#' str(PaulaEx4.6.17)
+#' 
+#' xt <- xtabs(nind ~ ., data = PaulaEx4.6.17)
+#' ftable(xt)
+#' plot(xt)
+#' 
+#' library(latticeExtra)
+#' useOuterStrips(    
+#'     xyplot(nind ~ maciez | prefer + usom,
+#'            groups = temp,
+#'            data = PaulaEx4.6.17,
+#'            type = c("p", "g", "a"),
+#'            auto.key = list(cex.title = 1, columns = 2,
+#'                            title = "Temperatura da água"))
+#'     )
+#'
+NULL
diff --git a/data-raw/PaulaEx4.6.17.txt b/data-raw/PaulaEx4.6.17.txt
new file mode 100644
index 0000000..039a27b
--- /dev/null
+++ b/data-raw/PaulaEx4.6.17.txt
@@ -0,0 +1,25 @@
+temp	usom	prefer	maciez	nind
+alta	sim	X	leve	19
+alta	sim	X	média	23
+alta	sim	X	forte	24
+alta	sim	M	leve	29
+alta	sim	M	média	47
+alta	sim	M	forte	43
+alta	não	X	leve	29
+alta	não	X	média	33
+alta	não	X	forte	42
+alta	não	M	leve	27
+alta	não	M	média	23
+alta	não	M	forte	30
+baixa	sim	X	leve	57
+baixa	sim	X	média	47
+baixa	sim	X	forte	37
+baixa	sim	M	leve	49
+baixa	sim	M	média	55
+baixa	sim	M	forte	52
+baixa	não	X	leve	63
+baixa	não	X	média	66
+baixa	não	X	forte	68
+baixa	não	M	leve	53
+baixa	não	M	média	50
+baixa	não	M	forte	42
diff --git a/data/PaulaEx4.6.17.rda b/data/PaulaEx4.6.17.rda
new file mode 100644
index 0000000000000000000000000000000000000000..6885ec17c31a8b84871b2ae2ee86abd1f7696cca
GIT binary patch
literal 336
zcmV-W0k8f-T4*^jL0KkKSsCe-c>n>||JDC8NXsG_x1g2+P(VK?-_Sq+2p|Xm06+i%
zumL$l4I!w8X)q-9Jcc9G0St@=Q)C>#CICzT0$>0p00JbW(Hkf<0000000EgvWRPPS
z0l=`7To98ig4=6BR8W;mSTVxu0IWEm-(?Hq`(MS7B$r{yjWTL#wy7qU8frP{sg%)H
zc69tfPyd*JAXJhF1{pk~1L|b(J|^ED&+9+~7Hukx@f#qMuhOmi!|iqb5Oi~Cya4JH
ziVG4V5n$T^x*{?tX+UI5{pu|U41yiH_x)gdrd0cuO~@Wtv${6Z`<>4A3gxU16Hj1m
zmD3Us15ez$aJrP?FtGiAXnJ@&_<|cwM;vM0hN3jOw(kp<2oT2;j{vr|c{9Nxbw?4Q
iZ^i<Xcwo9EZea92WVpdV17x7DV(v(%3K9c7GOr+xGm7c}

literal 0
HcmV?d00001

diff --git a/man/PaulaEx4.6.17.Rd b/man/PaulaEx4.6.17.Rd
new file mode 100644
index 0000000..26acb00
--- /dev/null
+++ b/man/PaulaEx4.6.17.Rd
@@ -0,0 +1,64 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/PaulaEx4.6.17.R
+\name{PaulaEx4.6.17}
+\alias{PaulaEx4.6.17}
+\title{Avaliação de Detergentes}
+\format{Um \code{data.frame} com 24 observações e 5 variáveis.
+    \describe{
+
+\item{\code{temp}}{Temperatura da água, mensurada em dois níveis
+    \code{alta} e \code{baixa}.}
+
+\item{\code{usom}}{Uso anterior do detergente da marca \code{M}
+    (\code{sim} ou \code{não}).}
+
+\item{\code{prefer}}{Detergente de preferência (\code{M} ou
+    \code{X}).}
+
+\item{\code{maciez}}{Maciez da água, mensurada em três níveis
+    \code{forte}, code{leve} e \code{média}.}
+
+\item{\code{nind}}{Número de pessoas que tiveram respostas conforme
+    combinação de \code{temp}, \code{usom}, \code{prefer} e \code{maciez}.}
+
+}}
+\source{
+Paula, G. A. (2004). Modelos de regressão: com apoio
+    computacional. São Paulo, SP: IME-USP. (Exercício 4.6.17
+    pág. 347)
+}
+\description{
+Dados resultantes de uma pesquisa em que 1008 pessoas
+    receberam duas marcas de detergente, \code{X} e \code{M}, e
+    posteriormente responderam às perguntas sobre a temperatura da
+    água, uso anterior do detergente \code{M}, detergente de
+    preferência e maciez da água.
+}
+\examples{
+
+data(PaulaEx4.6.17)
+
+str(PaulaEx4.6.17)
+
+xt <- xtabs(nind ~ ., data = PaulaEx4.6.17)
+ftable(xt)
+plot(xt)
+
+library(latticeExtra)
+useOuterStrips(    
+    xyplot(nind ~ maciez | prefer + usom,
+           groups = temp,
+           data = PaulaEx4.6.17,
+           type = c("p", "g", "a"),
+           auto.key = list(cex.title = 1, columns = 2,
+                           title = "Temperatura da água"))
+    )
+
+}
+\references{
+Bishop, Y. M. M., Fienberg, S. E., Holland,
+    P. W. (1975). Discrete Multivariate Analysis: Theory and
+    Practice. MIT Press, Cambridge.
+}
+\keyword{contagem}
+
-- 
GitLab


From 9336d626060183bbcd4bebe9bd42d16ca8e0e94b Mon Sep 17 00:00:00 2001
From: Eduardo Junior <edujrrib@gmail.com>
Date: Sun, 24 Apr 2016 22:53:17 -0300
Subject: [PATCH 14/15] Adiciona dataset PaulaEx4.6.20

---
 R/PaulaEx4.6.20.R          |  46 ++++++++++++++++++++++++++++++++
 data-raw/PaulaEx4.6.20.txt |  51 +++++++++++++++++++++++++++++++++++
 data/PaulaEx4.6.20.rda     | Bin 0 -> 245 bytes
 man/PaulaEx4.6.20.Rd       |  53 +++++++++++++++++++++++++++++++++++++
 4 files changed, 150 insertions(+)
 create mode 100644 R/PaulaEx4.6.20.R
 create mode 100644 data-raw/PaulaEx4.6.20.txt
 create mode 100644 data/PaulaEx4.6.20.rda
 create mode 100644 man/PaulaEx4.6.20.Rd

diff --git a/R/PaulaEx4.6.20.R b/R/PaulaEx4.6.20.R
new file mode 100644
index 0000000..7cdf4da
--- /dev/null
+++ b/R/PaulaEx4.6.20.R
@@ -0,0 +1,46 @@
+#' @name PaulaEx4.6.20
+#' @title Ovos Eclodidos de Ceriodaphnia dubia sob Doses de Herbicida
+#' @description Dados provenientes de um típico estudo
+#'     dose-resposta. Foram 50 animais \emph{Ceriodaphnia dubia}
+#'     (pequeno invertebrado de água doce) submetidos a 5 diferentes
+#'     dosagens do herbicida \emph{Nitrofen} (10 animais expostos a cada
+#'     nível de dosagem) e, após 3 ninhadas, observou-se o número total
+#'     de ovos eclodidos.
+#' @format Um \code{data.frame} com 50 observações e 2 variáveis.
+#'     \describe{
+#' 
+#' \item{\code{dose}}{Número inteiro que representa a dosagem de
+#'     \emph{Nitrofen} aplicada, em mg/l}
+#' 
+#' \item{\code{novos}}{Número de ovos de \emph{Ceriodaphnia dubia}
+#'     eclodidos após 3 ninhadas.} 
+#'
+#' }
+#'
+#' @details A variável \code{dose} foi tomada como valor numérico,
+#'     devido a natureza da variável. Todavia, se for de interesse na
+#'     análise a comparação das médias dos números de ovos eclodidos,
+#'     pode-se considerá-la como fator de cinco níveis (0, 80, 160, 235 e
+#'     310 mg/l) e estimar as médias para cada fator.
+#'
+#' @keywords contagem
+#' @source Paula, G. A. (2004). Modelos de regressão: com apoio
+#'     computacional. São Paulo, SP: IME-USP. (Exercício 4.6.20
+#'     pág. 349)
+#'
+#' @examples
+#'
+#' data(PaulaEx4.6.20)
+#' 
+#' str(PaulaEx4.6.20)
+#' 
+#' aggregate(novos ~ dose, FUN = function(x) c(mean(x), var(x)),
+#'           data = PaulaEx4.6.20)
+#' 
+#' library(lattice)
+#' xyplot(novos ~ dose,
+#'        data = PaulaEx4.6.20,
+#'        jitter.x = TRUE,
+#'        type = c("p", "g", "smooth"))
+#'
+NULL
diff --git a/data-raw/PaulaEx4.6.20.txt b/data-raw/PaulaEx4.6.20.txt
new file mode 100644
index 0000000..713401e
--- /dev/null
+++ b/data-raw/PaulaEx4.6.20.txt
@@ -0,0 +1,51 @@
+dose	novos
+0	37
+0	32
+0	34
+0	33
+0	36
+0	34
+0	33
+0	30
+0	24
+0	31
+80	33
+80	33
+80	35
+80	33
+80	36
+80	26
+80	27
+80	31
+80	32
+80	29
+160	29
+160	29
+160	23
+160	27
+160	30
+160	31
+160	30
+160	26
+160	29
+160	29
+235	23
+235	21
+235	7
+235	12
+235	27
+235	16
+235	13
+235	15
+235	21
+235	17
+310	6
+310	6
+310	7
+310	0
+310	15
+310	5
+310	6
+310	4
+310	6
+310	5
diff --git a/data/PaulaEx4.6.20.rda b/data/PaulaEx4.6.20.rda
new file mode 100644
index 0000000000000000000000000000000000000000..0140cb9644288eedb1702c58d8ddf3090d57b0c8
GIT binary patch
literal 245
zcmV<R01E#?T4*^jL0KkKS?qgieE<Oe|JDDt>f8Q-RR9J6P(UvSpTIx>KmY&%00;m9
zumHwEqMB-LMl?o)6DA-401Y;v<^TWy0000007)n&gFpZp003mr034~ZS;F!b<JTX7
z4HDN2V(LU4o`X78k%?Fr7?OjHGNc*JJnpFHMKm>Pls|2<qIia&La;)@0>&}I7{~;)
zLt|gfE2spVY)qS2^Cv(wB*+0UFllGlK+J%Svxz*&W=IHk$?{|59Dc$f$!5s{3$~->
v@7LPHUg?!mS22s$R}mpWj=sA*)cLSFMj4twL-Bw{5BR&1DZ+$@W7|{c2Uulf

literal 0
HcmV?d00001

diff --git a/man/PaulaEx4.6.20.Rd b/man/PaulaEx4.6.20.Rd
new file mode 100644
index 0000000..bdc7234
--- /dev/null
+++ b/man/PaulaEx4.6.20.Rd
@@ -0,0 +1,53 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/PaulaEx4.6.20.R
+\name{PaulaEx4.6.20}
+\alias{PaulaEx4.6.20}
+\title{Ovos Eclodidos de Ceriodaphnia dubia sob Doses de Herbicida}
+\format{Um \code{data.frame} com 50 observações e 2 variáveis.
+    \describe{
+
+\item{\code{dose}}{Número inteiro que representa a dosagem de
+    \emph{Nitrofen} aplicada, em mg/l}
+
+\item{\code{novos}}{Número de ovos de \emph{Ceriodaphnia dubia}
+    eclodidos após 3 ninhadas.} 
+
+}}
+\source{
+Paula, G. A. (2004). Modelos de regressão: com apoio
+    computacional. São Paulo, SP: IME-USP. (Exercício 4.6.20
+    pág. 349)
+}
+\description{
+Dados provenientes de um típico estudo
+    dose-resposta. Foram 50 animais \emph{Ceriodaphnia dubia}
+    (pequeno invertebrado de água doce) submetidos a 5 diferentes
+    dosagens do herbicida \emph{Nitrofen} (10 animais expostos a cada
+    nível de dosagem) e, após 3 ninhadas, observou-se o número total
+    de ovos eclodidos.
+}
+\details{
+A variável \code{dose} foi tomada como valor numérico,
+    devido a natureza da variável. Todavia, se for de interesse na
+    análise a comparação das médias dos números de ovos eclodidos,
+    pode-se considerá-la como fator de cinco níveis (0, 80, 160, 235 e
+    310 mg/l) e estimar as médias para cada fator.
+}
+\examples{
+
+data(PaulaEx4.6.20)
+
+str(PaulaEx4.6.20)
+
+aggregate(novos ~ dose, FUN = function(x) c(mean(x), var(x)),
+          data = PaulaEx4.6.20)
+
+library(lattice)
+xyplot(novos ~ dose,
+       data = PaulaEx4.6.20,
+       jitter.x = TRUE,
+       type = c("p", "g", "smooth"))
+
+}
+\keyword{contagem}
+
-- 
GitLab


From 064a5bba093a847bd321a74140989264fd0be23e Mon Sep 17 00:00:00 2001
From: Eduardo Junior <edujrrib@gmail.com>
Date: Mon, 25 Apr 2016 23:45:58 -0300
Subject: [PATCH 15/15] =?UTF-8?q?Complementa=20informa=C3=A7=C3=B5es=20fal?=
 =?UTF-8?q?tantes=20e=20realiza=20corre=C3=A7=C3=B5es=20ortogr=C3=A1ficas?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 R/PaulaEg4.2.6.R     | 2 +-
 R/PaulaEg4.3.6.R     | 3 +--
 R/PaulaEx4.6.15.R    | 2 +-
 R/PaulaEx4.6.17.R    | 2 +-
 R/PaulaEx4.6.20.R    | 2 +-
 R/PaulaEx4.6.5.R     | 2 +-
 R/PaulaEx4.6.6.R     | 4 ++--
 R/PaulaEx4.6.7.R     | 2 +-
 R/PaulaTb4.12.R      | 8 ++++----
 R/PaulaTb4.14.R      | 2 +-
 R/PaulaTb4.2.R       | 6 +++---
 R/PaulaTb4.7.R       | 4 ++--
 R/PaulaTb4.9.R       | 2 +-
 man/PaulaEg4.2.6.Rd  | 2 +-
 man/PaulaEg4.3.6.Rd  | 3 +--
 man/PaulaEx4.6.15.Rd | 2 +-
 man/PaulaEx4.6.17.Rd | 2 +-
 man/PaulaEx4.6.20.Rd | 2 +-
 man/PaulaEx4.6.5.Rd  | 2 +-
 man/PaulaEx4.6.6.Rd  | 4 ++--
 man/PaulaEx4.6.7.Rd  | 2 +-
 man/PaulaTb4.12.Rd   | 8 ++++----
 man/PaulaTb4.14.Rd   | 2 +-
 man/PaulaTb4.2.Rd    | 6 +++---
 man/PaulaTb4.7.Rd    | 4 ++--
 man/PaulaTb4.9.Rd    | 2 +-
 26 files changed, 40 insertions(+), 42 deletions(-)

diff --git a/R/PaulaEg4.2.6.R b/R/PaulaEg4.2.6.R
index f4b5266..9646317 100644
--- a/R/PaulaEg4.2.6.R
+++ b/R/PaulaEg4.2.6.R
@@ -24,7 +24,7 @@
 #' }
 #' @keywords contagem
 #' @source Paula, G. A. (2004). Modelos de regressão: com apoio
-#' computacional. São Paulo, SP: IME-USP. (0.0 pág. 000)
+#'     computacional. São Paulo, SP: IME-USP. (Exemplo 4.2.6, pág. 299)
 #'
 #' @references Neter, J., Kutner, M. H., Nachtsheim, C. J., Wasserman,
 #'     W. (1996). Applie Linear Regression Models (3tr ed.). Irwin,
diff --git a/R/PaulaEg4.3.6.R b/R/PaulaEg4.3.6.R
index a7369b3..14d712c 100644
--- a/R/PaulaEg4.3.6.R
+++ b/R/PaulaEg4.3.6.R
@@ -26,7 +26,7 @@
 #' }
 #' @keywords contagem superdispersão
 #' @source Paula, G. A. (2004). Modelos de regressão: com apoio
-#' computacional. São Paulo, SP: IME-USP. (0.0 pág. 000)
+#'     computacional. São Paulo, SP: IME-USP. (Exemplo 4.3.6, pág. 312)
 #'
 #' @references Venables, W. N., Ripley, B. D. (1999). Modern Applied
 #'     Statistics with S-Plus (3rd ed.). Springer, New York.
@@ -47,7 +47,6 @@
 #' aggregate(ndias ~ ., FUN = function(x) c(mean(x), var(x)),
 #'           data = PaulaEg4.3.6)
 #' 
-#' 
 #' library(latticeExtra)
 #' fl1 <- c("Aborígene", "Não Aborígene")
 #' fl2 <- c("Feminino", "Masculino")
diff --git a/R/PaulaEx4.6.15.R b/R/PaulaEx4.6.15.R
index 062383b..88d3022 100644
--- a/R/PaulaEx4.6.15.R
+++ b/R/PaulaEx4.6.15.R
@@ -25,7 +25,7 @@
 #' }
 #' @keywords contagem superdispersão
 #' @source Paula, G. A. (2004). Modelos de regressão: com apoio
-#'     computacional. São Paulo, SP: IME-USP. (Exercício 4.6.15
+#'     computacional. São Paulo, SP: IME-USP. (Exercício 4.6.15,
 #'     pág. 346)
 #'
 #' @references Hand, D. J, Daly, F., Lunn, A. D., McConway, K. J.,
diff --git a/R/PaulaEx4.6.17.R b/R/PaulaEx4.6.17.R
index 3544d33..4d5bdcd 100644
--- a/R/PaulaEx4.6.17.R
+++ b/R/PaulaEx4.6.17.R
@@ -26,7 +26,7 @@
 #' }
 #' @keywords contagem
 #' @source Paula, G. A. (2004). Modelos de regressão: com apoio
-#'     computacional. São Paulo, SP: IME-USP. (Exercício 4.6.17
+#'     computacional. São Paulo, SP: IME-USP. (Exercício 4.6.17,
 #'     pág. 347)
 #'
 #' @references Bishop, Y. M. M., Fienberg, S. E., Holland,
diff --git a/R/PaulaEx4.6.20.R b/R/PaulaEx4.6.20.R
index 7cdf4da..3c57a19 100644
--- a/R/PaulaEx4.6.20.R
+++ b/R/PaulaEx4.6.20.R
@@ -25,7 +25,7 @@
 #'
 #' @keywords contagem
 #' @source Paula, G. A. (2004). Modelos de regressão: com apoio
-#'     computacional. São Paulo, SP: IME-USP. (Exercício 4.6.20
+#'     computacional. São Paulo, SP: IME-USP. (Exercício 4.6.20,
 #'     pág. 349)
 #'
 #' @examples
diff --git a/R/PaulaEx4.6.5.R b/R/PaulaEx4.6.5.R
index d729c39..13c5fb0 100644
--- a/R/PaulaEx4.6.5.R
+++ b/R/PaulaEx4.6.5.R
@@ -26,7 +26,7 @@
 #' }
 #' @keywords contagem
 #' @source Paula, G. A. (2004). Modelos de regressão: com apoio
-#'     computacional. São Paulo, SP: IME-USP. (Exercício 4.6.5 pág. 342)
+#'     computacional. São Paulo, SP: IME-USP. (Exercício 4.6.5, pág. 342)
 #'
 #' @references Neter, J., Kutner, M. H., Nachtsheim, C. J., Wasserman,
 #'     W. (1996). Applie Linear Regression Models (3tr ed.). Irwin,
diff --git a/R/PaulaEx4.6.6.R b/R/PaulaEx4.6.6.R
index 6d0f343..e077edc 100644
--- a/R/PaulaEx4.6.6.R
+++ b/R/PaulaEx4.6.6.R
@@ -11,7 +11,7 @@
 #'     \describe{
 #' 
 #' \item{\code{idade}}{Fator com quatro níveis que indica a idade do
-#'     trabalhodor no seu primeiro emprego, em anos categorizados nos
+#'     trabalhador no seu primeiro emprego, em anos categorizados nos
 #'     níveis \code{<20}, \code{20-27}, \code{27.5-34.9} e \code{>35}.}
 #' 
 #' \item{\code{ano}}{Fator com quatro níveis que indica o ano do
@@ -30,7 +30,7 @@
 #' }
 #' @keywords contagem
 #' @source Paula, G. A. (2004). Modelos de regressão: com apoio
-#' computacional. São Paulo, SP: IME-USP. (0.0 pág. 000)
+#'     computacional. São Paulo, SP: IME-USP. (Exercício 4.6.6, pág. 343)
 #'
 #' @references Breslow, N. E., Day, N. E. (1987). Statistical Methods in
 #'     Cancer Research (vol. II). IARC Scientific Publications,
diff --git a/R/PaulaEx4.6.7.R b/R/PaulaEx4.6.7.R
index 054fab0..0aff372 100644
--- a/R/PaulaEx4.6.7.R
+++ b/R/PaulaEx4.6.7.R
@@ -13,7 +13,7 @@
 #' }
 #' @keywords contagem superdispersão
 #' @source Paula, G. A. (2004). Modelos de regressão: com apoio
-#'     computacional. São Paulo, SP: IME-USP. (Exercício 4.6.7 pág. 343)
+#'     computacional. São Paulo, SP: IME-USP. (Exercício 4.6.7, pág. 343)
 #'
 #' @references Hinde, J. (1982). Compound Poisson Regression Models in R
 #'     (Gilchrist ed.). Springer, New York.
diff --git a/R/PaulaTb4.12.R b/R/PaulaTb4.12.R
index 997f5f1..16fdb41 100644
--- a/R/PaulaTb4.12.R
+++ b/R/PaulaTb4.12.R
@@ -13,8 +13,8 @@
 #'     (\code{<6}), entre 6 e 12 (\code{6-15}), entre 15 e 25
 #'     (\code{15-25}) e maior que 25 (\code{>25}).}
 #' 
-#' \item{\code{satis}}{Fotor com quatro níveis que representa o grau de
-#'     satisfação do indíviduo no emprego (\code{alto}, \code{bom},
+#' \item{\code{satis}}{Fator com quatro níveis que representa o grau de
+#'     satisfação do indivíduo no emprego (\code{alto}, \code{bom},
 #'     \code{médio} e \code{baixo}).}
 #' 
 #' \item{\code{nind}}{Número de indivíduos na combinação das variáveis
@@ -23,7 +23,7 @@
 #' }
 #' @keywords contagem
 #' @source Paula, G. A. (2004). Modelos de regressão: com apoio
-#'     computacional. São Paulo, SP: IME-USP. (Tabela 4.12 pág. 331)
+#'     computacional. São Paulo, SP: IME-USP. (Tabela 4.12, pág. 331)
 #'
 #' @references Agresti, A. (1990). Categorical Data Analysis. John
 #'     Wiley, New York.
@@ -33,7 +33,7 @@
 #' 
 #' str(PaulaTb4.12)
 #' 
-#' xt <- xtabs(nind ~ ., data = PaulaTb4.12)
+#' (xt <- xtabs(nind ~ ., data = PaulaTb4.12))
 #' plot(xt)
 #' 
 #' library(lattice)
diff --git a/R/PaulaTb4.14.R b/R/PaulaTb4.14.R
index 413dc18..80402f6 100644
--- a/R/PaulaTb4.14.R
+++ b/R/PaulaTb4.14.R
@@ -28,7 +28,7 @@
 #' }
 #' @keywords contagem
 #' @source Paula, G. A. (2004). Modelos de regressão: com apoio
-#' computacional. São Paulo, SP: IME-USP. (Tabela 4.14 pág. 334)
+#'     computacional. São Paulo, SP: IME-USP. (Tabela 4.14, pág. 334)
 #'
 #' @references Everitt, B. S. (1977). The Analysis of Contingency
 #'     Tables. Chapman anda Hall, London.
diff --git a/R/PaulaTb4.2.R b/R/PaulaTb4.2.R
index 0ad4a9c..54ec6ff 100644
--- a/R/PaulaTb4.2.R
+++ b/R/PaulaTb4.2.R
@@ -12,7 +12,7 @@
 #' 
 #' \item{\code{tpessoas}}{Total de pessoas por ano de observação.}
 #' 
-#' \item{\code{cmdc}}{Consumo médio diário de cigarros, dividos em
+#' \item{\code{cmdc}}{Consumo médio diário de cigarros, dividido em
 #'     quatro níveis 0, 1-9, 10-30 ou +30 cigarros consumidos.}
 #' 
 #' \item{\code{idade}}{Idade, mensurada em faixas-etária de 40- 49,
@@ -21,7 +21,7 @@
 #' }
 #' @keywords contagem
 #' @source Paula, G. A. (2004). Modelos de regressão: com apoio
-#'     computacional. São Paulo, SP: IME-USP. (Tabela 4.2 pág. 294)
+#'     computacional. São Paulo, SP: IME-USP. (Tabela 4.2, pág. 294)
 #' @examples
 #'
 #' data(PaulaTb4.2)
@@ -29,7 +29,7 @@
 #' str(PaulaTb4.2)
 #' 
 #' xtabs(nmortes ~ cmdc + idade, data = PaulaTb4.2)
-#' xt <- xtabs((nmortes/tpessoas)*100 ~ cmdc + idade, data = PaulaTb4.2)
+#' (xt <- xtabs((nmortes/tpessoas)*100 ~ cmdc + idade, data = PaulaTb4.2))
 #' plot(xt)
 #' 
 #' library(lattice)
diff --git a/R/PaulaTb4.7.R b/R/PaulaTb4.7.R
index a25087f..6002b85 100644
--- a/R/PaulaTb4.7.R
+++ b/R/PaulaTb4.7.R
@@ -1,7 +1,7 @@
 #' @name PaulaTb4.7
 #' @title Demandas de TV a Cabo em Áreas Metropolitanos dos EUA
 #' @description Dados de um estudo sobre demanda de TV's a cabo em 40
-#'     áreas metropolianas dos Estados Unidos. Neste estudo a variável
+#'     áreas metropolitanas dos Estados Unidos. Neste estudo a variável
 #'     de interesse é o número de assinantes (\code{nass}) e as demais
 #'     variáveis mensuradas tentam explicar esta contagem.
 #' @format Um \code{data.frame} com 40 observações e 8 variáveis.
@@ -30,7 +30,7 @@
 #' }
 #' @keywords contagem superdispersão
 #' @source Paula, G. A. (2004). Modelos de regressão: com apoio
-#' computacional. São Paulo, SP: IME-USP. (0.0 pág. 000)
+#'     computacional. São Paulo, SP: IME-USP. (Tabela 4.7, pág. 317)
 #' @examples
 #'
 #' data(PaulaTb4.7)
diff --git a/R/PaulaTb4.9.R b/R/PaulaTb4.9.R
index 3f71d5f..45d9a41 100644
--- a/R/PaulaTb4.9.R
+++ b/R/PaulaTb4.9.R
@@ -25,7 +25,7 @@
 #' }
 #' @keywords contagem superdispersão
 #' @source Paula, G. A. (2004). Modelos de regressão: com apoio
-#' computacional. São Paulo, SP: IME-USP. (Tabela 4.9 pág. 322)
+#'     computacional. São Paulo, SP: IME-USP. (Tabela 4.9 pág. 322)
 #' @examples
 #'
 #' data(PaulaTb4.9)
diff --git a/man/PaulaEg4.2.6.Rd b/man/PaulaEg4.2.6.Rd
index e264768..33c1d58 100644
--- a/man/PaulaEg4.2.6.Rd
+++ b/man/PaulaEg4.2.6.Rd
@@ -22,7 +22,7 @@
 }}
 \source{
 Paula, G. A. (2004). Modelos de regressão: com apoio
-computacional. São Paulo, SP: IME-USP. (0.0 pág. 000)
+    computacional. São Paulo, SP: IME-USP. (Exemplo 4.2.6, pág. 299)
 }
 \description{
 Dados apresentados em Neter et al. (1996) sobre um
diff --git a/man/PaulaEg4.3.6.Rd b/man/PaulaEg4.3.6.Rd
index fedb338..99f7bc7 100644
--- a/man/PaulaEg4.3.6.Rd
+++ b/man/PaulaEg4.3.6.Rd
@@ -24,7 +24,7 @@
 }}
 \source{
 Paula, G. A. (2004). Modelos de regressão: com apoio
-computacional. São Paulo, SP: IME-USP. (0.0 pág. 000)
+    computacional. São Paulo, SP: IME-USP. (Exemplo 4.3.6, pág. 312)
 }
 \description{
 Dados provenientes de um estudo sociológico desenvolvido
@@ -50,7 +50,6 @@ xtabs(ndias ~ ., data = PaulaEg4.3.6)
 aggregate(ndias ~ ., FUN = function(x) c(mean(x), var(x)),
           data = PaulaEg4.3.6)
 
-
 library(latticeExtra)
 fl1 <- c("Aborígene", "Não Aborígene")
 fl2 <- c("Feminino", "Masculino")
diff --git a/man/PaulaEx4.6.15.Rd b/man/PaulaEx4.6.15.Rd
index 99f84c2..1db3770 100644
--- a/man/PaulaEx4.6.15.Rd
+++ b/man/PaulaEx4.6.15.Rd
@@ -23,7 +23,7 @@
 }}
 \source{
 Paula, G. A. (2004). Modelos de regressão: com apoio
-    computacional. São Paulo, SP: IME-USP. (Exercício 4.6.15
+    computacional. São Paulo, SP: IME-USP. (Exercício 4.6.15,
     pág. 346)
 }
 \description{
diff --git a/man/PaulaEx4.6.17.Rd b/man/PaulaEx4.6.17.Rd
index 26acb00..a68423e 100644
--- a/man/PaulaEx4.6.17.Rd
+++ b/man/PaulaEx4.6.17.Rd
@@ -24,7 +24,7 @@
 }}
 \source{
 Paula, G. A. (2004). Modelos de regressão: com apoio
-    computacional. São Paulo, SP: IME-USP. (Exercício 4.6.17
+    computacional. São Paulo, SP: IME-USP. (Exercício 4.6.17,
     pág. 347)
 }
 \description{
diff --git a/man/PaulaEx4.6.20.Rd b/man/PaulaEx4.6.20.Rd
index bdc7234..d6f7aff 100644
--- a/man/PaulaEx4.6.20.Rd
+++ b/man/PaulaEx4.6.20.Rd
@@ -15,7 +15,7 @@
 }}
 \source{
 Paula, G. A. (2004). Modelos de regressão: com apoio
-    computacional. São Paulo, SP: IME-USP. (Exercício 4.6.20
+    computacional. São Paulo, SP: IME-USP. (Exercício 4.6.20,
     pág. 349)
 }
 \description{
diff --git a/man/PaulaEx4.6.5.Rd b/man/PaulaEx4.6.5.Rd
index ede6a86..0b8ea3c 100644
--- a/man/PaulaEx4.6.5.Rd
+++ b/man/PaulaEx4.6.5.Rd
@@ -22,7 +22,7 @@
 }}
 \source{
 Paula, G. A. (2004). Modelos de regressão: com apoio
-    computacional. São Paulo, SP: IME-USP. (Exercício 4.6.5 pág. 342)
+    computacional. São Paulo, SP: IME-USP. (Exercício 4.6.5, pág. 342)
 }
 \description{
 Dados provenientes de um estudo prospectivo com 100
diff --git a/man/PaulaEx4.6.6.Rd b/man/PaulaEx4.6.6.Rd
index efef473..6b628c9 100644
--- a/man/PaulaEx4.6.6.Rd
+++ b/man/PaulaEx4.6.6.Rd
@@ -7,7 +7,7 @@
     \describe{
 
 \item{\code{idade}}{Fator com quatro níveis que indica a idade do
-    trabalhodor no seu primeiro emprego, em anos categorizados nos
+    trabalhador no seu primeiro emprego, em anos categorizados nos
     níveis \code{<20}, \code{20-27}, \code{27.5-34.9} e \code{>35}.}
 
 \item{\code{ano}}{Fator com quatro níveis que indica o ano do
@@ -26,7 +26,7 @@
 }}
 \source{
 Paula, G. A. (2004). Modelos de regressão: com apoio
-computacional. São Paulo, SP: IME-USP. (0.0 pág. 000)
+    computacional. São Paulo, SP: IME-USP. (Exercício 4.6.6, pág. 343)
 }
 \description{
 Dados provenientes de um estudo de seguimento onde
diff --git a/man/PaulaEx4.6.7.Rd b/man/PaulaEx4.6.7.Rd
index c6a387c..b463cf4 100644
--- a/man/PaulaEx4.6.7.Rd
+++ b/man/PaulaEx4.6.7.Rd
@@ -13,7 +13,7 @@
 }}
 \source{
 Paula, G. A. (2004). Modelos de regressão: com apoio
-    computacional. São Paulo, SP: IME-USP. (Exercício 4.6.7 pág. 343)
+    computacional. São Paulo, SP: IME-USP. (Exercício 4.6.7, pág. 343)
 }
 \description{
 Dados referentes à produção de peças de tecido em uma
diff --git a/man/PaulaTb4.12.Rd b/man/PaulaTb4.12.Rd
index 96257db..dfffdaf 100644
--- a/man/PaulaTb4.12.Rd
+++ b/man/PaulaTb4.12.Rd
@@ -11,8 +11,8 @@
     (\code{<6}), entre 6 e 12 (\code{6-15}), entre 15 e 25
     (\code{15-25}) e maior que 25 (\code{>25}).}
 
-\item{\code{satis}}{Fotor com quatro níveis que representa o grau de
-    satisfação do indíviduo no emprego (\code{alto}, \code{bom},
+\item{\code{satis}}{Fator com quatro níveis que representa o grau de
+    satisfação do indivíduo no emprego (\code{alto}, \code{bom},
     \code{médio} e \code{baixo}).}
 
 \item{\code{nind}}{Número de indivíduos na combinação das variáveis
@@ -21,7 +21,7 @@
 }}
 \source{
 Paula, G. A. (2004). Modelos de regressão: com apoio
-    computacional. São Paulo, SP: IME-USP. (Tabela 4.12 pág. 331)
+    computacional. São Paulo, SP: IME-USP. (Tabela 4.12, pág. 331)
 }
 \description{
 Dados resultantes de uma pesquisa com 901 indivíduos
@@ -36,7 +36,7 @@ data(PaulaTb4.12)
 
 str(PaulaTb4.12)
 
-xt <- xtabs(nind ~ ., data = PaulaTb4.12)
+(xt <- xtabs(nind ~ ., data = PaulaTb4.12))
 plot(xt)
 
 library(lattice)
diff --git a/man/PaulaTb4.14.Rd b/man/PaulaTb4.14.Rd
index 22fc367..f084db9 100644
--- a/man/PaulaTb4.14.Rd
+++ b/man/PaulaTb4.14.Rd
@@ -26,7 +26,7 @@
 }}
 \source{
 Paula, G. A. (2004). Modelos de regressão: com apoio
-computacional. São Paulo, SP: IME-USP. (Tabela 4.14 pág. 334)
+    computacional. São Paulo, SP: IME-USP. (Tabela 4.14, pág. 334)
 }
 \description{
 Os dados são referentes à classificação de 1330
diff --git a/man/PaulaTb4.2.Rd b/man/PaulaTb4.2.Rd
index a2d558d..a1c411c 100644
--- a/man/PaulaTb4.2.Rd
+++ b/man/PaulaTb4.2.Rd
@@ -11,7 +11,7 @@
 
 \item{\code{tpessoas}}{Total de pessoas por ano de observação.}
 
-\item{\code{cmdc}}{Consumo médio diário de cigarros, dividos em
+\item{\code{cmdc}}{Consumo médio diário de cigarros, dividido em
     quatro níveis 0, 1-9, 10-30 ou +30 cigarros consumidos.}
 
 \item{\code{idade}}{Idade, mensurada em faixas-etária de 40- 49,
@@ -20,7 +20,7 @@
 }}
 \source{
 Paula, G. A. (2004). Modelos de regressão: com apoio
-    computacional. São Paulo, SP: IME-USP. (Tabela 4.2 pág. 294)
+    computacional. São Paulo, SP: IME-USP. (Tabela 4.2, pág. 294)
 }
 \description{
 Dados provenientes de um estudo de acompanhamento de
@@ -35,7 +35,7 @@ data(PaulaTb4.2)
 str(PaulaTb4.2)
 
 xtabs(nmortes ~ cmdc + idade, data = PaulaTb4.2)
-xt <- xtabs((nmortes/tpessoas)*100 ~ cmdc + idade, data = PaulaTb4.2)
+(xt <- xtabs((nmortes/tpessoas)*100 ~ cmdc + idade, data = PaulaTb4.2))
 plot(xt)
 
 library(lattice)
diff --git a/man/PaulaTb4.7.Rd b/man/PaulaTb4.7.Rd
index 9852a03..85fed7a 100644
--- a/man/PaulaTb4.7.Rd
+++ b/man/PaulaTb4.7.Rd
@@ -29,11 +29,11 @@
 }}
 \source{
 Paula, G. A. (2004). Modelos de regressão: com apoio
-computacional. São Paulo, SP: IME-USP. (0.0 pág. 000)
+    computacional. São Paulo, SP: IME-USP. (Tabela 4.7, pág. 317)
 }
 \description{
 Dados de um estudo sobre demanda de TV's a cabo em 40
-    áreas metropolianas dos Estados Unidos. Neste estudo a variável
+    áreas metropolitanas dos Estados Unidos. Neste estudo a variável
     de interesse é o número de assinantes (\code{nass}) e as demais
     variáveis mensuradas tentam explicar esta contagem.
 }
diff --git a/man/PaulaTb4.9.Rd b/man/PaulaTb4.9.Rd
index 22425e3..6fcd4bb 100644
--- a/man/PaulaTb4.9.Rd
+++ b/man/PaulaTb4.9.Rd
@@ -22,7 +22,7 @@
 }}
 \source{
 Paula, G. A. (2004). Modelos de regressão: com apoio
-computacional. São Paulo, SP: IME-USP. (Tabela 4.9 pág. 322)
+    computacional. São Paulo, SP: IME-USP. (Tabela 4.9 pág. 322)
 }
 \description{
 Dados referentes a um estudo onde se avaliou o número de
-- 
GitLab