Description Usage Arguments Value Author(s) See Also Examples
Identifica potenciais mercados de risco de praticas colusivas a partir de grafo de licitacoes
1 | 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
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 | ## 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)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.