Title: | Analytical Procedures in Support of Brazilian Public Sector External Auditing |
---|---|
Description: | Set of analytical procedures based on advanced data analysis in support of Brazil's public sector external control activity. |
Authors: | Bruno M. S. S. Melo |
Maintainer: | Bruno Melo <[email protected]> |
License: | GPL (>= 2) |
Version: | 0.1.1 |
Built: | 2025-03-06 03:02:54 UTC |
Source: | https://github.com/brunomssmelo/rcexttools |
Este metodo simplesmente retorna o atributo 'tabela' de um objeto da classe TipologiaRisco.
## S3 method for class 'TipologiaRodizio' as.data.frame(x, ...)
## S3 method for class 'TipologiaRodizio' as.data.frame(x, ...)
x |
objeto da classe 'TipologiaRodizio'. |
... |
eventuais argumentos adicionais. |
Bruno M. S. S. Melo
## Not run: casosSuspeitos <- TipologiaRodizio(dados) dfCasosSuspeitos <- as.data.frame.TipologiaRodizio(casosSuspeitos) ## End(Not run)
## Not run: casosSuspeitos <- TipologiaRodizio(dados) dfCasosSuspeitos <- as.data.frame.TipologiaRodizio(casosSuspeitos) ## End(Not run)
IMPORTANTE: Todos os campos que pudessem identificar o ente federativo, orgaos, empresas e certames tiveram seus valores alterados e embaralhados.
data(contratos)
data(contratos)
Um data frame contendo 127449 registros de 15 campos.
contratos - Dados relativos aos contratos resultantes das licitacoes.
Um data frame contendo 127449 registros de 15 campos.
Os campos cujos valores foram alterados estao identificados por um asteristico (*):
SIGLA_UGR [*]
- Sigla da unidade gestora responsavel pelo certame.
UGR [*]
- Descricao da unidade gestora responsavel pelo certame.
TIPO_CONTRATACAO
- Tipo da contratacao.
COD_LICITACAO [*]
- Codigo que identifica a licitacao na base de dados.
NUMERO_CONTRATO [*]
- Numero do contrato.
COD_ARTIGO
- Codigo identificador do artigo, que se refere a uma descricao generica universal do item contratado.
ARTIGO
- Descricao generica universal do item contratado.
ID_ITEM
- Identificador do item do objeto a que o participante concorre para fornecer.
DESC_ITEM
- Descricao do item do objeto a que o participante concorre para fornecer.
VALOR_INICIAL_CONTRATACAO
- Valor inicial do contrato.
VALOR_FINAL_CONTRATACAO
- Valor final do contrato.
CNPJ_FORNECEDOR [*]
- CNPJ do forncedor contratado.
NOME_FORNECEDOR [*]
- Nome do forncedor contratado.
DATA_INICIO_VIGENCIA
- Data do inicio da vigencia do contrato.
DATA_FIM_VIGENCIA
- Data do final da vigencia do contrato.
IMPORTANTE: Todos os campos que pudessem identificar o ente federativo, orgaos, empresas e certames tiveram seus valores alterados e embaralhados.
data(licitacoes)
data(licitacoes)
Um data frame contendo 8679 registros de 10 campos.
Um data frame contendo 8679 registros de 10 campos.
Os campos cujos valores foram alterados estao identificados por um asteristico (*):
CNPJ_UGR [*]
- CNPJ da unidade gestora responsavel pelo certame.
SIGLA_UGR [*]
- Sigla da unidade gestora responsavel pelo certame.
COD_LICITACAO [*]
- Codigo que identifica a licitacao na base de dados.
RESUMO_OBJ
- Descricao resumida do objeto da licitacao.
VALOR_ESTIMADO
- Valor estimado do objeto.
DATA_ABERT_SESSAO
- Data de abertura da sessão.
STATUS_LICITACAO
- Status relativo a situacao do certame.
TIPO_LICITACAO
- Tipo da licitacao.
VALOR_TOTAL_HOMOLOGADO
- Valor final homologado para a totalidade do objeto sendo licitado.
DATA_HOMOLOGACAO
- Data da homologacao do certame.
IMPORTANTE: Todos os campos que pudessem identificar o ente federativo, orgaos, empresas e certames tiveram seus valores alterados e embaralhados.
data(part_lic)
data(part_lic)
Um data frame contendo 427242 registros de 13 campos.
Um data frame contendo 427242 registros de 13 campos.
part_lic - Dados relativos aos participantes das licitacoes.
Os campos cujos valores foram alterados estao identificados por um asteristico (*):
COD_LICITACAO [*]
- Codigo que identifica a licitacao na base de dados.
RESUMO_OBJETO
- Descricao resumida do objeto da licitacao.
DESC_MODALIDADE
- Modalidade da licitacao.
STATUS_LICITACAO
- Status relativo a situacao do certame.
DATA_ABERTURA_SESSAO
- Data de abertura da sessão.
DESC_UGR [*]
- Descricao da unidade gestora responsavel pelo certame.
ID_ITEM
- Identificador do item do objeto a que o participante concorre para fornecer.
CNPJCPF_FORNECEDORES [*]
- CNPJ ou CPF do participante do certame.
NOME_FORNECEDORES [*]
- Nome do participante do certame.
TIPO_PESSOA
- Tipo de pessoa em que o participante pode ser classificado (Fisica/Juridica).
VALOR_FINAL
- Valor final homologado para o item do objeto a que o participante concorre para fornecer.
VENCEDOR
- Flag que identifica se o participante foi ou nao vencedor no certame (S/N).
MICRO_PEQUENA_EMPRESA
- Flag que identifica se o participante e ou nao micro empresa (S/N).
Os diferentes agrupamentos representam empresas suspeitas de praticarem alguma acao colusiva num determinado mercado. As arestas apontam na direcao de um perdedor para um vencedor de licitacao. Empresas sao sempre perdedoras sao representadas por quadrados cinzas.
## S3 method for class 'TipologiaRodizio' plot(x, ...)
## S3 method for class 'TipologiaRodizio' plot(x, ...)
x |
objeto da classe 'TipologiaRodizio'. |
... |
eventuais parametros adicionais. |
Bruno M. S. S. Melo
## Not run: casosSuspeitos <- TipologiaRodizio(dados) plot(casosSuspeitos) ## End(Not run)
## Not run: casosSuspeitos <- TipologiaRodizio(dados) plot(casosSuspeitos) ## End(Not run)
Metodo S3 que imprime na tela um data.frame que representa um objeto da classe 'TipologiaRodizio'
## S3 method for class 'TipologiaRodizio' print(x, ...)
## S3 method for class 'TipologiaRodizio' print(x, ...)
x |
objeto da classe 'TipologiaRodizio' |
... |
eventuais parametros adicionais. |
Bruno M. S. S. Melo
## Not run: casosSuspeitos <- TipologiaRodizio(dados) print(casosSuspeitos) ## End(Not run)
## Not run: casosSuspeitos <- TipologiaRodizio(dados) print(casosSuspeitos) ## End(Not run)
Utiliza-se um grafo direcionado para representar a relacao entre as empresas participantes das licitacoes, da seguinte forma:
cada empresa e representada por um no;
as empresas que participaram de um mesmo certame estarao associadas por relacoes do tipo “perdedor-vencedor”. Tal relacao e representada por uma aresta que se inicia em no representativo da empresa participante perdedora para um no representativo da licitante vencedora.
o desconto ofertado (diferenca entre o valor estimado e o valor homologado) podera influenciar, de forma inversamente proporcional, o peso das relacoes perdedor-vencedor. Quanto menor o desconto ofertado pelo vencedor, maior sera o peso da referida relacao.
rcextCriaGrafoLic(dados, tipo_retorno = 0, agregar_arestas = T, considerar_desconto = F)
rcextCriaGrafoLic(dados, tipo_retorno = 0, agregar_arestas = T, considerar_desconto = F)
dados |
data.frame contendo as seguintes colunas:
|
tipo_retorno |
especifica o objeto a ser retornado pela funcao. As opcoes sao as que se seguem:
|
agregar_arestas |
parametro do tipo |
considerar_desconto |
parametro do tipo |
o retorno depende do valor especificado para o parâmetro tipo_retorno
.
Bruno M. S. S. Melo
igraph
## Not run: grafoLic <- rcextCriaGrafoLic(dados = dfDadosLic, tipo_retorno = 0, considerar_desconto = F) ## End(Not run)
## Not run: grafoLic <- rcextCriaGrafoLic(dados = dfDadosLic, tipo_retorno = 0, considerar_desconto = F) ## End(Not run)
Identifica potencias mercados de risco de praticas colusivas a partir de grafo de licitacoes
rcextRiscoAcaoColusivaAux(grLicitacoes)
rcextRiscoAcaoColusivaAux(grLicitacoes)
grLicitacoes |
objeto do tipo |
objeto do tipo environment, contendo os seguintes objetos:
cmMercados objeto do tipo community
contendo todos as comunidades (mercados) obtidas a partir do grafo grLicitacoes
;
grMercadosRisco grafo do tipo igraph
contendo os mercados de risco extraidos do grafo grLicitacoes
;
vcMercadosRisco vetor do tipo numeric
contendo os identificadores dos mercados considerados de risco;
vcEmpresasRisco vetor do tipo numeric
contendo os identificadores dos mercados de risco a que pertencem as empresas
consideradas suspeitas de praticarem acoes colusivas. As empresas sao identificadas pelo atributo names
.
Bruno M. S. S. Melo
igraph
#' @importFrom igraph walktrap.community
## Not run: grafoLic <- rodizioMetodologiaGrafoPageRank(grLicitacoes) ## End(Not run)
## Not run: grafoLic <- rodizioMetodologiaGrafoPageRank(grLicitacoes) ## End(Not run)
Identifica potenciais mercados de risco de praticas colusivas a partir de grafo de licitacoes
TipologiaRodizio(dados, considerarDesconto = F)
TipologiaRodizio(dados, considerarDesconto = F)
dados |
data.frame contendo as seguintes colunas:
|
considerarDesconto |
parametro do tipo |
objeto S3 da classe TipologiaRodizio
, contendo os seguintes atributos:
mercados objeto do tipo igraph::communities
contendo todos as comunidades (mercados) obtidas a partir do grafo grLicitacoes
;
grafo grafo do tipo igraph
contendo os mercados de risco presentes no grafo mercados
;
tabela objeto do tipo data.frame
contendo informacoes dos contratos considerados como suspeitos. Dentre os campos nela presentes, destacamos:
MERCADO_ATUACAO identificador do mercado a que o contrato pertence, relacionando-o ao atributo mercados
; e
PROB_FAVORECIMENTO_NO_MERCADO probabilidade, estimada com base no PageRank intracomunitario, de o contrato ter sido fruto de alguma acao colusiva naquele mercado especifico.
Bruno M. S. S. Melo
igraph
## Not run: # carrega dados de licitacoes da base fornecida pelo pacote RcextTools data("part_lic") dtDados <- part_lic[!is.na(part_lic$COD_LICITACAO),] dtDados <- data.frame( CNPJ = dtDados$CNPJCPF_FORNECEDORES, ID_LICITACAO = dtDados$COD_LICITACAO, ID_ITEM = dtDados$ID_ITEM, VENCEDOR = ifelse(dtDados$VENCEDOR == 'S', T, F), VALOR_ESTIMADO = NA, VALOR_HOMOLOGADO = as.numeric(dtDados$VALOR_FINAL), DESC_OBJETO = dtDados$RESUMO_OBJETO, stringsAsFactors = F ) casosSuspeitos <- TipologiaRodizio(dtDados) # imprime dataframe com resultados print(casosSuspeitos) # plota grafo plot(casosSuspeitos) ## End(Not run)
## Not run: # carrega dados de licitacoes da base fornecida pelo pacote RcextTools data("part_lic") dtDados <- part_lic[!is.na(part_lic$COD_LICITACAO),] dtDados <- data.frame( CNPJ = dtDados$CNPJCPF_FORNECEDORES, ID_LICITACAO = dtDados$COD_LICITACAO, ID_ITEM = dtDados$ID_ITEM, VENCEDOR = ifelse(dtDados$VENCEDOR == 'S', T, F), VALOR_ESTIMADO = NA, VALOR_HOMOLOGADO = as.numeric(dtDados$VALOR_FINAL), DESC_OBJETO = dtDados$RESUMO_OBJETO, stringsAsFactors = F ) casosSuspeitos <- TipologiaRodizio(dtDados) # imprime dataframe com resultados print(casosSuspeitos) # plota grafo plot(casosSuspeitos) ## End(Not run)
Utiliza-se um grafo direcionado para representar a relacao entre as empresas participantes das licitacoes, da seguinte forma:
cada empresa e representada por um no;
as empresas que participaram de um mesmo certame estarao associadas por relacoes do tipo “perdedor-vencedor”. Tal relacao e representada por uma aresta que se inicia em no representativo da empresa participante perdedora para um no representativo da licitante vencedora.
o desconto ofertado (diferenca entre o valor estimado e o valor homologado) podera influenciar, de forma inversamente proporcional, o peso das relacoes perdedor-vencedor. Quanto menor o desconto ofertado pelo vencedor, maior sera o peso da referida relacao.
TipologiaRodizioCriaGrafo(dados, tipoRetorno = 0, agregarArestas = T, considerarDesconto = F)
TipologiaRodizioCriaGrafo(dados, tipoRetorno = 0, agregarArestas = T, considerarDesconto = F)
dados |
data.frame contendo as seguintes colunas:
|
tipoRetorno |
especifica o objeto a ser retornado pela funcao. As opcoes sao as que se seguem:
|
agregarArestas |
parametro do tipo |
considerarDesconto |
parametro do tipo |
o retorno depende do valor especificado para o parâmetro tipoRetorno
.
Bruno M. S. S. Melo
igraph
## Not run: grafoLic <- TipologiaRodizioCriaGrafo(dados = dfDadosLic, tipoRetorno = 0, considerarDesconto = F) ## End(Not run)
## Not run: grafoLic <- TipologiaRodizioCriaGrafo(dados = dfDadosLic, tipoRetorno = 0, considerarDesconto = F) ## End(Not run)
Identifica potencias mercados de risco de praticas colusivas a partir de grafo de licitacoes
TipologiaRodizioMetodologiaGrafo(grLicitacoes)
TipologiaRodizioMetodologiaGrafo(grLicitacoes)
grLicitacoes |
objeto do tipo |
objeto do tipo environment, contendo os seguintes objetos:
cmMercados objeto do tipo community
contendo todos as comunidades (mercados) obtidas a partir do grafo grLicitacoes
;
grMercadosRisco grafo do tipo igraph
contendo os mercados de risco extraidos do grafo grLicitacoes
;
vcMercadosRisco vetor do tipo numeric
contendo os identificadores dos mercados considerados de risco;
vcEmpresasRisco vetor do tipo numeric
contendo os identificadores dos mercados de risco a que pertencem as empresas
consideradas suspeitas de praticarem acoes colusivas. As empresas sao identificadas pelo atributo names
.
Bruno M. S. S. Melo
igraph
## Not run: grafoLic <- TipologiaRodizioMetodologiaGrafo(grLicitacoes) ## End(Not run)
## Not run: grafoLic <- TipologiaRodizioMetodologiaGrafo(grLicitacoes) ## End(Not run)