From aae227fb6401cb0baccc09f0766428fea96bc960 Mon Sep 17 00:00:00 2001
From: Eduardo Junior <edujrrib@gmail.com>
Date: Sat, 29 Apr 2017 21:48:19 -0300
Subject: [PATCH] =?UTF-8?q?Corrige=20inclus=C3=A3o=20das=20s=C3=A9ries=20d?=
 =?UTF-8?q?escritas=20em=20A8?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 R/MorettinA8.R            |  27 ++--
 data-raw/MorettinA8.2.txt | 296 +++++++++++++++++++++++--------------
 data-raw/MorettinA8.3.txt | 304 +++++++++++++++-----------------------
 data-raw/MorettinA8.4.txt | 188 +++++++++++++++++++++++
 data/MorettinA8.rda       | Bin 2491 -> 2415 bytes
 man/MorettinA8.Rd         |  27 ++--
 6 files changed, 514 insertions(+), 328 deletions(-)
 create mode 100644 data-raw/MorettinA8.4.txt

diff --git a/R/MorettinA8.R b/R/MorettinA8.R
index 060a71e1..3882a2de 100644
--- a/R/MorettinA8.R
+++ b/R/MorettinA8.R
@@ -5,23 +5,25 @@
 #'     Produtos Alimentares; (c) PFI - Produção Física Industrial -
 #'     Indústria Geral; e (d) Produção Física Industrial - Alimentação e
 #'     Bebidas elaboradas para a indústria.
-#' @format Uma lista de três elementos, em que
+#' @format Uma lista de quatro elementos, em que
 #'
 #' \describe{
 #'
 #' \item{\code{A-PIB}}{São os valores do PIB - Produto Interno Bruto com
 #'     observações anuais de 1861 a 1986.}
 #'
+#' \item{\code{M-IPI}}{Produção Física Industrial - Produtos Alimentares
+#'     (base média de 1991=100), observações mensais de janeiro de 1985
+#'     a a julho de 2000.}
+#'
 #' \item{\code{M-PFI}}{São os valores da Produção Física Industrial -
 #'     Indústria geral (base média de 1991=100) com observações mensais
-#'     no período de 1991 a 2000.}
+#'     de janeiro de 1985 a julho de 2000.}
 #'
-#' \item{\code{M-Indices}}{É um objeto de classe \code{mts} que contém
-#'     os valores do imposto sobre produtos industrializados
-#'     (\code{IPI}) e do índice de produção física e industrial (base
-#'     média de 1991=100) referente a alimentação e bebidas
-#'     elaboradas para indústria. As observações são mensais de Janeiro
-#'     de 1985 a Julho de 2000.}
+#' \item{\code{M-BEBIDA}}{São os valores da Produção Física Industrial
+#'     - Alimentação e Bebidas elaboradas para Indústria (base média de
+#'     1991=100) com observações mensais de janeiro de 1985 a julho de
+#'     2000.}
 #'
 #' }
 #'
@@ -32,7 +34,6 @@
 #'
 #' data(MorettinA8)
 #' str(MorettinA8)
-#' MorettinA8
 #'
 #' # Estatísticas pontuais das séries
 #' sapply(MorettinA8, summary)
@@ -40,18 +41,16 @@
 #' # Selecionando as séries individuais
 #' (PIB <- MorettinA8[["A-PIB"]])
 #' (PFI <- MorettinA8[["M-PFI"]])
-#' (IPI <- MorettinA8[["M-Indices"]][, "IPI"])
 #'
 #' # Visualização das séries
 #' library(lattice)
 #'
 #' xyplot(MorettinA8[["A-PIB"]], type = c("o", "g"), pch = 20)
-#' xyplot(MorettinA8[["M-PFI"]], type = c("o", "g"), pch = 20)
-#' xyplot(MorettinA8[["M-Indices"]], type = c("o", "g"), pch = 20)
+#' xyplot(MorettinA8[["M-BEBIDA"]], type = c("o", "g"), pch = 20)
 #'
 #' # Juntando e visualizando as séries de mesma periodicidade
-#' series <- ts.union(" .PFI" = MorettinA8[["M-PFI"]],
-#'                    " " = MorettinA8[["M-Indices"]])
+#' series <- do.call(ts.union,
+#'                   MorettinA8[c("M-IPI", "M-PFI", "M-BEBIDA")])
 #' xyplot(series, type = c("o", "g"), pch = 20, superpose = TRUE)
 #'
 NULL
diff --git a/data-raw/MorettinA8.2.txt b/data-raw/MorettinA8.2.txt
index eb2cb198..9a9b1043 100644
--- a/data-raw/MorettinA8.2.txt
+++ b/data-raw/MorettinA8.2.txt
@@ -1,116 +1,188 @@
 x
-96.03
-77.87
-89.99
-101.29
-100.33
-100.93
-112.08
+84.15
+71.53
+72.55
+67.02
+72.61
+95.6
+105.12
+106.67
+96.97
+109.78
+97.8
+93.63
+92.39
+77.03
+66.75
+69.81
+73.01
+90.07
+100.8
+97.12
+103.99
+115.94
+97.8
+92.48
+92.14
+85.61
+86.39
+75.96
+73.53
+96.19
+103.02
+105.14
+111.03
+117.06
+104.21
+100.38
+87.06
+76.24
+78.47
+70.55
+75.14
+110.17
 112.72
-104.7
-112.51
-100.19
-91.35
-95.7
-90.16
-93.04
-89.22
-97.99
-99.93
-107.43
-105.25
-101.94
-107.38
-107.82
-103.73
-99.17
-88.89
-103.11
-92.44
-99.53
-99.92
-106.74
-105.81
-106.5
-108
-112.13
-104.53
-96.95
-87.13
+115.2
+111.23
+99.91
+96.85
+89.9
+82.1
+72.06
+78.65
+71.45
+74.93
+96.85
+103.18
+114.2
+112.74
+122.21
+111.57
+97.83
+100.62
+82.5
+76.56
+65.81
+83.59
+92.06
+107.18
+116.34
+109.26
+118.22
+111.21
+95.1
+95.41
+74.4
+84.5
+93.51
 99.95
-91.34
+103.34
+115.93
+118.06
+109.83
+115.65
+101.47
+87.93
+87.44
+82.39
+86.54
+88.74
+96.92
+107.86
+116.07
+114.03
+105.72
+111.31
+106.46
+95.59
+90.36
+77.73
+93.38
+89.65
+100.53
+105.84
+115.23
+113.98
+107.98
+107.94
+107.11
+95.89
+87.9
+76.12
+90.34
+85.33
 99.31
-102.42
-107.87
-121.35
-115.68
-114.17
-116.8
-112.32
-109.09
-98.53
-118.25
-100.28
-107.92
-104.52
-113.43
-120.46
-117.54
-127.95
-130.12
-125.18
-125.79
-109.31
-114.23
-110.96
-117.18
-107.31
-126.17
-128.15
-124.97
-133.43
-127.39
-123.41
-120.05
-100.77
-109.12
-115.78
-108.92
-114.47
-127.97
-132.92
-139.46
-142.92
-129.09
-123.92
-115.74
-104.87
-118.48
-109.77
-107.48
-115.01
-131.47
-132.63
-131.54
-132.66
-126
-120.87
-109.5
-99.64
-120.22
-113.17
-115.72
-118.98
-127.28
-140.42
-139.51
-137.92
-134.02
-130.08
-114.75
-113.62
-118.37
-109.86
-117.23
-114.89
-121.85
+107.17
+115.51
+126.9
+117.71
+116.51
+109.81
+99.9
+95.68
+84.69
+102.81
+89.73
+104.3
+109.88
+119.3
+125.92
+121.31
+131.09
+127.37
+115.37
+110.74
+93.78
+100.79
+99.53
+115.55
+115.33
+133.29
+135.62
+126.63
+134.93
+121.51
+109.79
+103.95
+88.2
+99.46
+105.22
+111.99
+117.25
+132.74
+136.36
+140.65
+143.1
+121.2
+111.36
+101.67
+92.32
+102.13
+102.57
+112.58
+125.52
+140.47
+138.75
+135.9
+135.16
+131.06
+112.08
+98.9
+89.77
+107.46
+104.98
+126.52
+129.81
+136.54
+148.31
+143.41
+142.99
+130.43
+115.05
+100.13
+99.9
+105.38
+101.96
+116.19
+124.66
+131.1
diff --git a/data-raw/MorettinA8.3.txt b/data-raw/MorettinA8.3.txt
index 59d99e80..eb2cb198 100644
--- a/data-raw/MorettinA8.3.txt
+++ b/data-raw/MorettinA8.3.txt
@@ -1,188 +1,116 @@
-IPI	Bebida
-84.15	59.92
-71.53	49.67
-72.55	49.63
-67.02	53.84
-72.61	57.49
-95.6	59.94
-105.12	54.51
-106.67	58.28
-96.97	63.46
-109.78	68.68
-97.8	69.3
-93.63	69.72
-92.39	69.88
-77.03	60.99
-66.75	57.48
-69.81	64.84
-73.01	72.92
-90.07	67.25
-100.8	77.81
-97.12	74.96
-103.99	81.57
-115.94	87.45
-97.8	81.78
-92.48	79.45
-92.14	76.84
-85.61	72.69
-86.39	73.31
-75.96	71.74
-73.53	64.27
-96.19	55.71
-103.02	59.83
-105.14	66.17
-111.03	71.38
-117.06	77.84
-104.21	77.88
-100.38	78.67
-87.06	77.4
-76.24	66.73
-78.47	73
-70.55	69.85
-75.14	64.22
-110.17	72.22
-112.72	64.64
-115.2	71.84
-111.23	75.73
-99.91	74.7
-96.85	75.32
-89.9	81.01
-82.1	73.99
-72.06	65.1
-78.65	75.69
-71.45	77.47
-74.93	85.84
-96.85	89.84
-103.18	80.53
-114.2	87.12
-112.74	86.68
-122.21	93.66
-111.57	91.55
-97.83	86.61
-100.62	89.89
-82.5	80.13
-76.56	73.99
-65.81	69.5
-83.59	90.27
-92.06	82.57
-107.18	80.37
-116.34	83.45
-109.26	83.13
-118.22	92.47
-111.21	97.07
-95.1	93.9
-95.41	90.99
-74.4	77.52
-84.5	86.95
-93.51	109.13
-99.95	103.65
-103.34	109.75
-115.93	110.25
-118.06	107.59
-109.83	103.5
-115.65	115.16
-101.47	97.86
-87.93	87.65
-87.44	83.97
-82.39	74.02
-86.54	77.01
-88.74	74.54
-96.92	93.9
-107.86	83.92
-116.07	79.09
-114.03	77.59
-105.72	79.39
-111.31	92.79
-106.46	92.03
-95.59	91.92
-90.36	82.42
-77.73	77.49
-93.38	91.54
-89.65	80.3
-100.53	95.91
-105.84	90.8
-115.23	92.46
-113.98	90.25
-107.98	90.58
-107.94	99.87
-107.11	102.06
-95.89	93.45
-87.9	79.19
-76.12	80.65
-90.34	91.97
-85.33	89.91
-99.31	93.98
-107.17	95.14
-115.51	82.88
-126.9	107.12
-117.71	115.08
-116.51	117.13
-109.81	124.46
-99.9	122.79
-95.68	115.55
-84.69	106.41
-102.81	132.93
-89.73	120.24
-104.3	107.2
-109.88	109.97
-119.3	106.86
-125.92	116.11
-121.31	119.69
-131.09	120.43
-127.37	128.39
-115.37	122.48
-110.74	113.13
-93.78	109.35
-100.79	107.59
-99.53	112.54
-115.55	109.17
-115.33	95.92
-133.29	114.53
-135.62	111.83
-126.63	113.36
-134.93	123.96
-121.51	123.47
-109.79	124.58
-103.95	113.65
-88.2	95.87
-99.46	100.02
-105.22	131.62
-111.99	106.44
-117.25	102.91
-132.74	112.5
-136.36	110.47
-140.65	117.69
-143.1	121.4
-121.2	119.52
-111.36	123.06
-101.67	109.85
-92.32	94.07
-102.13	124.66
-102.57	101.02
-112.58	102.78
-125.52	102.38
-140.47	110.99
-138.75	105.05
-135.9	109.98
-135.16	117.34
-131.06	118.53
-112.08	128.84
-98.9	94.29
-89.77	88.54
-107.46	113.61
-104.98	129.35
-126.52	97.76
-129.81	97.27
-136.54	100.76
-148.31	107.58
-143.41	114.39
-142.99	123.33
-130.43	126.08
-115.05	132.26
-100.13	95.26
-99.9	93.55
-105.38	134.62
-101.96	117.45
-116.19	115.11
-124.66	99.17
-131.1	101.1
+x
+96.03
+77.87
+89.99
+101.29
+100.33
+100.93
+112.08
+112.72
+104.7
+112.51
+100.19
+91.35
+95.7
+90.16
+93.04
+89.22
+97.99
+99.93
+107.43
+105.25
+101.94
+107.38
+107.82
+103.73
+99.17
+88.89
+103.11
+92.44
+99.53
+99.92
+106.74
+105.81
+106.5
+108
+112.13
+104.53
+96.95
+87.13
+99.95
+91.34
+99.31
+102.42
+107.87
+121.35
+115.68
+114.17
+116.8
+112.32
+109.09
+98.53
+118.25
+100.28
+107.92
+104.52
+113.43
+120.46
+117.54
+127.95
+130.12
+125.18
+125.79
+109.31
+114.23
+110.96
+117.18
+107.31
+126.17
+128.15
+124.97
+133.43
+127.39
+123.41
+120.05
+100.77
+109.12
+115.78
+108.92
+114.47
+127.97
+132.92
+139.46
+142.92
+129.09
+123.92
+115.74
+104.87
+118.48
+109.77
+107.48
+115.01
+131.47
+132.63
+131.54
+132.66
+126
+120.87
+109.5
+99.64
+120.22
+113.17
+115.72
+118.98
+127.28
+140.42
+139.51
+137.92
+134.02
+130.08
+114.75
+113.62
+118.37
+109.86
+117.23
+114.89
+121.85
diff --git a/data-raw/MorettinA8.4.txt b/data-raw/MorettinA8.4.txt
new file mode 100644
index 00000000..7b900ab0
--- /dev/null
+++ b/data-raw/MorettinA8.4.txt
@@ -0,0 +1,188 @@
+x
+59.92
+49.67
+49.63
+53.84
+57.49
+59.94
+54.51
+58.28
+63.46
+68.68
+69.3
+69.72
+69.88
+60.99
+57.48
+64.84
+72.92
+67.25
+77.81
+74.96
+81.57
+87.45
+81.78
+79.45
+76.84
+72.69
+73.31
+71.74
+64.27
+55.71
+59.83
+66.17
+71.38
+77.84
+77.88
+78.67
+77.4
+66.73
+73
+69.85
+64.22
+72.22
+64.64
+71.84
+75.73
+74.7
+75.32
+81.01
+73.99
+65.1
+75.69
+77.47
+85.84
+89.84
+80.53
+87.12
+86.68
+93.66
+91.55
+86.61
+89.89
+80.13
+73.99
+69.5
+90.27
+82.57
+80.37
+83.45
+83.13
+92.47
+97.07
+93.9
+90.99
+77.52
+86.95
+109.13
+103.65
+109.75
+110.25
+107.59
+103.5
+115.16
+97.86
+87.65
+83.97
+74.02
+77.01
+74.54
+93.9
+83.92
+79.09
+77.59
+79.39
+92.79
+92.03
+91.92
+82.42
+77.49
+91.54
+80.3
+95.91
+90.8
+92.46
+90.25
+90.58
+99.87
+102.06
+93.45
+79.19
+80.65
+91.97
+89.91
+93.98
+95.14
+82.88
+107.12
+115.08
+117.13
+124.46
+122.79
+115.55
+106.41
+132.93
+120.24
+107.2
+109.97
+106.86
+116.11
+119.69
+120.43
+128.39
+122.48
+113.13
+109.35
+107.59
+112.54
+109.17
+95.92
+114.53
+111.83
+113.36
+123.96
+123.47
+124.58
+113.65
+95.87
+100.02
+131.62
+106.44
+102.91
+112.5
+110.47
+117.69
+121.4
+119.52
+123.06
+109.85
+94.07
+124.66
+101.02
+102.78
+102.38
+110.99
+105.05
+109.98
+117.34
+118.53
+128.84
+94.29
+88.54
+113.61
+129.35
+97.76
+97.27
+100.76
+107.58
+114.39
+123.33
+126.08
+132.26
+95.26
+93.55
+134.62
+117.45
+115.11
+99.17
+101.1
diff --git a/data/MorettinA8.rda b/data/MorettinA8.rda
index ba10e8546267f9d48139c06fba0e3434e05244c9..20ad72b27bdfb975a166b8af530f03b603853a5a 100644
GIT binary patch
literal 2415
zcmZ>Y%CIzaj8qGb^!`81fq~_7{r`Xek-&E_`}_a@zyJTg|NsC0`uG1Iu$v!P+Rh;M
zmgVibt<x?wT;#YYe5y*>vt#~Z-{7yluX0svP5M25&GO}Go4<-p_zL5K3$_Yh<(6;t
zHK}r&$+&Q_f8YXxD_`Xnm|RxAFe`(XL5j!iO2v#z{vMTXnQ|IVYOMy#r~LJt@X6%l
z!ig(RRQ0ZWl5wS~eZ>j61sTj7Qfv(j7Z@0hWH6X8FnncP)&Qazq<Hx~1cMJSFie?{
z!GH;Pp+Za``T_$3gA_~zMuQ|67#K_#6c`v7K!S`5K<YrkFdD>WU|@D&n5d!b>96w9
z_f_VyneHoJ%*tR~kU4Q#gA|)u!^H(A%)Shl9e5fpF0fT=R$wsUWiYwGz>wKtFe~G-
z<Alsbmg33odp2h8y1w$qrfCuFkN6utt#nJ0<1*-1%eQxXEX1&dF`=RB6W0gR3sqmf
zU1nJsdUf%<yczi)q;@$uCbqP!p0a6^i^t5*p5jXm2x<$p_!b`WFxOyNFhggD;(RHO
zq(j9j3T*<9B<=|Eadar;w4BJ@p`>`=;1P%0ZDJKSFIsJTvO>@^&{=WghI_ZxWgJU;
zDAOviN9dAJXfLn9u{Sk!CR2qzO?mP(>wKh!PTJNv4ohoa_MLcUC*!RCZ*%a2SAi4W
zy<Esx^5_@0)bFkL<<DPcJs@x?;3w--2d9d!;a|(rd_wblWD*$!$~i^rOhwwt%fdb+
zc=jyHl1ZwX9BAu*+fj5%Scli1Rc~*tR_&Rtn=;qD;N6=2R<Tbsrmvdhlat!0yD5Ul
z|H;!ccOE^x@;PMLzM4(Xj6c5?{C#;MN4Q&~X>5(gB(V(zdRmVgq!!8*IGqx+nH*)U
zT^!qS(6Q|0)If=p6Ac_K*HnY&%CQxF-gNlX<}E>cO}4H{x_+oaP@v$1K&PGJxr={7
zY;0m)8*;CDA0y3^W$SwM`YhwBO0Dw@4sF|C@a6oNUtf1LW9Rhb-RIUuZDEU9vEpOG
zlb6d+i}%l6dfl*x{q(V}*~;CD%+X%=OIcgKtGFnpe7-j|j`f{T*|wG2ujPgH?s;-k
zKtXQR{y9hIm+jksbAA2gyzHg(&i0mSg+`kE{H&w<-}%p+i%-NJ+lNg55SBk<_Co2u
z;({5U^n84tg)Ua^U79(4t;>q13mcC4ED?GwWPi`_a)g(KOZy>LU$*6OE=;^BM=oeF
zPB)yY)iQD3sVgBTx|iuG%=jU*ta34<X1I?^u)&JNzFiS(Wd)g5OKDrmG#qN)J-MoH
zb*{#5qwZ+_fEm**js}LLoSLyh_DXfkRukb!FI|aco6l?#b@_HxHCOD?#0v^-#xI3}
z=Qu~piiUiQ((aqX;k{~&?waKu6L^FSwZ5krPItO=&R6LB%0lhbZb_4sSIzV`+Aa+=
zV>vY0qVEg~U$(|$rWt`21__D|HyGVjf=YxIo1Q$VU_4E$gQHbcU0^j6S19*9<3md~
z-^h+iF`6Ty&B)Gn@pPtJh?15;7n|(|E*tkCkK~<C%eW8bvAasBUOOnB%hapcZ|(Jz
zaq0Rdaj7Un386z9ZfkGp+LLU$Z%y@^N|jSG3z~VCE}r0SbJ{^?Ma!+j9^X@s+Hx_;
z%ZS~#`u6R1{E7dyfA8i_nRE2q<OdH{tl&Al<f(eej=$@3<}A%ux!RZ&?-iRGV;iPo
zDK&SUFRz{5Ws3wyCD8>O%=g1yEPYv)JA?WBx|ZT6e@{&QBdVQz`p7Sd?d4lHt!0^d
zB|{`Zckj;5cR#mh7n;|-3TX}I<=QPe&Ev*Lr!Y&`Nlop~1X{!-+xwgZ93Lwfx^dqy
zFuHnS!$js^?#o@5@hf|&PUh836-w7~t2SJ`_p(FN9&U3^l~29W!9x2D*>0!iD|x(_
z(H+*hdFQf5Zu6QJ#?983@63>pzQdp+D!^pw<DrqwcZnx(S@rptwC&gHE_|6Rd|v10
zq^eAY5H^J**V-wH@}C(a;u4rG4oqCzxFkBtVWR6TA@z;DKi5=8JX`xdAZ~6=YwEw4
zeR3xA{hjAFW<Hz1n8v|)>R%P}j*p_>wKg+qPf@*<vhwie-$&Lxye8RySlOqhC{S*x
z*hSrsecQ!@uA23Bef;o9F7D9v!h<5#UTL#<H~rkUL%#3Ty3PavrlzCa0&&~VxfMU*
zT=1}W|I-D0JPl{3JpOj{uvS&20w3!+KU<!4DQD$G{>*-xG9~1E(4?qCCn{B1TTf)!
zbK0K~`O)ru|KqZkZ=bVhvo&Z1<p<Riq^w-iv(VA@`E`rEMi*uO<=3o`4Dq#XVH8{B
zdCPYNpHSd}`%lwOdM}(G<XJJB@w=abYn?bV*Z(l_so_7itlhHOOYU;x&OK+<7I^eD
z)f6xD|F`Alx=4>psX_w(PaS1aVBl8BI+|&=^(xbMZEl9Pf>peHpOmg!O=#9P^S3{p
zc{b$Zeea{f&a>v8XFdJYs9d7*a2ex<FcYufIUmjjC9N>xR?1yjDVdul-OglQ;~=)^
z>&3K;kcYQ!FBN=uORBPeHVbRC_1o6DeTP%mT+Dp@BI&dL&&T>AnHQ9OE-w0OQl%?C
z!>?|aH<!=7%NJI-d|(tzR@uh$Y|84#^K6sS&k5gWV98zcb<6x+o===YKF^=ixpzL3
zyyZK4pQR?dCJGAh+1CmFI-Wc2@*cK*)6Qm|IkPTT&}~^=ch{1VtPsxqhRR846MrB6
zuD84S(q7Fi!F>;(rcL{Jt8D+fSvyrkBbuuJHHD|<XloetY-<c@)7ai~f;;2S?gtLb
zdYD-I_MMrXX48Maq|Wf|tbKJeWt9{aHmXSbPH^yG5#YEzlh-?DM$Dvk15+NA@GG71
zjY%g}iv(G|PZW4lbSvCkYO}_-q+4gD-x~_6DzfEhPF*?qh;R21j&3$l@oc9pyT#g$
z89g$)r4=f)ZQ`fN?&by!if3<xCx_13WxZQ(+pC0`(~I6tHIR;B^fO{L>dY0q{9J;;
zAzUwt*J+h#-O=2u@8Tp|f`yyfTrQb=nJl`Le&L0BgVO)Crh&4#v-?Dk)xDHCd(}xv
zQOoAnm3wM$mu>Zw$V>RfFUSx%)6|p2NkrYm<4Bh5Z=d+X2Yq^b`g9vyG@mQm2j=uW
zOZ)ceWB6vB8!zLlxKrC7FtFX@E9&m?5qZ1g8k67Z2~nX^d$Zakmw2pRyshWghURr^
Zt=xYry*zp1{*T?0G!L~j#sAsF005l6KnDN-

literal 2491
zcmZ>Y%CIzaj8qGb6#1ZWhJoexe^l@t%>DlV|L_0*@Bjb*zyAII2khYoR~i>EoMX?r
zbvb3J!bQ%-fkqjJCjJV1YO{RGSL3TDDYu$0RXJRcTYRNTAag<0tg4=@l#?%)bzFA%
z%3xB}?~$u~%GShfro=_#fD98!latG4T={D2oK>ynsC-fS%Dl-JGC3EqO{(+>{x+qO
zcU4uUt@~2@kT3meroPLZeSK#83Nr_DE}OUbl*wg=j2XTXOw!6uDQBIpBrpgz)vdT-
z>yYbkS+M1@uwa8pPiXL;42BtkfhG(LDVH5i@H8%9_GN66%3xgVaNz=5gGmOn0|Vn^
z1*y!*3JfL;Y_k~H8Uz^F8W@m328b;MA{ZBdNCpND24)8c3qqQJC|(f3Z~;s*FscOj
zbX*Wtn|#Z2mdUBAhOcrR7q`q?kix$5r3ph-;{wLTSCZI#c}>{dnjP3zE_@}$P}SCO
zftP`;apAHClZz87m3_`$DERh0>i@1q+in#<@R`#URnI4O#Gzfa{L`QFpGqA09SvMK
zXZ8teEm?gfK#Yswu*+O_)5!If*RF4#Bz!z_$5IcDnG)LVA_u30_`GyT+9#3Ft}VQf
zqp{J_ihah}q^DQ>-byhQFmskWw0)oC%&lj{J<ac&HP1Qg&3*4I&R8YhoH?hwtgvzJ
zowW4Sm^)`Odc!|m>N0GcsI$h};LN&+r77#atedW>J$<X5!kiNcso`gztvb}Gwe-vz
z)wMS#Fs)+U$>3${ak28+>@^EpPu^O;vgEwkCl>`xi`!aVS-Z}hIdfTyYj^(Pv<>T}
zOa%R(yfm+PWAOP)p_B{9%V+AFwXR%v@%6;QCjQ-@W-h(3tK_oSYo?ccH$Dg`O_NBT
zW7IPJ<$9y9yocvnsA=%-b>if@xYX2R6GQj>AckdoOru_|5<POk?3#SVYX7?>{%a<&
zC<Ym^oT}|!wsv#Ff-ef(9&Z!0%fq+kERUXW>*224w&EW`=Px=%n<Tjf>)Xp-cx`?*
z^d6g?y_rOQ!lX~y?^aFm6v=7vw&8!0TG5}|^Kj}ksa~eX<s4tNjdvQp-xc}PP(eWP
zYd7on&xXIU9<>{*#vVJYvwTOvs_)#b$vb~nAKL0Nv3<Mm8mZ5$Qz9g17arfsyDs-u
z;7lb&_65tYmf2{^q`cJ)K5+TAS^v&ID+Ltf0~73L*vsxYyEJ%LcGjGae|ob&a)u?Y
zjy%(rKfmLaZ6Tli%Epvw`AhaVM*n4K%GY{y<dnmfxQ7wf9PcR^7hO1LIEksZq%rQX
ztT9JqZmaDEmJ?mM34tQrx(^qza85Ox%GsrHeX-{%SJz;6k(}CgW}6EevO<GX9L}&9
z9FKX$t8y_x>xItKBGzX<({`F&m=c|CesyxxjVdnZn1!s40o@u2j=F)bGXk!uP3)0!
zJefYhr9}F+OLN+`#@IwRCwW#;%cG|G0ipb?i>9xP2)eb(Ks(e*bwjvHbLh5BpHk1L
zhpS~)U)jN&T(M_aiPe&$m)O^2nB9n8uH5rxM^bU5xrA2&@1dPdPA#`tSi00Tdjlpt
zdg$U-blkCHMS#j<SsjhXj!_j}uUO*_hi%fF^3X>@MaFmbv<nJ~0)cHzhHrNSSDafi
z<#_SI>v~Uj_%-QyuP)NfIcnC}uXXH#pwRUjt%pimIFzoGDko=qtxn|B{gQk?_^4W-
zauSbQ%blj3&!Sj1xK7IE6~0x@qAjFT6m*||@uLqP;@4X*e6+iUPx$$>;#~$j5{J3n
zm0uk>InPY5HD|-+H<>Th^|L2Vcs9)_>%GJhmJ<>m8X3L+y!ES=)71?M7Kz?|cE4rH
zzq8Zr-k-dGMe^y|M-K!=CKxif&#g_Guv*@7o4%8-u<xu_xu;itkKMxh?(D>ktw}HM
z74yB@Ah9%e;$4w7O>0{p8bm)W2!CI@y525I?B~gT9!ZUKZ?<{af9=#(iz=~*97vSB
z<hezsCz&&9L$h@A`bL$s2-jl8TwM`A#j0t34Z6}ox6+ty9XueqXC0IN4G-1S$tlh4
z_Gx!FADi}YZK>ssj>m1*k1T~4X7MN_D$Qnl;l|9c@`VN4+=j-fvsDtaV?3s<J@DhE
z&&rw!r{`U=dM>d%{et>$6NiB6{V$@fs6Mlw^Hy9rQ%74{&*0W>AqInk44Ni#f_JX1
zI_dAergdd&+_9!dGW%O&5>HGH-L8AtZDYdRmkUAznwL&Fy1*(;A^xY&?kSydubMWl
z`El!^eDtGRfB!fde|9K5aCBGl{CB^<yj?EM(7=DDqeVktoqA}*XRbh-q$i$?g)%Qw
z|IfSSbmQq_{}?-y-P3g^T|CkgF7bNzvfV5C6lSNpe)Z%DNfXHV<@BI<*PRskchBWH
zE}Pu4*gT`-AlKXpY-Vh=)?ZIQp7Pv!g22Ow^n2znwsrJ<D({;1Qc&Y}52I+Q;H#w}
z?4lYM?!TY)<>8g%>lAJ%ZM)*8;A-~2zqD^vX>sVEYZtFw^(i}gJ0ruDZHvdImHS+I
z_Rjx(^~guQjFQ(9C*N$i)4?E7{y<LF`xdXwk~F@HQN`PXq9#uNGs%hXnJ!!PjH}Z>
z?l0&2;PO^vx(w_6<g1U23fmmm5<-Oz<?@EaJbd+9S4}C>=yq6?PtVpXH|D%zy;f&@
z`dCGl^vNp@-|TDJ>OaiZP+-xh=&Z>9+2{D#Qol{h(%k-3Wm|m;BOm94-uiMWvm-k7
zL8`Y+-817pon+`(P_aH`BHyW?w7ywP(~Q^dxxlf0!|KQ1m9OdObGptF3;y-*%$#^f
ztL3}}?>IUd9(-IImJ{f^_if<W;<RVGy_{_F<+$cXn=a2aHk1w9`jSbp(@^0%!?zDr
z%6qLZ_7sY-FUt&;+rGZ}V3mu5lYxW2bjk89)iTGG`=SLjCS19C=n>l;Tip)|L2Zmo
zhwlf?=E>C0?c4INU4KKwy@`o7hnJ?k@^R?lad0^}(_5eWRL#ph>9sE-f4ZKvc*nAP
zCFe8Wi%N?3AHSBX3sZ~PJLB(~i<NO5UosqLdqrnOK2+QJkx6MXTh==1%<5Bz*Uihz
z?QyqRx#!N~rRr0r_BjZ={$n-sYl_mGY@Iz3kL-Ou8C|)MoTsQ2^2+=`HOCsK1_AZ+
z^Ewx*$rUDD2uZwu>R>}-tlg5o_PkdPuZR!h^I_7FFFTa`TD<t^&J|r<9y^ZsF4VGW
zyK+XmTxNsE|9hTi?UWc+7H;umapDo5rIKiA-0(O;*eF;yQCQ@HlEn7U=dMH>@9GzO
zcQ;7+=GHsAE^phioq@qFz0PHMM|;LY-z5qc*JUeuSh7y36K!a$pZerrZiwUQsS{`C
V?~`cQBllzXB+WxD4a*zd5&%`uet7@@

diff --git a/man/MorettinA8.Rd b/man/MorettinA8.Rd
index 29f22c77..5373290c 100644
--- a/man/MorettinA8.Rd
+++ b/man/MorettinA8.Rd
@@ -3,23 +3,25 @@
 \name{MorettinA8}
 \alias{MorettinA8}
 \title{Índices de Produtividade do Brasil}
-\format{Uma lista de três elementos, em que
+\format{Uma lista de quatro elementos, em que
 
 \describe{
 
 \item{\code{A-PIB}}{São os valores do PIB - Produto Interno Bruto com
     observações anuais de 1861 a 1986.}
 
+\item{\code{M-IPI}}{Produção Física Industrial - Produtos Alimentares
+    (base média de 1991=100), observações mensais de janeiro de 1985
+    a a julho de 2000.}
+
 \item{\code{M-PFI}}{São os valores da Produção Física Industrial -
     Indústria geral (base média de 1991=100) com observações mensais
-    no período de 1991 a 2000.}
+    de janeiro de 1985 a julho de 2000.}
 
-\item{\code{M-Indices}}{É um objeto de classe \code{mts} que contém
-    os valores do imposto sobre produtos industrializados
-    (\code{IPI}) e do índice de produção física e industrial (base
-    média de 1991=100) referente a alimentação e bebidas
-    elaboradas para indústria. As observações são mensais de Janeiro
-    de 1985 a Julho de 2000.}
+\item{\code{M-BEBIDA}}{São os valores da Produção Física Industrial
+    - Alimentação e Bebidas elaboradas para Indústria (base média de
+    1991=100) com observações mensais de janeiro de 1985 a julho de
+    2000.}
 
 }}
 \source{
@@ -37,7 +39,6 @@ Séries temporais dos índices de produtividade (a) PIB -
 
 data(MorettinA8)
 str(MorettinA8)
-MorettinA8
 
 # Estatísticas pontuais das séries
 sapply(MorettinA8, summary)
@@ -45,18 +46,16 @@ sapply(MorettinA8, summary)
 # Selecionando as séries individuais
 (PIB <- MorettinA8[["A-PIB"]])
 (PFI <- MorettinA8[["M-PFI"]])
-(IPI <- MorettinA8[["M-Indices"]][, "IPI"])
 
 # Visualização das séries
 library(lattice)
 
 xyplot(MorettinA8[["A-PIB"]], type = c("o", "g"), pch = 20)
-xyplot(MorettinA8[["M-PFI"]], type = c("o", "g"), pch = 20)
-xyplot(MorettinA8[["M-Indices"]], type = c("o", "g"), pch = 20)
+xyplot(MorettinA8[["M-BEBIDA"]], type = c("o", "g"), pch = 20)
 
 # Juntando e visualizando as séries de mesma periodicidade
-series <- ts.union(" .PFI" = MorettinA8[["M-PFI"]],
-                   " " = MorettinA8[["M-Indices"]])
+series <- do.call(ts.union,
+                  MorettinA8[c("M-IPI", "M-PFI", "M-BEBIDA")])
 xyplot(series, type = c("o", "g"), pch = 20, superpose = TRUE)
 
 }
-- 
GitLab