RcextTools (version 0.1.1)

TipologiaRodizio: Identifica potenciais mercados de risco de praticas colusivas a partir de grafo de licitacoes

Description

Identifica potenciais mercados de risco de praticas colusivas a partir de grafo de licitacoes

Usage

TipologiaRodizio(dados, considerarDesconto = F)

Arguments

dados

data.frame contendo as seguintes colunas:

• CNPJ coluna do tipo character contendo cnpj, com 14 caracteres (sem .,-, ou /), da empresa participante do certame;

• ID_LICITACAO coluna do tipo character que identifica de forma unica o certame;

• ID_ITEM coluna do tipo character que identifica de forma unica o item do objeto a que a empresa esteja concorrendo. Caso o objeto da licitacao nao tenha sido dividido em itens, este campo

• VENCEDOR coluna do tipo logical contendo um valor booleano indicando se o licitante foi vitorioso no certame.

• VALOR_ESTIMADO coluna do tipo numeric correspondente ao valor estimado para o objeto ou servi<U+00E7>o sendo licitado. Podera assumir o valor NA caso tal informacao nai esteja disponivel.

• VALOR_HOMOLOGADO coluna do tipo numeric correspondente ao valor homologado da proposta vencedora para o fornecimento do objeto ou servi<U+00E7>o sendo licitado. Podera assumir o valor NA caso tal informacao nai esteja disponivel.

considerarDesconto

parametro do tipo logical indicando se o desconto obtido (diferenca entre o valor homologado e o valor estimado) devera ser levado em consideracao na atribuicao dos pesos das relacoes perdedor-vencedor. Por padrao este parametro tem valor TRUE

Value

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.

See Also

igraph

Examples

# 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)
# }