TipologiaRodizio {RcextTools} | R Documentation |
Identifica potenciais mercados de risco de praticas colusivas a partir de grafo de licitacoes
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)