diff --git a/R/MorettinTb3.1.R b/R/MorettinTb3.1.R
new file mode 100644
index 0000000000000000000000000000000000000000..3a54bc08b8d5fe2b6a23e2704e3d092391e05a56
--- /dev/null
+++ b/R/MorettinTb3.1.R
@@ -0,0 +1,35 @@
+#' @name MorettinTb3.1
+#' @title Consumo de Energia Elétrica no Espírito Santo
+#' @description Dados sobre o consumo de energia elétrica no Espírito
+#'     Santo, de Janeiro de 1977 a Dezembro de 1978, arredondados.
+#' @format Uma série temporal (classe \code{ts}) com 24 observações
+#'     mensais, de 1977 a 1978.
+#'
+#' @keywords TS
+#' @source Morettin, P. A., Toloi, C. M. C. (2006). Análise de Séries
+#'     Temporais (2nd ed.). São Paulo, SP: Editora Egard
+#'     Blucher. (Tabela 3.1, pág. 49; tabela 3.2, pág. 51; tabela 3.3,
+#'     pág. 54; tabela 3.4 pág. 63)
+#' @examples
+#'
+#' data(MorettinTb3.1)
+#' str(MorettinTb3.1)
+#'
+#' library(lattice)
+#'
+#' # Série completa
+#' MorettinTb3.1
+#' summary(MorettinTb3.1)
+#' xyplot(MorettinTb3.1, type = c("o", "g"))
+#'
+#' # Apenas os dados da tabela 3.1 e 3.3
+#' (da <- window(MorettinTb3.1, end = c(1978, 12)))
+#' summary(da)
+#' xyplot(da, type = c("o", "g"))
+#'
+#' # Apenas os dados da tabela 3.2
+#' (da <- window(MorettinTb3.1, start = c(1979, 1)))
+#' summary(da)
+#' xyplot(da, type = c("o", "g"))
+#'
+NULL
diff --git a/R/MorettinTb3.6.R b/R/MorettinTb3.6.R
new file mode 100644
index 0000000000000000000000000000000000000000..af7abba265006032d71bd839a5eff48e46738b27
--- /dev/null
+++ b/R/MorettinTb3.6.R
@@ -0,0 +1,23 @@
+#' @name MorettinTb3.6
+#' @title Índice Produto Industrial do Brasil
+#' @description Dados sobre a variação mensal do índice de produto
+#'     industrial (IPI) do Brasil no período de 1969 a 1980.
+#' @format Uma série temporal (classe \code{ts}) com 139 observações
+#'     mensais, de 1969 a 1980.
+#'
+#' @keywords TS
+#' @source Morettin, P. A., Toloi, C. M. C. (2006). Análise de Séries
+#'     Temporais (2nd ed.). São Paulo, SP: Editora Egard
+#'     Blucher. (Tabela 3.6, pág. 68)
+#' @examples
+#'
+#' data(MorettinTb3.6)
+#' str(MorettinTb3.6)
+#'
+#' MorettinTb3.6
+#' summary(MorettinTb3.6)
+#'
+#' library(lattice)
+#' xyplot(MorettinTb3.6, type = c("o", "g"))
+#'
+NULL
diff --git a/data-raw/MorettinTb3.1.txt b/data-raw/MorettinTb3.1.txt
new file mode 100644
index 0000000000000000000000000000000000000000..cf4be0a583f4807435232093e15a740624d162c1
--- /dev/null
+++ b/data-raw/MorettinTb3.1.txt
@@ -0,0 +1,29 @@
+x
+84.6
+89.9
+81.9
+95.4
+91.2
+89.9
+89.7
+97.9
+103.4
+107.6
+120.4
+109.6
+110.3
+118.1
+116.5
+134.2
+134.7
+144.8
+144.4
+159.2
+168.2
+175.2
+174.5
+173.7
+179.8
+185.8
+270.3
+196.9
diff --git a/data-raw/MorettinTb3.6.txt b/data-raw/MorettinTb3.6.txt
new file mode 100644
index 0000000000000000000000000000000000000000..66738b385c24007a61d68b707d2b22ba63323601
--- /dev/null
+++ b/data-raw/MorettinTb3.6.txt
@@ -0,0 +1,140 @@
+x
+7.78
+7.351
+8.317
+8.036
+8.424
+8.3
+8.985
+8.589
+8.564
+8.614
+8.102
+8.044
+8.209
+7.738
+8.828
+9.15
+8.96
+9.282
+9.934
+9.549
+9.572
+10.272
+9.991
+9.537
+8.761
+8.501
+9.642
+9.058
+9.256
+9.799
+10.828
+11.063
+10.652
+11.278
+10.661
+10.5
+9.759
+9.876
+10.664
+10.11
+11.055
+11.615
+11.73
+12.587
+12.046
+12.852
+12.259
+12.214
+11.798
+11.278
+11.945
+11.695
+12.734
+13.405
+13.836
+14.388
+14.069
+15.519
+14.68
+14.104
+13.577
+12.451
+13.856
+13.812
+14.28
+13.692
+15.502
+15.423
+14.947
+16.031
+14.462
+13.791
+13.608
+12.794
+13.889
+14.555
+14.545
+15.114
+15.886
+15.541
+15.77
+16.375
+15.386
+14.927
+14.829
+15.297
+16.33
+15.807
+16.623
+17.196
+17.691
+18.012
+17.625
+18.244
+17.102
+16.744
+15.385
+15.062
+17.896
+16.262
+17.82
+17.911
+17.818
+18.41
+17.658
+18.273
+17.922
+16.987
+16.681
+15.886
+18.281
+17.478
+18.412
+18.849
+19.023
+20.372
+19.262
+20.57
+19.304
+18.407
+18.633
+17.497
+19.47
+18.884
+20.308
+20.146
+20.258
+21.614
+19.717
+22.133
+20.503
+18.8
+19.577
+18.992
+21.022
+19.064
+21.067
+21.553
+22.513
diff --git a/data/MorettinTb3.1.rda b/data/MorettinTb3.1.rda
new file mode 100644
index 0000000000000000000000000000000000000000..3a1b2d900273d8a5bb8cfccc0a15563c4b825a23
Binary files /dev/null and b/data/MorettinTb3.1.rda differ
diff --git a/data/MorettinTb3.6.rda b/data/MorettinTb3.6.rda
new file mode 100644
index 0000000000000000000000000000000000000000..8732cd0309a611b71b35626c845ce6c4646c0056
Binary files /dev/null and b/data/MorettinTb3.6.rda differ
diff --git a/man/MorettinTb3.1.Rd b/man/MorettinTb3.1.Rd
new file mode 100644
index 0000000000000000000000000000000000000000..afcf2b7bdaca11245844bb5fae07aac91ec37797
--- /dev/null
+++ b/man/MorettinTb3.1.Rd
@@ -0,0 +1,42 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/MorettinTb3.1.R
+\name{MorettinTb3.1}
+\alias{MorettinTb3.1}
+\title{Consumo de Energia Elétrica no Espírito Santo}
+\format{Uma série temporal (classe \code{ts}) com 24 observações
+    mensais, de 1977 a 1978.}
+\source{
+Morettin, P. A., Toloi, C. M. C. (2006). Análise de Séries
+    Temporais (2nd ed.). São Paulo, SP: Editora Egard
+    Blucher. (Tabela 3.1, pág. 49; tabela 3.2, pág. 51; tabela 3.3,
+    pág. 54; tabela 3.4 pág. 63)
+}
+\description{
+Dados sobre o consumo de energia elétrica no Espírito
+    Santo, de Janeiro de 1977 a Dezembro de 1978, arredondados.
+}
+\examples{
+
+data(MorettinTb3.1)
+str(MorettinTb3.1)
+
+library(lattice)
+
+# Série completa
+MorettinTb3.1
+summary(MorettinTb3.1)
+xyplot(MorettinTb3.1, type = c("o", "g"))
+
+# Apenas os dados da tabela 3.1 e 3.3
+(da <- window(MorettinTb3.1, end = c(1978, 12)))
+summary(da)
+xyplot(da, type = c("o", "g"))
+
+# Apenas os dados da tabela 3.2
+(da <- window(MorettinTb3.1, start = c(1979, 1)))
+summary(da)
+xyplot(da, type = c("o", "g"))
+
+}
+\keyword{TS}
+
diff --git a/man/MorettinTb3.6.Rd b/man/MorettinTb3.6.Rd
new file mode 100644
index 0000000000000000000000000000000000000000..67ec4278f9134d72cb2c0e8c3dbef7d0f9f9a660
--- /dev/null
+++ b/man/MorettinTb3.6.Rd
@@ -0,0 +1,30 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/MorettinTb3.6.R
+\name{MorettinTb3.6}
+\alias{MorettinTb3.6}
+\title{Índice Produto Industrial do Brasil}
+\format{Uma série temporal (classe \code{ts}) com 139 observações
+    mensais, de 1969 a 1980.}
+\source{
+Morettin, P. A., Toloi, C. M. C. (2006). Análise de Séries
+    Temporais (2nd ed.). São Paulo, SP: Editora Egard
+    Blucher. (Tabela 3.6, pág. 68)
+}
+\description{
+Dados sobre a variação mensal do índice de produto
+    industrial (IPI) do Brasil no período de 1969 a 1980.
+}
+\examples{
+
+data(MorettinTb3.6)
+str(MorettinTb3.6)
+
+MorettinTb3.6
+summary(MorettinTb3.6)
+
+library(lattice)
+xyplot(MorettinTb3.6, type = c("o", "g"))
+
+}
+\keyword{TS}
+