From 4920189a414626ea760d2cbc5f12f36f9e2d0405 Mon Sep 17 00:00:00 2001
From: DiegoKoz <diegokoz92@gmail.com>
Date: Sat, 23 May 2020 08:06:03 +0200
Subject: [PATCH] cleanup

---
 R/organize_caes.R        | 2 +-
 tests/testthat/.Rhistory | 7 -------
 2 files changed, 1 insertion(+), 8 deletions(-)
 delete mode 100644 tests/testthat/.Rhistory

diff --git a/R/organize_caes.R b/R/organize_caes.R
index b78cfd9..6e3e2d0 100644
--- a/R/organize_caes.R
+++ b/R/organize_caes.R
@@ -3,7 +3,7 @@
 #'              CAES Mercosur 1.0 y CAES Mercosur.
 #'              Basado en https://www.indec.gob.ar/ftp/cuadros/menusuperior/clasificadores/notas_explicativas_caes_v2018.pdf
 #'
-#' @param base  Base individual de uno o más períodos
+#' @param base  Base individual de uno o mas periodos
 #'
 #' @return Devuelve la base con 8 columnas nuevas (ver \code{\link{caes}})
 #'
diff --git a/tests/testthat/.Rhistory b/tests/testthat/.Rhistory
deleted file mode 100644
index b8df4f1..0000000
--- a/tests/testthat/.Rhistory
+++ /dev/null
@@ -1,7 +0,0 @@
-test_that("consistencia constante", {
-lista_bases <- list(toybase_individual_2016_03,toybase_individual_2016_04)
-pool_trimestral <- suppressWarnings(organize_panels(bases = lista_bases,
-variables =c("P21","ESTADO"),
-window = "trimestral"))
-expect_equal(round(sum(pool_trimestral$consistencia)/nrow(pool_trimestral),2), 0.97)
-})