data-raw/_debug.R

library(tidyverse)
library(armade)
library(magrittr)
library(readxl)
library(ggplot2)


setwd("./data-raw/")
getwd()

library(armade)

read_excel("TF_PSF_FM_Dados Rede Armadilha Adesiva.xlsx") %>%
  armade_mensal(mes = 1, ano = 2018)

dados = read_excel("TF_PSF_FM_Dados Rede Armadilha Adesiva.xlsx")
mes = 1
ano = 2018
i = 3


library(armade)
read_excel("TF_PSF_FM_Dados Rede Armadilha Adesiva.xlsx") %>%
  armade_bimestral(inicio = "07/17", "08/17")

dados = read_excel("TF_PSF_FM_Dados Rede Armadilha Adesiva.xlsx")
inicio = "07/17"
fim =  "08/17"
#
# k = "SP"
# k = "MA"
# k = "BA"
#
# armade_bimestral(dados, inicio, fim)
#
mes = 10
ano = 2017
i = 2
j = 1
.nucleo = "BA1"
#
italocegatta/armade documentation built on April 2, 2018, 8:26 p.m.