tests/testthat/test_ident_erros_munic_galileo.R

context("Teste do ident_erros_munic_galileo")

test_that("ident_erros_munic_galileo", {
  data("geocod_base", envir = environment())
  geocod_base <- ident_erros_munic_galileo(geocod_base, uf=geocod_base$uf, match=geocod_base$MatchedAddress, mun=geocod_base$Nome_Municipio)
  expect_equal(c(F,F,F,T,T), geocod_base$munmatch)
})

Try the utilsIPEA package in your browser

Any scripts or data that you put into this service are public.

utilsIPEA documentation built on May 2, 2019, 10:24 a.m.