Usando Regressão Linear para Explicar a votação de Deputados
library(ggplot2)
library(caret)
library(leaps)
library(dplyr)
library(reshape2)
library(car)
library(corrplot)
setwd("C:/Users/dimit/Desktop/Projetos/AD2")
eleicoes2014 <- read.csv("eleicoes2014.csv", encoding="latin1")
options(scipen = 4)
#substitui os valores NA pela média da coluna.
for(i in 1:ncol(eleicoes2014)){
eleicoes2014[is.na(eleicoes2014[,i]), i] <- mean(eleicoes2014[,i], na.rm = TRUE)
}1. Um modelo de regressão múltipla com todas as variáveis é plausível para explicar a variação em y (número de votos)? Justifique sua resposta.
mod1 = lm(votos ~ sequencial_candidato + numero_cadidato + UF + partido
+ setor_economico_receita + quantidade_doacoes+ quantidade_doadores + total_receita + media_receita
+ recursos_de_outros_candidatos.comites + recursos_de_partidos + recursos_de_pessoas_físicas
+ recursos_de_pessoas_juridicas + recursos_proprios + quantidade_despesas
+ quantidade_fornecedores + total_despesa + media_despesa + setor_economico_despesa
+ idade + sexo + grau + estado_civil, data=eleicoes2014)
summary(mod1)
Call:
lm(formula = votos ~ sequencial_candidato + numero_cadidato +
UF + partido + setor_economico_receita + quantidade_doacoes +
quantidade_doadores + total_receita + media_receita + recursos_de_outros_candidatos.comites +
recursos_de_partidos + recursos_de_pessoas_físicas + recursos_de_pessoas_juridicas +
recursos_proprios + quantidade_despesas + quantidade_fornecedores +
total_despesa + media_despesa + setor_economico_despesa +
idade + sexo + grau + estado_civil, data = eleicoes2014)
Residuals:
Min 1Q Median 3Q Max
-300334 -8226 -1669 4580 1228270
Coefficients: (5 not defined because of singularities)
Estimate Std. Error
(Intercept) 8.570e+04 4.791e+04
sequencial_candidato 2.262e-08 2.776e-08
numero_cadidato -3.453e+01 1.869e+01
UFAL 1.475e+04 6.433e+03
UFAM 1.340e+04 6.480e+03
UFAP 6.131e+03 6.127e+03
UFBA 1.782e+04 5.095e+03
UFCE 1.880e+04 5.141e+03
UFDF 5.767e+03 5.478e+03
UFES 1.201e+04 5.160e+03
UFGO 1.159e+04 5.766e+03
UFMA 1.882e+04 4.913e+03
UFMG 1.076e+04 4.025e+03
UFMS 5.115e+02 5.069e+03
UFMT 6.635e+03 5.792e+03
UFPA 1.716e+04 4.751e+03
UFPB 2.183e+04 5.640e+03
UFPE 1.676e+04 5.097e+03
UFPI 1.195e+04 5.763e+03
UFPR 1.370e+04 4.400e+03
UFRJ 8.685e+03 4.141e+03
UFRN 1.562e+04 5.953e+03
UFRO 1.377e+03 6.101e+03
UFRR 7.676e+02 6.054e+03
UFRS 1.128e+04 4.782e+03
UFSC 1.439e+04 5.997e+03
UFSE 1.179e+04 6.885e+03
UFSP 9.327e+03 4.923e+03
UFTO NA NA
partidoPC do B 1.269e+05 7.498e+04
partidoPCB -2.019e+04 1.090e+04
partidoPCO 3.795e+03 1.421e+04
partidoPDT -5.500e+04 2.473e+04
partidoPEN 8.097e+04 4.888e+04
partidoPHS 1.395e+04 1.203e+04
partidoPMDB -3.971e+04 1.912e+04
partidoPMN 1.547e+04 1.570e+04
partidoPP -5.238e+04 2.660e+04
partidoPPL 8.852e+04 5.466e+04
partidoPPS -1.496e+04 6.333e+03
partidoPR -1.346e+04 7.211e+03
partidoPRB -5.103e+04 2.839e+04
partidoPROS 2.163e+05 1.219e+05
partidoPRP 5.977e+04 3.588e+04
partidoPRTB 1.084e+03 7.353e+03
partidoPSB 4.353e+04 2.835e+04
partidoPSC -1.967e+04 1.062e+04
partidoPSD 9.960e+04 5.645e+04
partidoPSDB 6.852e+04 3.771e+04
partidoPSDC -6.518e+02 6.010e+03
partidoPSL -3.784e+04 1.562e+04
partidoPSOL 8.099e+04 4.693e+04
partidoPSTU -4.091e+04 1.796e+04
partidoPT -5.050e+04 2.281e+04
partidoPT do B 1.470e+05 8.428e+04
partidoPTB -4.496e+04 2.101e+04
partidoPTC 2.889e+04 2.113e+04
partidoPTN -2.616e+04 1.237e+04
partidoPV 5.352e+04 3.391e+04
partidoSD 1.715e+05 9.753e+04
setor_economico_receitaAgenciamento de espaços para publicidade, exceto em veículos de comunicação -6.724e+03 3.275e+04
setor_economico_receitaAluguel de imóveis próprios -6.340e+03 3.295e+04
setor_economico_receitaAtividades de apoio à aqüicultura em água doce -6.591e+03 2.331e+04
setor_economico_receitaAtividades de associações de defesa de direitos sociais -2.016e+04 1.915e+04
setor_economico_receitaAtividades de contabilidade -3.092e+03 3.505e+04
setor_economico_receitaAtividades de organizações políticas -1.997e+03 1.471e+03
setor_economico_receitaChaveiros -3.017e+03 3.306e+04
setor_economico_receitaComércio a varejo de peças e acessórios novos para veículos automotores -8.207e+03 3.270e+04
setor_economico_receitaComércio atacadista de álcool carburante, biodiesel, gasolina e demais derivados de petróleo, exceto lubrificantes, não realizado por transportador retalhista (TRR) -7.516e+03 3.297e+04
setor_economico_receitaComércio atacadista de cerveja, chope e refrigerante 1.470e+04 3.330e+04
setor_economico_receitaComércio atacadista de outros produtos químicos e petroquímicos não especificados anteriormente 1.389e+03 3.393e+04
setor_economico_receitaComércio atacadista de produtos alimentícios em geral 1.560e+05 3.424e+04
setor_economico_receitaComércio atacadista de produtos de higiene, limpeza e conservação domiciliar -2.548e+04 3.285e+04
setor_economico_receitaComércio varejista de artigos de papelaria 1.546e+03 3.367e+04
setor_economico_receitaComércio varejista de combustíveis para veículos automotores -1.418e+04 1.477e+04
setor_economico_receitaComércio varejista de doces, balas, bombons e semelhantes -2.211e+03 3.276e+04
setor_economico_receitaComércio varejista de produtos farmacêuticos, sem manipulação de fórmulas 7.999e+03 3.279e+04
setor_economico_receitaComércio varejista especializado de equipamentos e suprimentos de informática 1.914e+04 3.603e+04
setor_economico_receitaCompra e venda de imóveis próprios -1.961e+03 2.361e+04
setor_economico_receitaCultivo de manga -3.186e+04 3.287e+04
setor_economico_receitaCursos preparatórios para concursos -2.024e+04 3.344e+04
setor_economico_receitaEdição integrada à impressão de cadastros, listas e outros produtos gráficos 2.220e+04 1.397e+04
setor_economico_receitaEdição integrada à impressão de livros -1.208e+04 4.017e+04
setor_economico_receitaFabricação de adesivos e selantes -3.607e+04 4.043e+04
setor_economico_receitaFabricação de águas envasadas -5.052e+04 3.491e+04
setor_economico_receitaFabricação de azulejos e pisos 1.257e+04 3.281e+04
setor_economico_receitaFabricação de calçados de couro -8.794e+03 3.280e+04
setor_economico_receitaFabricação de colchões -1.145e+04 3.295e+04
setor_economico_receitaFabricação de embalagens de material plástico -2.862e+04 3.308e+04
setor_economico_receitaFabricação de embalagens de papel -2.838e+03 3.299e+04
setor_economico_receitaFabricação de equipamentos hidráulicos e pneumáticos, peças e acessórios, exceto válvulas 3.432e+04 3.301e+04
setor_economico_receitaFabricação de esquadrias de madeira e de peças de madeira para instalações industriais e comerciais -2.031e+04 3.289e+04
setor_economico_receitaFabricação de medicamentos homeopáticos para uso humano -2.815e+03 3.310e+04
setor_economico_receitaFabricação de papel 1.192e+03 3.269e+04
setor_economico_receitaFabricação de produtos petroquímicos básicos -8.190e+03 3.306e+04
setor_economico_receitaHoldings de instituições não-financeiras -1.842e+04 2.371e+04
setor_economico_receitaHotéis -8.559e+03 3.290e+04
setor_economico_receitaImpressão de livros, revistas e outras publicações periódicas -9.597e+03 3.281e+04
setor_economico_receitaImpressão de material para outros usos 8.686e+03 1.926e+04
setor_economico_receitaImpressão de material para uso publicitário -6.358e+03 1.365e+04
setor_economico_receitaIncorporação de empreendimentos imobiliários -8.171e+03 3.283e+04
setor_economico_receitaInstalação de painéis publicitários -1.163e+03 3.692e+04
setor_economico_receitaOutras atividades de prestação de serviços de informação não especificadas anteriormente -1.002e+04 3.308e+04
setor_economico_receitaOutras atividades de serviços prestados principalmente às empresas não especificadas anteriormente -1.290e+03 2.616e+04
setor_economico_receitaPlanos de saúde 4.770e+04 3.325e+04
setor_economico_receitaPreparação de documentos e serviços especializados de apoio administrativo não especificados anteriormente 5.008e+03 3.694e+04
setor_economico_receitaPromoção de vendas -6.859e+03 3.282e+04
setor_economico_receitaReparação e manutenção de computadores e de equipamentos periféricos -1.435e+04 3.295e+04
setor_economico_receitaServiços advocatícios -1.955e+04 2.505e+04
setor_economico_receitaServiços de acabamentos gráficos, exceto encadernação e plastificação 2.132e+03 3.381e+04
setor_economico_receitaSociedade seguradora de seguros saúde -2.313e+04 3.294e+04
setor_economico_receitaTransporte rodoviário de carga, exceto produtos perigosos e mudanças, municipal 4.574e+04 3.276e+04
quantidade_doacoes -5.975e+00 2.762e+01
quantidade_doadores 2.385e+02 4.090e+01
total_receita 6.757e-02 9.263e-03
media_receita 3.487e-01 5.512e-02
recursos_de_outros_candidatos.comites 6.083e-02 8.082e-03
recursos_de_partidos -3.507e-02 4.733e-03
recursos_de_pessoas_físicas -3.194e-02 9.400e-03
recursos_de_pessoas_juridicas -2.774e-02 4.830e-03
recursos_proprios -4.906e-02 6.009e-03
quantidade_despesas 4.906e+01 4.434e+00
quantidade_fornecedores -5.204e+01 6.334e+00
total_despesa -2.368e-02 7.633e-03
media_despesa 2.014e+00 4.273e-01
setor_economico_despesaAgenciamento de espaços para publicidade, exceto em veículos de comunicação 2.965e+04 1.649e+04
setor_economico_despesaAgências de publicidade -2.330e+04 1.913e+04
setor_economico_despesaAluguel de fitas de vídeo, DVDs e similares 3.449e+03 3.271e+04
setor_economico_despesaAluguel de palcos, coberturas e outras estruturas de uso temporário, exceto andaimes 1.463e+04 3.274e+04
setor_economico_despesaAplicação de revestimentos e de resinas em interiores e exteriores -2.624e+03 3.287e+04
setor_economico_despesaAtividades de apoio à aqüicultura em água doce NA NA
setor_economico_despesaAtividades de associações de defesa de direitos sociais 1.104e+04 2.413e+04
setor_economico_despesaAtividades de contabilidade -1.173e+03 1.245e+04
setor_economico_despesaAtividades de organizações políticas 2.211e+03 1.676e+03
setor_economico_despesaAtividades de organizações sindicais -5.900e+03 3.268e+04
setor_economico_despesaAtividades de pós-produção cinematográfica, de vídeos e de programas de televisão não especificadas anteriormente 1.085e+04 3.310e+04
setor_economico_despesaAtividades de franqueadas e permissionárias do Correio Nacional -1.234e+04 2.317e+04
setor_economico_despesaAtividades do Correio Nacional 8.228e+03 9.177e+03
setor_economico_despesaCasas de festas e eventos -1.793e+03 3.284e+04
setor_economico_despesaChaveiros NA NA
setor_economico_despesaComércio a varejo de peças e acessórios novos para veículos automotores -7.846e+03 1.914e+04
setor_economico_despesaComércio atacadista de artigos de escritório e de papelaria -9.952e+03 3.277e+04
setor_economico_despesaComércio atacadista de produtos alimentícios em geral 8.357e+03 3.290e+04
setor_economico_despesaComercio varejista de artigos de armarinho 7.301e+03 3.312e+04
setor_economico_despesaComércio varejista de artigos de iluminação -5.542e+03 2.319e+04
setor_economico_despesaComércio varejista de artigos de papelaria -1.481e+03 7.221e+03
setor_economico_despesaComércio varejista de artigos fotográficos e para filmagem -1.457e+04 3.283e+04
setor_economico_despesaComércio varejista de bebidas -7.245e+03 3.277e+04
setor_economico_despesaComércio varejista de combustíveis para veículos automotores -2.266e+03 3.462e+03
setor_economico_despesaComércio varejista de cosméticos, produtos de perfumaria e de higiene pessoal -1.543e+04 3.280e+04
setor_economico_despesaComércio varejista de ferragens e ferramentas -9.126e+03 3.287e+04
setor_economico_despesaComércio varejista de jornais e revistas 6.639e+03 2.320e+04
setor_economico_despesaComércio varejista de madeira e artefatos -3.172e+02 2.323e+04
setor_economico_despesaComércio varejista de materiais de construção em geral -2.235e+04 3.286e+04
setor_economico_despesaComércio varejista de mercadorias em geral, com predominância de produtos alimentícios - hipermercados -3.328e+03 3.286e+04
setor_economico_despesaComércio varejista de mercadorias em geral, com predominância de produtos alimentícios - supermercados -1.871e+04 1.485e+04
setor_economico_despesaComércio varejista de outros produtos não especificados anteriormente 1.069e+03 9.171e+03
setor_economico_despesaComércio varejista de tintas e materiais para pintura -2.520e+03 1.911e+04
setor_economico_despesaComércio varejista especializado de eletrodomésticos e equipamentos de áudio e vídeo -4.204e+03 3.280e+04
setor_economico_despesaComércio varejista especializado de equipamentos de telefonia e comunicação 2.167e+03 1.894e+04
setor_economico_despesaComércio varejista especializado de equipamentos e suprimentos de informática -8.223e+03 1.479e+04
setor_economico_despesaComércio varejista especializado de peças e acessórios para aparelhos eletroeletrônicos para uso doméstico, exceto informática e comunicação 1.153e+05 3.307e+04
setor_economico_despesaConcessionárias de rodovias, pontes, túneis e serviços relacionados 7.101e+02 1.468e+04
setor_economico_despesaConfecção de peças do vestuário, exceto roupas íntimas e as confeccionadas sob medida -7.830e+03 3.287e+04
setor_economico_despesaConfecção de roupas íntimas -8.821e+03 3.284e+04
setor_economico_despesaConfecção, sob medida, de peças do vestuário, exceto roupas íntimas -1.145e+03 3.295e+04
setor_economico_despesaDistribuição de energia elétrica 4.445e+03 3.293e+04
setor_economico_despesaEdição de cadastros, listas e outros produtos gráficos 6.551e+03 9.144e+03
setor_economico_despesaEdição de livros -4.650e+03 1.652e+04
setor_economico_despesaEdição integrada à impressão de cadastros, listas e outros produtos gráficos 3.426e+03 5.384e+03
setor_economico_despesaEdição integrada à impressão de livros 1.038e+04 1.658e+04
setor_economico_despesaEdição integrada à impressão de revistas -1.707e+03 3.298e+04
setor_economico_despesaEstamparia e texturização em fios, tecidos, artefatos têxteis e peças do vestuário -1.240e+04 2.326e+04
setor_economico_despesaFabricação de adesivos e selantes 3.057e+04 2.327e+04
setor_economico_despesaFabricação de artefatos de material plástico para uso pessoal e doméstico -9.568e+03 3.287e+04
setor_economico_despesaFabricação de embalagens de papel -1.005e+03 3.274e+04
setor_economico_despesaFabricação de letras, letreiros e placas de qualquer material, exceto luminosos -9.802e+02 7.110e+03
setor_economico_despesaFabricação de outras máquinas e equipamentos de uso geral não especificados anteriormente, peças e acessórios 2.084e+04 3.275e+04
setor_economico_despesaFabricação de painéis e letreiros luminosos -3.689e+03 1.470e+04
setor_economico_despesaFabricação de papel NA NA
setor_economico_despesaFabricação de produtos de limpeza e polimento -1.753e+04 3.288e+04
setor_economico_despesaFabricação de produtos de papel, cartolina, papel-cartão e papelão ondulado para uso comercial e de escritório -5.660e+03 1.920e+04
setor_economico_despesaFotocópias -3.202e+03 8.540e+03
setor_economico_despesaImpressão de jornais -5.470e+02 1.471e+04
setor_economico_despesaImpressão de livros, revistas e outras publicações periódicas 1.047e+04 6.206e+03
setor_economico_despesaImpressão de material de segurança -6.198e+03 1.477e+04
setor_economico_despesaImpressão de material para outros usos -2.155e+03 3.998e+03
setor_economico_despesaImpressão de material para uso publicitário -1.023e+03 3.358e+03
setor_economico_despesaInstalação de painéis publicitários -9.087e+03 1.641e+04
setor_economico_despesaLanchonetes, casas de chá, de sucos e similares -7.986e+03 2.322e+04
setor_economico_despesaLocação de automóveis sem condutor -1.422e+04 3.306e+04
setor_economico_despesaMarketing direto -5.145e+03 2.324e+04
setor_economico_despesaOutras atividades de publicidade não especificadas anteriormente -6.428e+02 1.099e+04
setor_economico_despesaOutras atividades de serviços prestados principalmente às empresas não especificadas anteriormente -5.421e+03 1.298e+04
setor_economico_despesaOutros serviços de acabamento em fios, tecidos, artefatos têxteis e peças do vestuário -7.138e+03 3.289e+04
setor_economico_despesaPadaria e confeitaria com predominância de revenda 1.438e+03 3.284e+04
setor_economico_despesaPreparação de documentos e serviços especializados de apoio administrativo não especificados anteriormente -1.880e+03 1.660e+04
setor_economico_despesaPromoção de vendas NA NA
setor_economico_despesaRecarga de cartuchos para equipamentos de informática 6.025e+01 3.287e+04
setor_economico_despesaRestaurantes e similares 1.147e+03 2.328e+04
t value Pr(>|t|)
(Intercept) 1.789 0.073769 .
sequencial_candidato 0.815 0.415163
numero_cadidato -1.848 0.064704 .
UFAL 2.292 0.021930 *
UFAM 2.068 0.038671 *
UFAP 1.001 0.317013
UFBA 3.498 0.000473 ***
UFCE 3.658 0.000258 ***
UFDF 1.053 0.292501
UFES 2.328 0.019952 *
UFGO 2.010 0.044524 *
UFMA 3.831 0.000130 ***
UFMG 2.673 0.007552 **
UFMS 0.101 0.919626
UFMT 1.145 0.252098
UFPA 3.612 0.000308 ***
UFPB 3.872 0.000110 ***
UFPE 3.288 0.001016 **
UFPI 2.073 0.038234 *
UFPR 3.115 0.001855 **
UFRJ 2.097 0.036048 *
UFRN 2.624 0.008721 **
UFRO 0.226 0.821425
UFRR 0.127 0.899117
UFRS 2.359 0.018356 *
UFSC 2.399 0.016465 *
UFSE 1.712 0.086943 .
UFSP 1.895 0.058190 .
UFTO NA NA
partidoPC do B 1.693 0.090589 .
partidoPCB -1.852 0.064126 .
partidoPCO 0.267 0.789405
partidoPDT -2.224 0.026186 *
partidoPEN 1.656 0.097726 .
partidoPHS 1.159 0.246436
partidoPMDB -2.076 0.037941 *
partidoPMN 0.985 0.324520
partidoPP -1.970 0.048959 *
partidoPPL 1.620 0.105403
partidoPPS -2.362 0.018225 *
partidoPR -1.867 0.062041 .
partidoPRB -1.797 0.072351 .
partidoPROS 1.775 0.076010 .
partidoPRP 1.666 0.095804 .
partidoPRTB 0.147 0.882834
partidoPSB 1.536 0.124729
partidoPSC -1.852 0.064075 .
partidoPSD 1.764 0.077735 .
partidoPSDB 1.817 0.069330 .
partidoPSDC -0.108 0.913633
partidoPSL -2.422 0.015475 *
partidoPSOL 1.726 0.084485 .
partidoPSTU -2.277 0.022817 *
partidoPT -2.214 0.026916 *
partidoPT do B 1.744 0.081319 .
partidoPTB -2.139 0.032468 *
partidoPTC 1.367 0.171563
partidoPTN -2.115 0.034458 *
partidoPV 1.578 0.114622
partidoSD 1.759 0.078662 .
setor_economico_receitaAgenciamento de espaços para publicidade, exceto em veículos de comunicação -0.205 0.837337
setor_economico_receitaAluguel de imóveis próprios -0.192 0.847446
setor_economico_receitaAtividades de apoio à aqüicultura em água doce -0.283 0.777417
setor_economico_receitaAtividades de associações de defesa de direitos sociais -1.052 0.292686
setor_economico_receitaAtividades de contabilidade -0.088 0.929722
setor_economico_receitaAtividades de organizações políticas -1.358 0.174690
setor_economico_receitaChaveiros -0.091 0.927286
setor_economico_receitaComércio a varejo de peças e acessórios novos para veículos automotores -0.251 0.801839
setor_economico_receitaComércio atacadista de álcool carburante, biodiesel, gasolina e demais derivados de petróleo, exceto lubrificantes, não realizado por transportador retalhista (TRR) -0.228 0.819663
setor_economico_receitaComércio atacadista de cerveja, chope e refrigerante 0.442 0.658832
setor_economico_receitaComércio atacadista de outros produtos químicos e petroquímicos não especificados anteriormente 0.041 0.967343
setor_economico_receitaComércio atacadista de produtos alimentícios em geral 4.556 5.38e-06 ***
setor_economico_receitaComércio atacadista de produtos de higiene, limpeza e conservação domiciliar -0.776 0.438074
setor_economico_receitaComércio varejista de artigos de papelaria 0.046 0.963372
setor_economico_receitaComércio varejista de combustíveis para veículos automotores -0.961 0.336804
setor_economico_receitaComércio varejista de doces, balas, bombons e semelhantes -0.067 0.946192
setor_economico_receitaComércio varejista de produtos farmacêuticos, sem manipulação de fórmulas 0.244 0.807260
setor_economico_receitaComércio varejista especializado de equipamentos e suprimentos de informática 0.531 0.595307
setor_economico_receitaCompra e venda de imóveis próprios -0.083 0.933803
setor_economico_receitaCultivo de manga -0.969 0.332373
setor_economico_receitaCursos preparatórios para concursos -0.605 0.545128
setor_economico_receitaEdição integrada à impressão de cadastros, listas e outros produtos gráficos 1.589 0.112156
setor_economico_receitaEdição integrada à impressão de livros -0.301 0.763590
setor_economico_receitaFabricação de adesivos e selantes -0.892 0.372313
setor_economico_receitaFabricação de águas envasadas -1.447 0.147989
setor_economico_receitaFabricação de azulejos e pisos 0.383 0.701563
setor_economico_receitaFabricação de calçados de couro -0.268 0.788625
setor_economico_receitaFabricação de colchões -0.348 0.728133
setor_economico_receitaFabricação de embalagens de material plástico -0.865 0.387019
setor_economico_receitaFabricação de embalagens de papel -0.086 0.931443
setor_economico_receitaFabricação de equipamentos hidráulicos e pneumáticos, peças e acessórios, exceto válvulas 1.040 0.298524
setor_economico_receitaFabricação de esquadrias de madeira e de peças de madeira para instalações industriais e comerciais -0.618 0.536820
setor_economico_receitaFabricação de medicamentos homeopáticos para uso humano -0.085 0.932250
setor_economico_receitaFabricação de papel 0.036 0.970923
setor_economico_receitaFabricação de produtos petroquímicos básicos -0.248 0.804364
setor_economico_receitaHoldings de instituições não-financeiras -0.777 0.437127
setor_economico_receitaHotéis -0.260 0.794762
setor_economico_receitaImpressão de livros, revistas e outras publicações periódicas -0.293 0.769913
setor_economico_receitaImpressão de material para outros usos 0.451 0.652044
setor_economico_receitaImpressão de material para uso publicitário -0.466 0.641414
setor_economico_receitaIncorporação de empreendimentos imobiliários -0.249 0.803425
setor_economico_receitaInstalação de painéis publicitários -0.032 0.974862
setor_economico_receitaOutras atividades de prestação de serviços de informação não especificadas anteriormente -0.303 0.761982
setor_economico_receitaOutras atividades de serviços prestados principalmente às empresas não especificadas anteriormente -0.049 0.960672
setor_economico_receitaPlanos de saúde 1.435 0.151442
setor_economico_receitaPreparação de documentos e serviços especializados de apoio administrativo não especificados anteriormente 0.136 0.892160
setor_economico_receitaPromoção de vendas -0.209 0.834479
setor_economico_receitaReparação e manutenção de computadores e de equipamentos periféricos -0.435 0.663245
setor_economico_receitaServiços advocatícios -0.780 0.435228
setor_economico_receitaServiços de acabamentos gráficos, exceto encadernação e plastificação 0.063 0.949721
setor_economico_receitaSociedade seguradora de seguros saúde -0.702 0.482665
setor_economico_receitaTransporte rodoviário de carga, exceto produtos perigosos e mudanças, municipal 1.396 0.162742
quantidade_doacoes -0.216 0.828721
quantidade_doadores 5.831 5.95e-09 ***
total_receita 7.294 3.61e-13 ***
media_receita 6.326 2.80e-10 ***
recursos_de_outros_candidatos.comites 7.527 6.41e-14 ***
recursos_de_partidos -7.409 1.55e-13 ***
recursos_de_pessoas_físicas -3.398 0.000686 ***
recursos_de_pessoas_juridicas -5.743 1.00e-08 ***
recursos_proprios -8.164 4.33e-16 ***
quantidade_despesas 11.066 < 2e-16 ***
quantidade_fornecedores -8.216 2.83e-16 ***
total_despesa -3.102 0.001937 **
media_despesa 4.714 2.51e-06 ***
setor_economico_despesaAgenciamento de espaços para publicidade, exceto em veículos de comunicação 1.799 0.072139 .
setor_economico_despesaAgências de publicidade -1.218 0.223404
setor_economico_despesaAluguel de fitas de vídeo, DVDs e similares 0.105 0.916033
setor_economico_despesaAluguel de palcos, coberturas e outras estruturas de uso temporário, exceto andaimes 0.447 0.654885
setor_economico_despesaAplicação de revestimentos e de resinas em interiores e exteriores -0.080 0.936382
setor_economico_despesaAtividades de apoio à aqüicultura em água doce NA NA
setor_economico_despesaAtividades de associações de defesa de direitos sociais 0.458 0.647188
setor_economico_despesaAtividades de contabilidade -0.094 0.924979
setor_economico_despesaAtividades de organizações políticas 1.319 0.187223
setor_economico_despesaAtividades de organizações sindicais -0.181 0.856734
setor_economico_despesaAtividades de pós-produção cinematográfica, de vídeos e de programas de televisão não especificadas anteriormente 0.328 0.743108
setor_economico_despesaAtividades de franqueadas e permissionárias do Correio Nacional -0.532 0.594448
setor_economico_despesaAtividades do Correio Nacional 0.897 0.370021
setor_economico_despesaCasas de festas e eventos -0.055 0.956456
setor_economico_despesaChaveiros NA NA
setor_economico_despesaComércio a varejo de peças e acessórios novos para veículos automotores -0.410 0.681911
setor_economico_despesaComércio atacadista de artigos de escritório e de papelaria -0.304 0.761340
setor_economico_despesaComércio atacadista de produtos alimentícios em geral 0.254 0.799498
setor_economico_despesaComercio varejista de artigos de armarinho 0.220 0.825552
setor_economico_despesaComércio varejista de artigos de iluminação -0.239 0.811114
setor_economico_despesaComércio varejista de artigos de papelaria -0.205 0.837499
setor_economico_despesaComércio varejista de artigos fotográficos e para filmagem -0.444 0.657211
setor_economico_despesaComércio varejista de bebidas -0.221 0.825025
setor_economico_despesaComércio varejista de combustíveis para veículos automotores -0.655 0.512769
setor_economico_despesaComércio varejista de cosméticos, produtos de perfumaria e de higiene pessoal -0.471 0.638015
setor_economico_despesaComércio varejista de ferragens e ferramentas -0.278 0.781327
setor_economico_despesaComércio varejista de jornais e revistas 0.286 0.774792
setor_economico_despesaComércio varejista de madeira e artefatos -0.014 0.989108
setor_economico_despesaComércio varejista de materiais de construção em geral -0.680 0.496482
setor_economico_despesaComércio varejista de mercadorias em geral, com predominância de produtos alimentícios - hipermercados -0.101 0.919335
setor_economico_despesaComércio varejista de mercadorias em geral, com predominância de produtos alimentícios - supermercados -1.260 0.207823
setor_economico_despesaComércio varejista de outros produtos não especificados anteriormente 0.117 0.907253
setor_economico_despesaComércio varejista de tintas e materiais para pintura -0.132 0.895098
setor_economico_despesaComércio varejista especializado de eletrodomésticos e equipamentos de áudio e vídeo -0.128 0.898013
setor_economico_despesaComércio varejista especializado de equipamentos de telefonia e comunicação 0.114 0.908929
setor_economico_despesaComércio varejista especializado de equipamentos e suprimentos de informática -0.556 0.578139
setor_economico_despesaComércio varejista especializado de peças e acessórios para aparelhos eletroeletrônicos para uso doméstico, exceto informática e comunicação 3.486 0.000495 ***
setor_economico_despesaConcessionárias de rodovias, pontes, túneis e serviços relacionados 0.048 0.961420
setor_economico_despesaConfecção de peças do vestuário, exceto roupas íntimas e as confeccionadas sob medida -0.238 0.811766
setor_economico_despesaConfecção de roupas íntimas -0.269 0.788227
setor_economico_despesaConfecção, sob medida, de peças do vestuário, exceto roupas íntimas -0.035 0.972285
setor_economico_despesaDistribuição de energia elétrica 0.135 0.892622
setor_economico_despesaEdição de cadastros, listas e outros produtos gráficos 0.716 0.473780
setor_economico_despesaEdição de livros -0.282 0.778325
setor_economico_despesaEdição integrada à impressão de cadastros, listas e outros produtos gráficos 0.636 0.524630
setor_economico_despesaEdição integrada à impressão de livros 0.626 0.531279
setor_economico_despesaEdição integrada à impressão de revistas -0.052 0.958727
setor_economico_despesaEstamparia e texturização em fios, tecidos, artefatos têxteis e peças do vestuário -0.533 0.594099
setor_economico_despesaFabricação de adesivos e selantes 1.314 0.189013
setor_economico_despesaFabricação de artefatos de material plástico para uso pessoal e doméstico -0.291 0.771035
setor_economico_despesaFabricação de embalagens de papel -0.031 0.975521
setor_economico_despesaFabricação de letras, letreiros e placas de qualquer material, exceto luminosos -0.138 0.890362
setor_economico_despesaFabricação de outras máquinas e equipamentos de uso geral não especificados anteriormente, peças e acessórios 0.636 0.524499
setor_economico_despesaFabricação de painéis e letreiros luminosos -0.251 0.801800
setor_economico_despesaFabricação de papel NA NA
setor_economico_despesaFabricação de produtos de limpeza e polimento -0.533 0.594056
setor_economico_despesaFabricação de produtos de papel, cartolina, papel-cartão e papelão ondulado para uso comercial e de escritório -0.295 0.768149
setor_economico_despesaFotocópias -0.375 0.707717
setor_economico_despesaImpressão de jornais -0.037 0.970342
setor_economico_despesaImpressão de livros, revistas e outras publicações periódicas 1.687 0.091587 .
setor_economico_despesaImpressão de material de segurança -0.420 0.674741
setor_economico_despesaImpressão de material para outros usos -0.539 0.589947
setor_economico_despesaImpressão de material para uso publicitário -0.305 0.760609
setor_economico_despesaInstalação de painéis publicitários -0.554 0.579719
setor_economico_despesaLanchonetes, casas de chá, de sucos e similares -0.344 0.730881
setor_economico_despesaLocação de automóveis sem condutor -0.430 0.667161
setor_economico_despesaMarketing direto -0.221 0.824784
setor_economico_despesaOutras atividades de publicidade não especificadas anteriormente -0.059 0.953349
setor_economico_despesaOutras atividades de serviços prestados principalmente às empresas não especificadas anteriormente -0.418 0.676295
setor_economico_despesaOutros serviços de acabamento em fios, tecidos, artefatos têxteis e peças do vestuário -0.217 0.828186
setor_economico_despesaPadaria e confeitaria com predominância de revenda 0.044 0.965075
setor_economico_despesaPreparação de documentos e serviços especializados de apoio administrativo não especificados anteriormente -0.113 0.909833
setor_economico_despesaPromoção de vendas NA NA
setor_economico_despesaRecarga de cartuchos para equipamentos de informática 0.002 0.998537
setor_economico_despesaRestaurantes e similares 0.049 0.960714
[ reached getOption("max.print") -- omitted 27 rows ]
---
Signif. codes: 0 *** 0.001 ** 0.01 * 0.05 . 0.1 1
Residual standard error: 32570 on 3930 degrees of freedom
Multiple R-squared: 0.5101, Adjusted R-squared: 0.4826
F-statistic: 18.52 on 221 and 3930 DF, p-value: < 2.2e-16A estatística F nos dá uma ideia sobre o teste de hipóteses feito para verificar se pelo menos um dos coeficientes das variáveis preditoras é diferente de 0, isto é, se há pelo menos uma variável preditora que está relacionada com a variável que se quer prever, que neste caso são os votos. Como o valor da estatística F é maior que 1 e o tamanho da amostra (n = 4152) é consideravelmente maior que o número de preditores (p = 221), podemos inferir que há sim uma relação entre pelo menos uma das variáveis de entrada e a variável alvo.
Em seguida podemos olhar para os p-valores de cada variável preditora. Um p-valor menor que 0,05 é considerado bom e indica que há fortes evidências de que a variável é uma boa preditora no modelo. Um p-valor maior que 0,05 é considerado alto e indica que talvez a variável não se adeque ao modelo.
Nesse modelo boa parte dos p-valores das variáveis está acima do limite (0,05), isso indica que talvez seja necessário retirar algumas variáveis que não fazem sentido para o modelo.
Também é interessante observar o R², que no caso é 0.5101 a princípio pode parecer pouco (explicaria cerca de 51% dos dados), mas levando em consideração a complexidade do modelo provavelmente poderemos assumir que é um bom valor.
Ou seja um modelo de regressão múltipla com todas as variáveis pode ser interessante para explicar a variação em y (número de votos).
2. Todas as variáveis são úteis para o modelo de regressão? Há variáveis redudantes? Justifique sua resposta em ambos os casos.
regsubsets.out <-
regsubsets(votos ~ sequencial_candidato + numero_cadidato + UF + partido
+ setor_economico_receita + quantidade_doacoes+ quantidade_doadores + total_receita + media_receita
+ recursos_de_outros_candidatos.comites + recursos_de_partidos + recursos_de_pessoas_físicas
+ recursos_de_pessoas_juridicas + recursos_proprios + quantidade_despesas
+ quantidade_fornecedores + total_despesa + media_despesa + setor_economico_despesa
+ idade + sexo + grau + estado_civil,
data = eleicoes2014,
nbest = 1, # 1 único modelo para cada cojunto de preditores
nvmax = NULL, # NULL para não haver limite no número de variáveis preditoras
force.in = NULL, force.out = NULL,
method = "forward")4 linear dependencies foundReordering variables and trying again:number of items to replace is not a multiple of replacement lengthsummary.out <- summary(regsubsets.out)
summary.outSubset selection object
Call: regsubsets.formula(votos ~ sequencial_candidato + numero_cadidato +
UF + partido + setor_economico_receita + quantidade_doacoes +
quantidade_doadores + total_receita + media_receita + recursos_de_outros_candidatos.comites +
recursos_de_partidos + recursos_de_pessoas_físicas + recursos_de_pessoas_juridicas +
recursos_proprios + quantidade_despesas + quantidade_fornecedores +
total_despesa + media_despesa + setor_economico_despesa +
idade + sexo + grau + estado_civil, data = eleicoes2014,
nbest = 1, nvmax = NULL, force.in = NULL, force.out = NULL,
method = "forward")
226 Variables (and intercept)
Forced in Forced out
sequencial_candidato FALSE FALSE
numero_cadidato FALSE FALSE
UFAL FALSE FALSE
UFAM FALSE FALSE
UFAP FALSE FALSE
UFBA FALSE FALSE
UFCE FALSE FALSE
UFDF FALSE FALSE
UFES FALSE FALSE
UFGO FALSE FALSE
UFMA FALSE FALSE
UFMG FALSE FALSE
UFMS FALSE FALSE
UFMT FALSE FALSE
UFPA FALSE FALSE
UFPB FALSE FALSE
UFPE FALSE FALSE
UFPI FALSE FALSE
UFPR FALSE FALSE
UFRJ FALSE FALSE
UFRN FALSE FALSE
UFRO FALSE FALSE
UFRR FALSE FALSE
UFRS FALSE FALSE
UFSC FALSE FALSE
UFSE FALSE FALSE
UFSP FALSE FALSE
UFTO FALSE FALSE
partidoPC do B FALSE FALSE
partidoPCB FALSE FALSE
partidoPCO FALSE FALSE
partidoPDT FALSE FALSE
partidoPEN FALSE FALSE
partidoPHS FALSE FALSE
partidoPMDB FALSE FALSE
partidoPMN FALSE FALSE
partidoPP FALSE FALSE
partidoPPL FALSE FALSE
partidoPPS FALSE FALSE
partidoPR FALSE FALSE
partidoPRB FALSE FALSE
partidoPROS FALSE FALSE
partidoPRP FALSE FALSE
partidoPRTB FALSE FALSE
partidoPSB FALSE FALSE
partidoPSC FALSE FALSE
partidoPSD FALSE FALSE
partidoPSDB FALSE FALSE
partidoPSDC FALSE FALSE
partidoPSL FALSE FALSE
partidoPSOL FALSE FALSE
partidoPSTU FALSE FALSE
partidoPT FALSE FALSE
partidoPT do B FALSE FALSE
partidoPTB FALSE FALSE
partidoPTC FALSE FALSE
partidoPTN FALSE FALSE
partidoPV FALSE FALSE
partidoSD FALSE FALSE
setor_economico_receitaAgenciamento de espaços para publicidade, exceto em veículos de comunicação FALSE FALSE
setor_economico_receitaAluguel de imóveis próprios FALSE FALSE
setor_economico_receitaAtividades de apoio à aqüicultura em água doce FALSE FALSE
setor_economico_receitaAtividades de associações de defesa de direitos sociais FALSE FALSE
setor_economico_receitaAtividades de contabilidade FALSE FALSE
setor_economico_receitaAtividades de organizações políticas FALSE FALSE
setor_economico_receitaChaveiros FALSE FALSE
setor_economico_receitaComércio a varejo de peças e acessórios novos para veículos automotores FALSE FALSE
setor_economico_receitaComércio atacadista de álcool carburante, biodiesel, gasolina e demais derivados de petróleo, exceto lubrificantes, não realizado por transportador retalhista (TRR) FALSE FALSE
setor_economico_receitaComércio atacadista de cerveja, chope e refrigerante FALSE FALSE
setor_economico_receitaComércio atacadista de outros produtos químicos e petroquímicos não especificados anteriormente FALSE FALSE
setor_economico_receitaComércio atacadista de produtos alimentícios em geral FALSE FALSE
setor_economico_receitaComércio atacadista de produtos de higiene, limpeza e conservação domiciliar FALSE FALSE
setor_economico_receitaComércio varejista de artigos de papelaria FALSE FALSE
setor_economico_receitaComércio varejista de combustíveis para veículos automotores FALSE FALSE
setor_economico_receitaComércio varejista de doces, balas, bombons e semelhantes FALSE FALSE
setor_economico_receitaComércio varejista de produtos farmacêuticos, sem manipulação de fórmulas FALSE FALSE
setor_economico_receitaComércio varejista especializado de equipamentos e suprimentos de informática FALSE FALSE
setor_economico_receitaCompra e venda de imóveis próprios FALSE FALSE
setor_economico_receitaCultivo de manga FALSE FALSE
setor_economico_receitaCursos preparatórios para concursos FALSE FALSE
setor_economico_receitaEdição integrada à impressão de cadastros, listas e outros produtos gráficos FALSE FALSE
setor_economico_receitaEdição integrada à impressão de livros FALSE FALSE
setor_economico_receitaFabricação de adesivos e selantes FALSE FALSE
setor_economico_receitaFabricação de águas envasadas FALSE FALSE
setor_economico_receitaFabricação de azulejos e pisos FALSE FALSE
setor_economico_receitaFabricação de calçados de couro FALSE FALSE
setor_economico_receitaFabricação de colchões FALSE FALSE
setor_economico_receitaFabricação de embalagens de material plástico FALSE FALSE
setor_economico_receitaFabricação de embalagens de papel FALSE FALSE
setor_economico_receitaFabricação de equipamentos hidráulicos e pneumáticos, peças e acessórios, exceto válvulas FALSE FALSE
setor_economico_receitaFabricação de esquadrias de madeira e de peças de madeira para instalações industriais e comerciais FALSE FALSE
setor_economico_receitaFabricação de medicamentos homeopáticos para uso humano FALSE FALSE
setor_economico_receitaFabricação de papel FALSE FALSE
setor_economico_receitaFabricação de produtos petroquímicos básicos FALSE FALSE
setor_economico_receitaHoldings de instituições não-financeiras FALSE FALSE
setor_economico_receitaHotéis FALSE FALSE
setor_economico_receitaImpressão de livros, revistas e outras publicações periódicas FALSE FALSE
setor_economico_receitaImpressão de material para outros usos FALSE FALSE
setor_economico_receitaImpressão de material para uso publicitário FALSE FALSE
setor_economico_receitaIncorporação de empreendimentos imobiliários FALSE FALSE
setor_economico_receitaInstalação de painéis publicitários FALSE FALSE
setor_economico_receitaOutras atividades de prestação de serviços de informação não especificadas anteriormente FALSE FALSE
setor_economico_receitaOutras atividades de serviços prestados principalmente às empresas não especificadas anteriormente FALSE FALSE
setor_economico_receitaPlanos de saúde FALSE FALSE
setor_economico_receitaPreparação de documentos e serviços especializados de apoio administrativo não especificados anteriormente FALSE FALSE
setor_economico_receitaPromoção de vendas FALSE FALSE
setor_economico_receitaReparação e manutenção de computadores e de equipamentos periféricos FALSE FALSE
setor_economico_receitaServiços advocatícios FALSE FALSE
setor_economico_receitaServiços de acabamentos gráficos, exceto encadernação e plastificação FALSE FALSE
setor_economico_receitaSociedade seguradora de seguros saúde FALSE FALSE
setor_economico_receitaTransporte rodoviário de carga, exceto produtos perigosos e mudanças, municipal FALSE FALSE
quantidade_doacoes FALSE FALSE
quantidade_doadores FALSE FALSE
total_receita FALSE FALSE
media_receita FALSE FALSE
recursos_de_outros_candidatos.comites FALSE FALSE
recursos_de_partidos FALSE FALSE
recursos_de_pessoas_físicas FALSE FALSE
recursos_de_pessoas_juridicas FALSE FALSE
recursos_proprios FALSE FALSE
quantidade_despesas FALSE FALSE
quantidade_fornecedores FALSE FALSE
total_despesa FALSE FALSE
media_despesa FALSE FALSE
setor_economico_despesaAgenciamento de espaços para publicidade, exceto em veículos de comunicação FALSE FALSE
setor_economico_despesaAgências de publicidade FALSE FALSE
setor_economico_despesaAluguel de fitas de vídeo, DVDs e similares FALSE FALSE
setor_economico_despesaAluguel de palcos, coberturas e outras estruturas de uso temporário, exceto andaimes FALSE FALSE
setor_economico_despesaAplicação de revestimentos e de resinas em interiores e exteriores FALSE FALSE
setor_economico_despesaAtividades de associações de defesa de direitos sociais FALSE FALSE
setor_economico_despesaAtividades de contabilidade FALSE FALSE
setor_economico_despesaAtividades de organizações políticas FALSE FALSE
setor_economico_despesaAtividades de organizações sindicais FALSE FALSE
setor_economico_despesaAtividades de pós-produção cinematográfica, de vídeos e de programas de televisão não especificadas anteriormente FALSE FALSE
setor_economico_despesaAtividades de franqueadas e permissionárias do Correio Nacional FALSE FALSE
setor_economico_despesaAtividades do Correio Nacional FALSE FALSE
setor_economico_despesaCasas de festas e eventos FALSE FALSE
setor_economico_despesaComércio a varejo de peças e acessórios novos para veículos automotores FALSE FALSE
setor_economico_despesaComércio atacadista de artigos de escritório e de papelaria FALSE FALSE
setor_economico_despesaComércio atacadista de produtos alimentícios em geral FALSE FALSE
setor_economico_despesaComercio varejista de artigos de armarinho FALSE FALSE
setor_economico_despesaComércio varejista de artigos de iluminação FALSE FALSE
setor_economico_despesaComércio varejista de artigos de papelaria FALSE FALSE
setor_economico_despesaComércio varejista de artigos fotográficos e para filmagem FALSE FALSE
setor_economico_despesaComércio varejista de bebidas FALSE FALSE
setor_economico_despesaComércio varejista de combustíveis para veículos automotores FALSE FALSE
setor_economico_despesaComércio varejista de cosméticos, produtos de perfumaria e de higiene pessoal FALSE FALSE
setor_economico_despesaComércio varejista de ferragens e ferramentas FALSE FALSE
setor_economico_despesaComércio varejista de jornais e revistas FALSE FALSE
setor_economico_despesaComércio varejista de madeira e artefatos FALSE FALSE
setor_economico_despesaComércio varejista de materiais de construção em geral FALSE FALSE
setor_economico_despesaComércio varejista de mercadorias em geral, com predominância de produtos alimentícios - hipermercados FALSE FALSE
setor_economico_despesaComércio varejista de mercadorias em geral, com predominância de produtos alimentícios - supermercados FALSE FALSE
setor_economico_despesaComércio varejista de outros produtos não especificados anteriormente FALSE FALSE
setor_economico_despesaComércio varejista de tintas e materiais para pintura FALSE FALSE
setor_economico_despesaComércio varejista especializado de eletrodomésticos e equipamentos de áudio e vídeo FALSE FALSE
setor_economico_despesaComércio varejista especializado de equipamentos de telefonia e comunicação FALSE FALSE
setor_economico_despesaComércio varejista especializado de equipamentos e suprimentos de informática FALSE FALSE
setor_economico_despesaComércio varejista especializado de peças e acessórios para aparelhos eletroeletrônicos para uso doméstico, exceto informática e comunicação FALSE FALSE
setor_economico_despesaConcessionárias de rodovias, pontes, túneis e serviços relacionados FALSE FALSE
setor_economico_despesaConfecção de peças do vestuário, exceto roupas íntimas e as confeccionadas sob medida FALSE FALSE
setor_economico_despesaConfecção de roupas íntimas FALSE FALSE
setor_economico_despesaConfecção, sob medida, de peças do vestuário, exceto roupas íntimas FALSE FALSE
setor_economico_despesaDistribuição de energia elétrica FALSE FALSE
setor_economico_despesaEdição de cadastros, listas e outros produtos gráficos FALSE FALSE
setor_economico_despesaEdição de livros FALSE FALSE
setor_economico_despesaEdição integrada à impressão de cadastros, listas e outros produtos gráficos FALSE FALSE
setor_economico_despesaEdição integrada à impressão de livros FALSE FALSE
setor_economico_despesaEdição integrada à impressão de revistas FALSE FALSE
setor_economico_despesaEstamparia e texturização em fios, tecidos, artefatos têxteis e peças do vestuário FALSE FALSE
setor_economico_despesaFabricação de adesivos e selantes FALSE FALSE
setor_economico_despesaFabricação de artefatos de material plástico para uso pessoal e doméstico FALSE FALSE
setor_economico_despesaFabricação de embalagens de papel FALSE FALSE
setor_economico_despesaFabricação de letras, letreiros e placas de qualquer material, exceto luminosos FALSE FALSE
setor_economico_despesaFabricação de outras máquinas e equipamentos de uso geral não especificados anteriormente, peças e acessórios FALSE FALSE
setor_economico_despesaFabricação de painéis e letreiros luminosos FALSE FALSE
setor_economico_despesaFabricação de produtos de limpeza e polimento FALSE FALSE
setor_economico_despesaFabricação de produtos de papel, cartolina, papel-cartão e papelão ondulado para uso comercial e de escritório FALSE FALSE
setor_economico_despesaFotocópias FALSE FALSE
setor_economico_despesaImpressão de jornais FALSE FALSE
setor_economico_despesaImpressão de livros, revistas e outras publicações periódicas FALSE FALSE
setor_economico_despesaImpressão de material de segurança FALSE FALSE
setor_economico_despesaImpressão de material para outros usos FALSE FALSE
setor_economico_despesaImpressão de material para uso publicitário FALSE FALSE
setor_economico_despesaInstalação de painéis publicitários FALSE FALSE
setor_economico_despesaLanchonetes, casas de chá, de sucos e similares FALSE FALSE
setor_economico_despesaLocação de automóveis sem condutor FALSE FALSE
setor_economico_despesaMarketing direto FALSE FALSE
setor_economico_despesaOutras atividades de publicidade não especificadas anteriormente FALSE FALSE
setor_economico_despesaOutras atividades de serviços prestados principalmente às empresas não especificadas anteriormente FALSE FALSE
setor_economico_despesaOutros serviços de acabamento em fios, tecidos, artefatos têxteis e peças do vestuário FALSE FALSE
setor_economico_despesaPadaria e confeitaria com predominância de revenda FALSE FALSE
setor_economico_despesaPreparação de documentos e serviços especializados de apoio administrativo não especificados anteriormente FALSE FALSE
setor_economico_despesaRecarga de cartuchos para equipamentos de informática FALSE FALSE
setor_economico_despesaRestaurantes e similares FALSE FALSE
setor_economico_despesaServiço de transporte de passageiros - locação de automóveis com motorista FALSE FALSE
setor_economico_despesaServiços advocatícios FALSE FALSE
setor_economico_despesaServiços combinados de escritório e apoio administrativo FALSE FALSE
setor_economico_despesaServiços de acabamentos gráficos, exceto encadernação e plastificação FALSE FALSE
setor_economico_despesaServiços de comunicação multimídia - SCM FALSE FALSE
setor_economico_despesaServiços de engenharia FALSE FALSE
setor_economico_despesaServiços de entrega rápida FALSE FALSE
setor_economico_despesaServiços de lavagem, lubrificação e polimento de veículos automotores FALSE FALSE
setor_economico_despesaServiços de organização de feiras, congressos, exposições e festas FALSE FALSE
setor_economico_despesaServiços de pré-impressão FALSE FALSE
setor_economico_despesaSuporte técnico, manutenção e outros serviços em tecnologia da informação FALSE FALSE
setor_economico_despesaTransporte rodoviário coletivo de passageiros, com itinerário fixo, intermunicipal, exceto em região metropolitana FALSE FALSE
setor_economico_despesaTransporte rodoviário de carga, exceto produtos perigosos e mudanças, intermunicipal, interestadual e internacional FALSE FALSE
setor_economico_despesaTransporte rodoviário de carga, exceto produtos perigosos e mudanças, municipal FALSE FALSE
setor_economico_despesaTransporte rodoviário de mudanças FALSE FALSE
idade FALSE FALSE
sexoMASCULINO FALSE FALSE
grauENSINO FUNDAMENTAL INCOMPLETO FALSE FALSE
grauENSINO MÉDIO COMPLETO FALSE FALSE
grauENSINO MÉDIO INCOMPLETO FALSE FALSE
grauLÊ E ESCREVE FALSE FALSE
grauSUPERIOR COMPLETO FALSE FALSE
grauSUPERIOR INCOMPLETO FALSE FALSE
estado_civilDIVORCIADO(A) FALSE FALSE
estado_civilSEPARADO(A) JUDICIALMENTE FALSE FALSE
estado_civilSOLTEIRO(A) FALSE FALSE
estado_civilVIÚVO(A) FALSE FALSE
setor_economico_despesaAtividades de apoio à aqüicultura em água doce FALSE FALSE
setor_economico_despesaChaveiros FALSE FALSE
setor_economico_despesaFabricação de papel FALSE FALSE
setor_economico_despesaPromoção de vendas FALSE FALSE
1 subsets of each size up to 222
Selection Algorithm: forward
sequencial_candidato numero_cadidato UFAL UFAM UFAP UFBA UFCE UFDF UFES UFGO UFMA UFMG UFMS UFMT UFPA UFPB UFPE UFPI UFPR UFRJ UFRN UFRO UFRR UFRS UFSC UFSE UFSP UFTO partidoPC do B partidoPCB
1 ( 1 ) " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " "
2 ( 1 ) " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " "
3 ( 1 ) " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " "
4 ( 1 ) " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " "
partidoPCO partidoPDT partidoPEN partidoPHS partidoPMDB partidoPMN partidoPP partidoPPL partidoPPS partidoPR partidoPRB partidoPROS partidoPRP partidoPRTB partidoPSB partidoPSC partidoPSD partidoPSDB
1 ( 1 ) " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " "
2 ( 1 ) " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " "
3 ( 1 ) " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " "
4 ( 1 ) " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " "
partidoPSDC partidoPSL partidoPSOL partidoPSTU partidoPT partidoPT do B partidoPTB partidoPTC partidoPTN partidoPV partidoSD
1 ( 1 ) " " " " " " " " " " " " " " " " " " " " " "
2 ( 1 ) " " " " " " " " " " " " " " " " " " " " " "
3 ( 1 ) " " " " " " " " " " " " " " " " " " " " " "
4 ( 1 ) " " " " " " " " " " " " " " " " " " " " " "
setor_economico_receitaAgenciamento de espaços para publicidade, exceto em veículos de comunicação setor_economico_receitaAluguel de imóveis próprios
1 ( 1 ) " " " "
2 ( 1 ) " " " "
3 ( 1 ) " " " "
4 ( 1 ) " " " "
setor_economico_receitaAtividades de apoio à aqüicultura em água doce setor_economico_receitaAtividades de associações de defesa de direitos sociais setor_economico_receitaAtividades de contabilidade
1 ( 1 ) " " " " " "
2 ( 1 ) " " " " " "
3 ( 1 ) " " " " " "
4 ( 1 ) " " " " " "
setor_economico_receitaAtividades de organizações políticas setor_economico_receitaChaveiros setor_economico_receitaComércio a varejo de peças e acessórios novos para veículos automotores
1 ( 1 ) " " " " " "
2 ( 1 ) " " " " " "
3 ( 1 ) " " " " " "
4 ( 1 ) " " " " " "
setor_economico_receitaComércio atacadista de álcool carburante, biodiesel, gasolina e demais derivados de petróleo, exceto lubrificantes, não realizado por transportador retalhista (TRR)
1 ( 1 ) " "
2 ( 1 ) " "
3 ( 1 ) " "
4 ( 1 ) " "
setor_economico_receitaComércio atacadista de cerveja, chope e refrigerante setor_economico_receitaComércio atacadista de outros produtos químicos e petroquímicos não especificados anteriormente
1 ( 1 ) " " " "
2 ( 1 ) " " " "
3 ( 1 ) " " " "
4 ( 1 ) " " " "
setor_economico_receitaComércio atacadista de produtos alimentícios em geral setor_economico_receitaComércio atacadista de produtos de higiene, limpeza e conservação domiciliar
1 ( 1 ) " " " "
2 ( 1 ) " " " "
3 ( 1 ) " " " "
4 ( 1 ) " " " "
setor_economico_receitaComércio varejista de artigos de papelaria setor_economico_receitaComércio varejista de combustíveis para veículos automotores
1 ( 1 ) " " " "
2 ( 1 ) " " " "
3 ( 1 ) " " " "
4 ( 1 ) " " " "
setor_economico_receitaComércio varejista de doces, balas, bombons e semelhantes setor_economico_receitaComércio varejista de produtos farmacêuticos, sem manipulação de fórmulas
1 ( 1 ) " " " "
2 ( 1 ) " " " "
3 ( 1 ) " " " "
4 ( 1 ) " " " "
setor_economico_receitaComércio varejista especializado de equipamentos e suprimentos de informática setor_economico_receitaCompra e venda de imóveis próprios setor_economico_receitaCultivo de manga
1 ( 1 ) " " " " " "
2 ( 1 ) " " " " " "
3 ( 1 ) " " " " " "
4 ( 1 ) " " " " " "
setor_economico_receitaCursos preparatórios para concursos setor_economico_receitaEdição integrada à impressão de cadastros, listas e outros produtos gráficos
1 ( 1 ) " " " "
2 ( 1 ) " " " "
3 ( 1 ) " " " "
4 ( 1 ) " " " "
setor_economico_receitaEdição integrada à impressão de livros setor_economico_receitaFabricação de adesivos e selantes setor_economico_receitaFabricação de águas envasadas
1 ( 1 ) " " " " " "
2 ( 1 ) " " " " " "
3 ( 1 ) " " " " " "
4 ( 1 ) " " " " " "
setor_economico_receitaFabricação de azulejos e pisos setor_economico_receitaFabricação de calçados de couro setor_economico_receitaFabricação de colchões
1 ( 1 ) " " " " " "
2 ( 1 ) " " " " " "
3 ( 1 ) " " " " " "
4 ( 1 ) " " " " " "
setor_economico_receitaFabricação de embalagens de material plástico setor_economico_receitaFabricação de embalagens de papel
1 ( 1 ) " " " "
2 ( 1 ) " " " "
3 ( 1 ) " " " "
4 ( 1 ) " " " "
setor_economico_receitaFabricação de equipamentos hidráulicos e pneumáticos, peças e acessórios, exceto válvulas
1 ( 1 ) " "
2 ( 1 ) " "
3 ( 1 ) " "
4 ( 1 ) " "
setor_economico_receitaFabricação de esquadrias de madeira e de peças de madeira para instalações industriais e comerciais
1 ( 1 ) " "
2 ( 1 ) " "
3 ( 1 ) " "
4 ( 1 ) " "
setor_economico_receitaFabricação de medicamentos homeopáticos para uso humano setor_economico_receitaFabricação de papel setor_economico_receitaFabricação de produtos petroquímicos básicos
1 ( 1 ) " " " " " "
2 ( 1 ) " " " " " "
3 ( 1 ) " " " " " "
4 ( 1 ) " " " " " "
setor_economico_receitaHoldings de instituições não-financeiras setor_economico_receitaHotéis setor_economico_receitaImpressão de livros, revistas e outras publicações periódicas
1 ( 1 ) " " " " " "
2 ( 1 ) " " " " " "
3 ( 1 ) " " " " " "
4 ( 1 ) " " " " " "
setor_economico_receitaImpressão de material para outros usos setor_economico_receitaImpressão de material para uso publicitário setor_economico_receitaIncorporação de empreendimentos imobiliários
1 ( 1 ) " " " " " "
2 ( 1 ) " " " " " "
3 ( 1 ) " " " " " "
4 ( 1 ) " " " " " "
setor_economico_receitaInstalação de painéis publicitários setor_economico_receitaOutras atividades de prestação de serviços de informação não especificadas anteriormente
1 ( 1 ) " " " "
2 ( 1 ) " " " "
3 ( 1 ) " " " "
4 ( 1 ) " " " "
setor_economico_receitaOutras atividades de serviços prestados principalmente às empresas não especificadas anteriormente setor_economico_receitaPlanos de saúde
1 ( 1 ) " " " "
2 ( 1 ) " " " "
3 ( 1 ) " " " "
4 ( 1 ) " " " "
setor_economico_receitaPreparação de documentos e serviços especializados de apoio administrativo não especificados anteriormente setor_economico_receitaPromoção de vendas
1 ( 1 ) " " " "
2 ( 1 ) " " " "
3 ( 1 ) " " " "
4 ( 1 ) " " " "
setor_economico_receitaReparação e manutenção de computadores e de equipamentos periféricos setor_economico_receitaServiços advocatícios
1 ( 1 ) " " " "
2 ( 1 ) " " " "
3 ( 1 ) " " " "
4 ( 1 ) " " " "
setor_economico_receitaServiços de acabamentos gráficos, exceto encadernação e plastificação setor_economico_receitaSociedade seguradora de seguros saúde
1 ( 1 ) " " " "
2 ( 1 ) " " " "
3 ( 1 ) " " " "
4 ( 1 ) " " " "
setor_economico_receitaTransporte rodoviário de carga, exceto produtos perigosos e mudanças, municipal quantidade_doacoes quantidade_doadores total_receita media_receita
1 ( 1 ) " " " " " " "*" " "
2 ( 1 ) " " " " " " "*" " "
3 ( 1 ) " " " " "*" "*" " "
4 ( 1 ) " " " " "*" "*" "*"
recursos_de_outros_candidatos.comites recursos_de_partidos recursos_de_pessoas_físicas recursos_de_pessoas_juridicas recursos_proprios quantidade_despesas quantidade_fornecedores total_despesa
1 ( 1 ) " " " " " " " " " " " " " " " "
2 ( 1 ) "*" " " " " " " " " " " " " " "
3 ( 1 ) "*" " " " " " " " " " " " " " "
4 ( 1 ) "*" " " " " " " " " " " " " " "
media_despesa setor_economico_despesaAgenciamento de espaços para publicidade, exceto em veículos de comunicação setor_economico_despesaAgências de publicidade
1 ( 1 ) " " " " " "
2 ( 1 ) " " " " " "
3 ( 1 ) " " " " " "
4 ( 1 ) " " " " " "
setor_economico_despesaAluguel de fitas de vídeo, DVDs e similares setor_economico_despesaAluguel de palcos, coberturas e outras estruturas de uso temporário, exceto andaimes
1 ( 1 ) " " " "
2 ( 1 ) " " " "
3 ( 1 ) " " " "
4 ( 1 ) " " " "
setor_economico_despesaAplicação de revestimentos e de resinas em interiores e exteriores setor_economico_despesaAtividades de apoio à aqüicultura em água doce
1 ( 1 ) " " " "
2 ( 1 ) " " " "
3 ( 1 ) " " " "
4 ( 1 ) " " " "
setor_economico_despesaAtividades de associações de defesa de direitos sociais setor_economico_despesaAtividades de contabilidade setor_economico_despesaAtividades de organizações políticas
1 ( 1 ) " " " " " "
2 ( 1 ) " " " " " "
3 ( 1 ) " " " " " "
4 ( 1 ) " " " " " "
setor_economico_despesaAtividades de organizações sindicais setor_economico_despesaAtividades de pós-produção cinematográfica, de vídeos e de programas de televisão não especificadas anteriormente
1 ( 1 ) " " " "
2 ( 1 ) " " " "
3 ( 1 ) " " " "
4 ( 1 ) " " " "
setor_economico_despesaAtividades de franqueadas e permissionárias do Correio Nacional setor_economico_despesaAtividades do Correio Nacional setor_economico_despesaCasas de festas e eventos
1 ( 1 ) " " " " " "
2 ( 1 ) " " " " " "
3 ( 1 ) " " " " " "
4 ( 1 ) " " " " " "
setor_economico_despesaChaveiros setor_economico_despesaComércio a varejo de peças e acessórios novos para veículos automotores
1 ( 1 ) " " " "
2 ( 1 ) " " " "
3 ( 1 ) " " " "
4 ( 1 ) " " " "
setor_economico_despesaComércio atacadista de artigos de escritório e de papelaria setor_economico_despesaComércio atacadista de produtos alimentícios em geral
1 ( 1 ) " " " "
2 ( 1 ) " " " "
3 ( 1 ) " " " "
4 ( 1 ) " " " "
setor_economico_despesaComercio varejista de artigos de armarinho setor_economico_despesaComércio varejista de artigos de iluminação setor_economico_despesaComércio varejista de artigos de papelaria
1 ( 1 ) " " " " " "
2 ( 1 ) " " " " " "
3 ( 1 ) " " " " " "
4 ( 1 ) " " " " " "
setor_economico_despesaComércio varejista de artigos fotográficos e para filmagem setor_economico_despesaComércio varejista de bebidas
1 ( 1 ) " " " "
2 ( 1 ) " " " "
3 ( 1 ) " " " "
4 ( 1 ) " " " "
setor_economico_despesaComércio varejista de combustíveis para veículos automotores setor_economico_despesaComércio varejista de cosméticos, produtos de perfumaria e de higiene pessoal
1 ( 1 ) " " " "
2 ( 1 ) " " " "
3 ( 1 ) " " " "
4 ( 1 ) " " " "
setor_economico_despesaComércio varejista de ferragens e ferramentas setor_economico_despesaComércio varejista de jornais e revistas setor_economico_despesaComércio varejista de madeira e artefatos
1 ( 1 ) " " " " " "
2 ( 1 ) " " " " " "
3 ( 1 ) " " " " " "
4 ( 1 ) " " " " " "
setor_economico_despesaComércio varejista de materiais de construção em geral
1 ( 1 ) " "
2 ( 1 ) " "
3 ( 1 ) " "
4 ( 1 ) " "
setor_economico_despesaComércio varejista de mercadorias em geral, com predominância de produtos alimentícios - hipermercados
1 ( 1 ) " "
2 ( 1 ) " "
3 ( 1 ) " "
4 ( 1 ) " "
setor_economico_despesaComércio varejista de mercadorias em geral, com predominância de produtos alimentícios - supermercados
1 ( 1 ) " "
2 ( 1 ) " "
3 ( 1 ) " "
4 ( 1 ) " "
setor_economico_despesaComércio varejista de outros produtos não especificados anteriormente setor_economico_despesaComércio varejista de tintas e materiais para pintura
1 ( 1 ) " " " "
2 ( 1 ) " " " "
3 ( 1 ) " " " "
4 ( 1 ) " " " "
setor_economico_despesaComércio varejista especializado de eletrodomésticos e equipamentos de áudio e vídeo
1 ( 1 ) " "
2 ( 1 ) " "
3 ( 1 ) " "
4 ( 1 ) " "
setor_economico_despesaComércio varejista especializado de equipamentos de telefonia e comunicação setor_economico_despesaComércio varejista especializado de equipamentos e suprimentos de informática
1 ( 1 ) " " " "
2 ( 1 ) " " " "
3 ( 1 ) " " " "
4 ( 1 ) " " " "
setor_economico_despesaComércio varejista especializado de peças e acessórios para aparelhos eletroeletrônicos para uso doméstico, exceto informática e comunicação
1 ( 1 ) " "
2 ( 1 ) " "
3 ( 1 ) " "
4 ( 1 ) " "
setor_economico_despesaConcessionárias de rodovias, pontes, túneis e serviços relacionados setor_economico_despesaConfecção de peças do vestuário, exceto roupas íntimas e as confeccionadas sob medida
1 ( 1 ) " " " "
2 ( 1 ) " " " "
3 ( 1 ) " " " "
4 ( 1 ) " " " "
setor_economico_despesaConfecção de roupas íntimas setor_economico_despesaConfecção, sob medida, de peças do vestuário, exceto roupas íntimas setor_economico_despesaDistribuição de energia elétrica
1 ( 1 ) " " " " " "
2 ( 1 ) " " " " " "
3 ( 1 ) " " " " " "
4 ( 1 ) " " " " " "
setor_economico_despesaEdição de cadastros, listas e outros produtos gráficos setor_economico_despesaEdição de livros
1 ( 1 ) " " " "
2 ( 1 ) " " " "
3 ( 1 ) " " " "
4 ( 1 ) " " " "
setor_economico_despesaEdição integrada à impressão de cadastros, listas e outros produtos gráficos setor_economico_despesaEdição integrada à impressão de livros
1 ( 1 ) " " " "
2 ( 1 ) " " " "
3 ( 1 ) " " " "
4 ( 1 ) " " " "
setor_economico_despesaEdição integrada à impressão de revistas setor_economico_despesaEstamparia e texturização em fios, tecidos, artefatos têxteis e peças do vestuário
1 ( 1 ) " " " "
2 ( 1 ) " " " "
3 ( 1 ) " " " "
4 ( 1 ) " " " "
setor_economico_despesaFabricação de adesivos e selantes setor_economico_despesaFabricação de artefatos de material plástico para uso pessoal e doméstico
1 ( 1 ) " " " "
2 ( 1 ) " " " "
3 ( 1 ) " " " "
4 ( 1 ) " " " "
setor_economico_despesaFabricação de embalagens de papel setor_economico_despesaFabricação de letras, letreiros e placas de qualquer material, exceto luminosos
1 ( 1 ) " " " "
2 ( 1 ) " " " "
3 ( 1 ) " " " "
4 ( 1 ) " " " "
setor_economico_despesaFabricação de outras máquinas e equipamentos de uso geral não especificados anteriormente, peças e acessórios setor_economico_despesaFabricação de painéis e letreiros luminosos
1 ( 1 ) " " " "
2 ( 1 ) " " " "
3 ( 1 ) " " " "
4 ( 1 ) " " " "
setor_economico_despesaFabricação de papel setor_economico_despesaFabricação de produtos de limpeza e polimento
1 ( 1 ) " " " "
2 ( 1 ) " " " "
3 ( 1 ) " " " "
4 ( 1 ) " " " "
setor_economico_despesaFabricação de produtos de papel, cartolina, papel-cartão e papelão ondulado para uso comercial e de escritório setor_economico_despesaFotocópias
1 ( 1 ) " " " "
2 ( 1 ) " " " "
3 ( 1 ) " " " "
4 ( 1 ) " " " "
setor_economico_despesaImpressão de jornais setor_economico_despesaImpressão de livros, revistas e outras publicações periódicas setor_economico_despesaImpressão de material de segurança
1 ( 1 ) " " " " " "
2 ( 1 ) " " " " " "
3 ( 1 ) " " " " " "
4 ( 1 ) " " " " " "
setor_economico_despesaImpressão de material para outros usos setor_economico_despesaImpressão de material para uso publicitário setor_economico_despesaInstalação de painéis publicitários
1 ( 1 ) " " " " " "
2 ( 1 ) " " " " " "
3 ( 1 ) " " " " " "
4 ( 1 ) " " " " " "
setor_economico_despesaLanchonetes, casas de chá, de sucos e similares setor_economico_despesaLocação de automóveis sem condutor setor_economico_despesaMarketing direto
1 ( 1 ) " " " " " "
2 ( 1 ) " " " " " "
3 ( 1 ) " " " " " "
4 ( 1 ) " " " " " "
setor_economico_despesaOutras atividades de publicidade não especificadas anteriormente
1 ( 1 ) " "
2 ( 1 ) " "
3 ( 1 ) " "
4 ( 1 ) " "
setor_economico_despesaOutras atividades de serviços prestados principalmente às empresas não especificadas anteriormente
1 ( 1 ) " "
2 ( 1 ) " "
3 ( 1 ) " "
4 ( 1 ) " "
setor_economico_despesaOutros serviços de acabamento em fios, tecidos, artefatos têxteis e peças do vestuário setor_economico_despesaPadaria e confeitaria com predominância de revenda
1 ( 1 ) " " " "
2 ( 1 ) " " " "
3 ( 1 ) " " " "
4 ( 1 ) " " " "
setor_economico_despesaPreparação de documentos e serviços especializados de apoio administrativo não especificados anteriormente setor_economico_despesaPromoção de vendas
1 ( 1 ) " " " "
2 ( 1 ) " " " "
3 ( 1 ) " " " "
4 ( 1 ) " " " "
setor_economico_despesaRecarga de cartuchos para equipamentos de informática setor_economico_despesaRestaurantes e similares
1 ( 1 ) " " " "
2 ( 1 ) " " " "
3 ( 1 ) " " " "
4 ( 1 ) " " " "
setor_economico_despesaServiço de transporte de passageiros - locação de automóveis com motorista setor_economico_despesaServiços advocatícios
1 ( 1 ) " " " "
2 ( 1 ) " " " "
3 ( 1 ) " " " "
4 ( 1 ) " " " "
setor_economico_despesaServiços combinados de escritório e apoio administrativo setor_economico_despesaServiços de acabamentos gráficos, exceto encadernação e plastificação
1 ( 1 ) " " " "
2 ( 1 ) " " " "
3 ( 1 ) " " " "
4 ( 1 ) " " " "
setor_economico_despesaServiços de comunicação multimídia - SCM setor_economico_despesaServiços de engenharia setor_economico_despesaServiços de entrega rápida
1 ( 1 ) " " " " " "
2 ( 1 ) " " " " " "
3 ( 1 ) " " " " " "
4 ( 1 ) " " " " " "
setor_economico_despesaServiços de lavagem, lubrificação e polimento de veículos automotores setor_economico_despesaServiços de organização de feiras, congressos, exposições e festas
1 ( 1 ) " " " "
2 ( 1 ) " " " "
3 ( 1 ) " " " "
4 ( 1 ) " " " "
setor_economico_despesaServiços de pré-impressão setor_economico_despesaSuporte técnico, manutenção e outros serviços em tecnologia da informação
1 ( 1 ) " " " "
2 ( 1 ) " " " "
3 ( 1 ) " " " "
4 ( 1 ) " " " "
setor_economico_despesaTransporte rodoviário coletivo de passageiros, com itinerário fixo, intermunicipal, exceto em região metropolitana
1 ( 1 ) " "
2 ( 1 ) " "
3 ( 1 ) " "
4 ( 1 ) " "
setor_economico_despesaTransporte rodoviário de carga, exceto produtos perigosos e mudanças, intermunicipal, interestadual e internacional
1 ( 1 ) " "
2 ( 1 ) " "
3 ( 1 ) " "
4 ( 1 ) " "
setor_economico_despesaTransporte rodoviário de carga, exceto produtos perigosos e mudanças, municipal setor_economico_despesaTransporte rodoviário de mudanças idade sexoMASCULINO
1 ( 1 ) " " " " " " " "
2 ( 1 ) " " " " " " " "
3 ( 1 ) " " " " " " " "
4 ( 1 ) " " " " " " " "
grauENSINO FUNDAMENTAL INCOMPLETO grauENSINO MÉDIO COMPLETO grauENSINO MÉDIO INCOMPLETO grauLÊ E ESCREVE grauSUPERIOR COMPLETO grauSUPERIOR INCOMPLETO estado_civilDIVORCIADO(A)
1 ( 1 ) " " " " " " " " " " " " " "
2 ( 1 ) " " " " " " " " " " " " " "
3 ( 1 ) " " " " " " " " " " " " " "
4 ( 1 ) " " " " " " " " " " " " " "
estado_civilSEPARADO(A) JUDICIALMENTE estado_civilSOLTEIRO(A) estado_civilVIÚVO(A)
1 ( 1 ) " " " " " "
2 ( 1 ) " " " " " "
3 ( 1 ) " " " " " "
4 ( 1 ) " " " " " "
[ reached getOption("max.print") -- omitted 218 rows ]Aqui usaremos seleção de variáveis, que basicamente seria identificar quais das variáveis são relevantes ao modelo e quais não são, nesse caso em específico irei utilizar o algorítimo “forward selection”.
which.max(summary.out$adjr2)[1] 55Essa linha nos mostra qual dos modelos possui o maior r² ajustado.
E logo em seguida podemos ver quais são essas variáveis.
which(summary.out$which[55,]) (Intercept)
1
sequencial_candidato
2
UFAP
6
UFBA
7
UFCE
8
UFDF
9
UFMA
12
UFMS
14
UFMT
15
UFPA
16
UFPB
17
UFPE
18
UFPR
20
UFRN
22
UFRO
23
UFRR
24
UFSC
26
UFTO
29
partidoPDT
33
partidoPMDB
36
partidoPMN
37
partidoPP
38
partidoPR
41
partidoPRB
42
partidoPSC
47
partidoPSD
48
partidoPSDB
49
partidoPSOL
52
setor_economico_receitaComércio atacadista de produtos alimentícios em geral
72
setor_economico_receitaEdição integrada à impressão de cadastros, listas e outros produtos gráficos
82
setor_economico_receitaFabricação de águas envasadas
85
setor_economico_receitaFabricação de equipamentos hidráulicos e pneumáticos, peças e acessórios, exceto válvulas
91
setor_economico_receitaPlanos de saúde
105
setor_economico_receitaTransporte rodoviário de carga, exceto produtos perigosos e mudanças, municipal
112
quantidade_doadores
114
total_receita
115
media_receita
116
recursos_de_outros_candidatos.comites
117
recursos_de_partidos
118
recursos_de_pessoas_físicas
119
recursos_de_pessoas_juridicas
120
recursos_proprios
121
quantidade_despesas
122
quantidade_fornecedores
123
total_despesa
124
media_despesa
125
setor_economico_despesaAgenciamento de espaços para publicidade, exceto em veículos de comunicação
126
setor_economico_despesaAgências de publicidade
127
setor_economico_despesaComércio varejista de mercadorias em geral, com predominância de produtos alimentícios - supermercados
156
setor_economico_despesaComércio varejista especializado de peças e acessórios para aparelhos eletroeletrônicos para uso doméstico, exceto informática e comunicação
162
setor_economico_despesaImpressão de livros, revistas e outras publicações periódicas
185
setor_economico_despesaServiços de pré-impressão
210
sexoMASCULINO
217
grauSUPERIOR COMPLETO
222
grauSUPERIOR INCOMPLETO
223
estado_civilVIÚVO(A)
227 Com essa informação podemos afirmar que nem todas as variáveis são úteis para o modelo de regressão.
3. No caso de haver variáveis pouco explicativas e/ou redudantes, construa um novo modelo sem essas variáveis e o compare ao modelo com todas as variáveis (e.g. em termos de R2 e RSE).
Usando apenas as colunas úteis poderemos montar um novo modelo mais eficiente que o anterior.
estados_relevantes <- c("AP","BA", "CE", "DF", "MA","MS", "MT", "PA", "PB", "PE", "PR", "RN","RO", "RR","SC","TO","TO")
partidos_relevantes <- c("PDT", "PMDB", "PMN", "PP", "PTPR","PRB", "PSC", "PSD", "PSDB", "PSOL")
grau_relevante <- c("SUPERIOR INCOMPLETO", "SUPERIOR COMPLETO")
sexo_relevante <- c("MASCULINO")
estados_civis_relevantes <- c("VIÚVO(A)")
setores_economicos_despesa_relevantes <- c("Agenciamento de espaços para publicidade, exceto em veículos de comunicação",
"Agências de publicidade", "Comércio varejista de mercadorias em geral, com predominância de produtos alimentícios - supermercados",
"Comércio varejista especializado de peças e acessórios para aparelhos eletroeletrônicos para uso doméstico, exceto informática e comunicação",
"Impressão de livros, revistas e outras publicações periódicas", "Serviços de pré-impressão")
setores_economicos_receita_relevantes <- c("Comércio atacadista de produtos alimentícios em geral", "Edição integrada à impressão de cadastros, listas e outros produtos gráficos",
"Fabricação de águas envasadas", "Fabricação de equipamentos hidráulicos e pneumáticos, peças e acessórios, exceto válvulas",
"Planos de saúde", "Transporte rodoviário de carga, exceto produtos perigosos e mudanças, municipal")
eleicoes20142.best_input <- eleicoes2014 %>%
mutate (estado_relevante = ifelse(UF %in% estados_relevantes, TRUE, FALSE)) %>%
mutate (partido_relevante = ifelse(partido %in% partidos_relevantes, TRUE, FALSE)) %>%
mutate (grau_relevante = ifelse(grau %in% grau_relevante, TRUE, FALSE)) %>%
mutate (sexo_relevante = ifelse(sexo %in% sexo_relevante, TRUE, FALSE)) %>%
mutate (setor_economico_despesa_relevante = ifelse(setor_economico_despesa %in% setores_economicos_despesa_relevantes, TRUE, FALSE)) %>%
mutate (setor_economico_receita_relevante = ifelse(setor_economico_receita %in% setores_economicos_receita_relevantes, TRUE, FALSE)) %>%
mutate (estado_civil_relevante = ifelse(estado_civil %in% estados_civis_relevantes, TRUE, FALSE)) %>%
select(estado_relevante, partido_relevante,grau_relevante,sexo_relevante,estado_civil_relevante,votos, quantidade_doacoes, quantidade_doadores,
media_receita, quantidade_despesas, quantidade_fornecedores, total_despesa, media_despesa)eleicoes20142.best_fit <- lm(votos ~ . -votos, data=eleicoes20142.best_input)
summary(eleicoes20142.best_fit)
Call:
lm(formula = votos ~ . - votos, data = eleicoes20142.best_input)
Residuals:
Min 1Q Median 3Q Max
-235731 -6469 -2418 1163 1375326
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) -5902.09249 1337.97948 -4.411 1.05e-05 ***
estado_relevanteTRUE 1409.26553 1106.95102 1.273 0.203052
partido_relevanteTRUE 4004.84706 1087.88082 3.681 0.000235 ***
grau_relevanteTRUE 2468.93696 1125.83861 2.193 0.028365 *
sexo_relevanteTRUE 3911.74307 1199.23490 3.262 0.001116 **
estado_civil_relevanteTRUE -5566.79360 3781.08588 -1.472 0.141023
quantidade_doacoes 75.97208 26.33370 2.885 0.003935 **
quantidade_doadores 205.79988 37.01710 5.560 2.87e-08 ***
media_receita 0.45229 0.05167 8.754 < 2e-16 ***
quantidade_despesas 54.41273 4.35988 12.480 < 2e-16 ***
quantidade_fornecedores -56.09950 6.21230 -9.030 < 2e-16 ***
total_despesa 0.01210 0.00183 6.613 4.25e-11 ***
media_despesa 2.45758 0.40679 6.041 1.66e-09 ***
---
Signif. codes: 0 *** 0.001 ** 0.01 * 0.05 . 0.1 1
Residual standard error: 33700 on 4139 degrees of freedom
Multiple R-squared: 0.4478, Adjusted R-squared: 0.4462
F-statistic: 279.7 on 12 and 4139 DF, p-value: < 2.2e-16Com posse desses valores podemos comparar os dois modelos, no primeiro o r² ajustado é de 0.4826 já no segundo é 0.4462, e o RSE no primeiro é 32570 no segundo é 33700.
A princípio pode parecer que o primeiro modelo é melhor que o segundo, já que ele explicaria mais casos (48,26% contra 44,62%), mas isso também se da pelo fato que quando um modelo tem mais variáveis ele normalmente vai possui um r² maior que um modelo com menos variáveis, também podemos notar que mesmo assim a diferença entre eles é pequena (~4%).
No caso do RSE que seria o erro padrão dos desvios ou erro padrão da regressão, o segundo modelo se saiu melhor, também é importante levar em conta o grau de liberdade de cada modelo (3930 contra 4139), mas nesse caso eles acabaram ficando próximos.
Outro ponto muito importante são os p-valores das variáveis, que nesse caso praticamente todas se mostram muito relacionadas com a variável resposta.
4. Analise plots de resíduos e verifique se há tendências nos erros.
residuos <- residuals(eleicoes20142.best_fit)
predicao <- predict(eleicoes20142.best_fit)
plot(predicao, residuos)
Analisando os plots dos resíduos de cada variável, identifica-se aleatoriedade em todos os gráficos e uma simetria dos pontos em torno do valor 0 (com apenas uma única exceção). Então, concluímos que nenhuma variável tende a superestimar ou subestimar a variável de resposta.
5. Quais variáveis conseguem explicar melhor o número de votos? Justifique sua resposta.
Supostamente poderíamos usar os p-valores como indicativo do quanto cada variável está relacionada com a variável resposta, assim as melhores variáveis seriam: media_receita, quantidade_despesas e quantidade_fornecedores, na qual todas tiveram o p-valor de 2e-16.
LS0tDQp0aXRsZTogIlVzYW5kbyBSZWdyZXNz428gTGluZWFyIHBhcmEgRXhwbGljYXIgYSB2b3Rh5+NvIGRlIERlcHV0YWRvcyINCm91dHB1dDoNCiAgaHRtbF9ub3RlYm9vazogZGVmYXVsdA0KICBodG1sX2RvY3VtZW50Og0KICAgIGRmX3ByaW50OiBwYWdlZA0KICAgIGZpZzpoZWlnaHQ6IDQNCiAgICBmaWdfd2lkdGg6IDUNCiAgICB0aGVtZTogcmVhZGFibGUNCiAgICB0b2M6IHllcw0KICAgIHRvY19mbG9hdDogeWVzDQogIHBkZl9kb2N1bWVudDoNCiAgICB0b2M6IHllcw0KICBlZGl0b3Jfb3B0aW9uczoNCiAgICBjaHVua19vdXRwdXRfdHlwZTogb3V0bGluZQ0KLS0tDQoNCmBgYHtyIG1lc3NhZ2U9RkFMU0UsIHdhcm5pbmc9RkFMU0V9DQpsaWJyYXJ5KGdncGxvdDIpDQpsaWJyYXJ5KGNhcmV0KQ0KbGlicmFyeShsZWFwcykNCmxpYnJhcnkoZHBseXIpDQpsaWJyYXJ5KHJlc2hhcGUyKQ0KbGlicmFyeShjYXIpDQpsaWJyYXJ5KGNvcnJwbG90KQ0Kc2V0d2QoIkM6L1VzZXJzL2RpbWl0L0Rlc2t0b3AvUHJvamV0b3MvQUQyIikNCmVsZWljb2VzMjAxNCA8LSByZWFkLmNzdigiZWxlaWNvZXMyMDE0LmNzdiIsIGVuY29kaW5nPSJsYXRpbjEiKQ0Kb3B0aW9ucyhzY2lwZW4gPSA0KQ0KDQojc3Vic3RpdHVpIG9zIHZhbG9yZXMgTkEgcGVsYSBt6WRpYSBkYSBjb2x1bmEuDQpmb3IoaSBpbiAxOm5jb2woZWxlaWNvZXMyMDE0KSl7DQogIGVsZWljb2VzMjAxNFtpcy5uYShlbGVpY29lczIwMTRbLGldKSwgaV0gPC0gbWVhbihlbGVpY29lczIwMTRbLGldLCBuYS5ybSA9IFRSVUUpDQp9DQpgYGANCg0KIyMjMS4gVW0gbW9kZWxvIGRlIHJlZ3Jlc3PjbyBt+mx0aXBsYSBjb20gdG9kYXMgYXMgdmFyaeF2ZWlzIOkgcGxhdXPtdmVsIHBhcmEgZXhwbGljYXIgYSB2YXJpYefjbyBlbSB5IChu+m1lcm8gZGUgdm90b3MpPyBKdXN0aWZpcXVlIHN1YSByZXNwb3N0YS4NCg0KYGBge3J9DQptb2QxID0gbG0odm90b3MgfiBzZXF1ZW5jaWFsX2NhbmRpZGF0byArIG51bWVyb19jYWRpZGF0byArIFVGICsgcGFydGlkbyANCiAgICAgICAgICArIHNldG9yX2Vjb25vbWljb19yZWNlaXRhICsgIHF1YW50aWRhZGVfZG9hY29lcysgcXVhbnRpZGFkZV9kb2Fkb3JlcyArIHRvdGFsX3JlY2VpdGEgKyBtZWRpYV9yZWNlaXRhIA0KICAgICAgICAgICsgcmVjdXJzb3NfZGVfb3V0cm9zX2NhbmRpZGF0b3MuY29taXRlcyArIHJlY3Vyc29zX2RlX3BhcnRpZG9zICsgcmVjdXJzb3NfZGVfcGVzc29hc19m7XNpY2FzDQogICAgICAgICAgKyByZWN1cnNvc19kZV9wZXNzb2FzX2p1cmlkaWNhcyArIHJlY3Vyc29zX3Byb3ByaW9zICsgcXVhbnRpZGFkZV9kZXNwZXNhcyANCiAgICAgICAgICArIHF1YW50aWRhZGVfZm9ybmVjZWRvcmVzICsgdG90YWxfZGVzcGVzYSArIG1lZGlhX2Rlc3Blc2EgKyBzZXRvcl9lY29ub21pY29fZGVzcGVzYSANCiAgICAgICAgICArIGlkYWRlICsgc2V4byArIGdyYXUgKyBlc3RhZG9fY2l2aWwsIGRhdGE9ZWxlaWNvZXMyMDE0KQ0KDQpzdW1tYXJ5KG1vZDEpDQpgYGANCg0KQSBlc3RhdO1zdGljYSBGIG5vcyBk4SB1bWEgaWRlaWEgc29icmUgbyB0ZXN0ZSBkZSBoaXDzdGVzZXMgZmVpdG8gcGFyYSB2ZXJpZmljYXIgc2UgcGVsbyBtZW5vcyB1bSBkb3MgY29lZmljaWVudGVzIGRhcyB2YXJp4XZlaXMgcHJlZGl0b3JhcyDpIGRpZmVyZW50ZSBkZSAwLCBpc3RvIOksIHNlIGjhIHBlbG8gbWVub3MgdW1hIHZhcmnhdmVsIHByZWRpdG9yYSBxdWUgZXN04SByZWxhY2lvbmFkYSBjb20gYSB2YXJp4XZlbCBxdWUgc2UgcXVlciBwcmV2ZXIsIHF1ZSBuZXN0ZSBjYXNvIHPjbyBvcyB2b3Rvcy4gQ29tbyBvIHZhbG9yIGRhIGVzdGF07XN0aWNhIEYg6SBtYWlvciBxdWUgMSBlIG8gdGFtYW5obyBkYSBhbW9zdHJhIChuID0gNDE1Mikg6SBjb25zaWRlcmF2ZWxtZW50ZSBtYWlvciBxdWUgbyBu+m1lcm8gZGUgcHJlZGl0b3JlcyAocCA9IDIyMSksIHBvZGVtb3MgaW5mZXJpciBxdWUgaOEgc2ltIHVtYSByZWxh5+NvIGVudHJlIHBlbG8gbWVub3MgdW1hIGRhcyB2YXJp4XZlaXMgZGUgZW50cmFkYSBlIGEgdmFyaeF2ZWwgYWx2by4NCg0KRW0gc2VndWlkYSBwb2RlbW9zIG9saGFyIHBhcmEgb3MgcC12YWxvcmVzIGRlIGNhZGEgdmFyaeF2ZWwgcHJlZGl0b3JhLiBVbSBwLXZhbG9yIG1lbm9yIHF1ZSAwLDA1IOkgY29uc2lkZXJhZG8gYm9tIGUgaW5kaWNhIHF1ZSBo4SBmb3J0ZXMgZXZpZOpuY2lhcyBkZSBxdWUgYSB2YXJp4XZlbCDpIHVtYSBib2EgcHJlZGl0b3JhIG5vIG1vZGVsby4gVW0gcC12YWxvciBtYWlvciBxdWUgMCwwNSDpIGNvbnNpZGVyYWRvIGFsdG8gZSBpbmRpY2EgcXVlIHRhbHZleiBhIHZhcmnhdmVsIG7jbyBzZSBhZGVxdWUgYW8gbW9kZWxvLg0KDQpOZXNzZSBtb2RlbG8gYm9hIHBhcnRlIGRvcyBwLXZhbG9yZXMgZGFzIHZhcmnhdmVpcyBlc3ThIGFjaW1hIGRvIGxpbWl0ZSAoMCwwNSksIGlzc28gaW5kaWNhIHF1ZSB0YWx2ZXogc2VqYSBuZWNlc3PhcmlvIHJldGlyYXIgYWxndW1hcyB2YXJp4XZlaXMgcXVlIG7jbyBmYXplbSBzZW50aWRvIHBhcmEgbyBtb2RlbG8uDQoNClRhbWLpbSDpIGludGVyZXNzYW50ZSBvYnNlcnZhciBvIFKyLCBxdWUgbm8gY2FzbyDpIDAuNTEwMSBhIHByaW5j7XBpbyBwb2RlIHBhcmVjZXIgcG91Y28gKGV4cGxpY2FyaWEgY2VyY2EgZGUgNTElIGRvcyBkYWRvcyksIG1hcyBsZXZhbmRvIGVtIGNvbnNpZGVyYefjbyBhIGNvbXBsZXhpZGFkZSBkbyBtb2RlbG8gcHJvdmF2ZWxtZW50ZSBwb2RlcmVtb3MgYXNzdW1pciBxdWUg6SB1bSBib20gdmFsb3IuDQoNCk91IHNlamEgdW0gbW9kZWxvIGRlIHJlZ3Jlc3PjbyBt+mx0aXBsYSBjb20gdG9kYXMgYXMgdmFyaeF2ZWlzIHBvZGUgc2VyIGludGVyZXNzYW50ZSBwYXJhIGV4cGxpY2FyICBhIHZhcmlh5+NvIGVtIHkgKG76bWVybyBkZSB2b3RvcykuDQoNCiMjIzIuIFRvZGFzIGFzIHZhcmnhdmVpcyBz428g+nRlaXMgcGFyYSBvIG1vZGVsbyBkZSByZWdyZXNz428/IEjhIHZhcmnhdmVpcyByZWR1ZGFudGVzPyBKdXN0aWZpcXVlIHN1YSByZXNwb3N0YSBlbSBhbWJvcyBvcyBjYXNvcy4NCg0KYGBge3J9DQpyZWdzdWJzZXRzLm91dCA8LQ0KICAgIHJlZ3N1YnNldHModm90b3MgfiBzZXF1ZW5jaWFsX2NhbmRpZGF0byArIG51bWVyb19jYWRpZGF0byArIFVGICsgcGFydGlkbyANCiAgICAgICAgICArIHNldG9yX2Vjb25vbWljb19yZWNlaXRhICsgIHF1YW50aWRhZGVfZG9hY29lcysgcXVhbnRpZGFkZV9kb2Fkb3JlcyArIHRvdGFsX3JlY2VpdGEgKyBtZWRpYV9yZWNlaXRhIA0KICAgICAgICAgICsgcmVjdXJzb3NfZGVfb3V0cm9zX2NhbmRpZGF0b3MuY29taXRlcyArIHJlY3Vyc29zX2RlX3BhcnRpZG9zICsgcmVjdXJzb3NfZGVfcGVzc29hc19m7XNpY2FzDQogICAgICAgICAgKyByZWN1cnNvc19kZV9wZXNzb2FzX2p1cmlkaWNhcyArIHJlY3Vyc29zX3Byb3ByaW9zICsgcXVhbnRpZGFkZV9kZXNwZXNhcyANCiAgICAgICAgICArIHF1YW50aWRhZGVfZm9ybmVjZWRvcmVzICsgdG90YWxfZGVzcGVzYSArIG1lZGlhX2Rlc3Blc2EgKyBzZXRvcl9lY29ub21pY29fZGVzcGVzYSANCiAgICAgICAgICArIGlkYWRlICsgc2V4byArIGdyYXUgKyBlc3RhZG9fY2l2aWwsDQogICAgICAgICAgICBkYXRhID0gZWxlaWNvZXMyMDE0LA0KICAgICAgICAgICAgbmJlc3QgPSAxLCAgICAgICAjIDEg+m5pY28gbW9kZWxvIHBhcmEgY2FkYSBjb2p1bnRvIGRlIHByZWRpdG9yZXMNCiAgICAgICAgICAgIG52bWF4ID0gTlVMTCwgICAgIyBOVUxMIHBhcmEgbuNvIGhhdmVyIGxpbWl0ZSBubyBu+m1lcm8gZGUgdmFyaeF2ZWlzIHByZWRpdG9yYXMNCiAgICAgICAgICAgIGZvcmNlLmluID0gTlVMTCwgZm9yY2Uub3V0ID0gTlVMTCwNCiAgICAgICAgICAgIG1ldGhvZCA9ICJmb3J3YXJkIikNCg0Kc3VtbWFyeS5vdXQgPC0gc3VtbWFyeShyZWdzdWJzZXRzLm91dCkNCnN1bW1hcnkub3V0DQpgYGANCkFxdWkgdXNhcmVtb3Mgc2VsZefjbyBkZSB2YXJp4XZlaXMsIHF1ZSBiYXNpY2FtZW50ZSBzZXJpYSBpZGVudGlmaWNhciBxdWFpcyBkYXMgdmFyaeF2ZWlzIHPjbyByZWxldmFudGVzIGFvIG1vZGVsbyBlIHF1YWlzIG7jbyBz428sIG5lc3NlIGNhc28gZW0gZXNwZWPtZmljbyBpcmVpIHV0aWxpemFyIG8gYWxnb3LtdGltbyAiZm9yd2FyZCBzZWxlY3Rpb24iLg0KDQpgYGB7cn0NCndoaWNoLm1heChzdW1tYXJ5Lm91dCRhZGpyMikNCmBgYA0KRXNzYSBsaW5oYSBub3MgbW9zdHJhIHF1YWwgZG9zIG1vZGVsb3MgcG9zc3VpIG8gbWFpb3IgcrIgYWp1c3RhZG8uDQoNCg0KRSBsb2dvIGVtIHNlZ3VpZGEgcG9kZW1vcyB2ZXIgcXVhaXMgc+NvIGVzc2FzIHZhcmnhdmVpcy4NCmBgYHtyfQ0Kd2hpY2goc3VtbWFyeS5vdXQkd2hpY2hbNTUsXSkNCmBgYA0KQ29tIGVzc2EgaW5mb3JtYefjbyBwb2RlbW9zIGFmaXJtYXIgcXVlIG5lbSB0b2RhcyBhcyB2YXJp4XZlaXMgc+NvIPp0ZWlzIHBhcmEgbyBtb2RlbG8gZGUgcmVncmVzc+NvLg0KDQojIyMzLiBObyBjYXNvIGRlIGhhdmVyIHZhcmnhdmVpcyBwb3VjbyBleHBsaWNhdGl2YXMgZS9vdSByZWR1ZGFudGVzLCBjb25zdHJ1YSB1bSBub3ZvIG1vZGVsbyBzZW0gZXNzYXMgdmFyaeF2ZWlzIGUgbyBjb21wYXJlIGFvIG1vZGVsbyBjb20gdG9kYXMgYXMgdmFyaeF2ZWlzIChlLmcuIGVtIHRlcm1vcyBkZSBSMiBlIFJTRSkuDQoNClVzYW5kbyBhcGVuYXMgYXMgY29sdW5hcyD6dGVpcyBwb2RlcmVtb3MgbW9udGFyIHVtIG5vdm8gbW9kZWxvIG1haXMgZWZpY2llbnRlIHF1ZSBvIGFudGVyaW9yLg0KYGBge3J9DQplc3RhZG9zX3JlbGV2YW50ZXMgPC0gYygiQVAiLCJCQSIsICJDRSIsICJERiIsICJNQSIsIk1TIiwgIk1UIiwgIlBBIiwgIlBCIiwgIlBFIiwgIlBSIiwgIlJOIiwiUk8iLCAiUlIiLCJTQyIsIlRPIiwiVE8iKQ0KcGFydGlkb3NfcmVsZXZhbnRlcyA8LSBjKCJQRFQiLCAiUE1EQiIsICJQTU4iLCAiUFAiLCAiUFRQUiIsIlBSQiIsICJQU0MiLCAiUFNEIiwgIlBTREIiLCAiUFNPTCIpDQpncmF1X3JlbGV2YW50ZSA8LSBjKCJTVVBFUklPUiBJTkNPTVBMRVRPIiwgIlNVUEVSSU9SIENPTVBMRVRPIikNCnNleG9fcmVsZXZhbnRlIDwtIGMoIk1BU0NVTElOTyIpDQplc3RhZG9zX2NpdmlzX3JlbGV2YW50ZXMgPC0gYygiVknaVk8oQSkiKQ0Kc2V0b3Jlc19lY29ub21pY29zX2Rlc3Blc2FfcmVsZXZhbnRlcyA8LSBjKCJBZ2VuY2lhbWVudG8gZGUgZXNwYedvcyBwYXJhIHB1YmxpY2lkYWRlLCBleGNldG8gZW0gdmXtY3Vsb3MgZGUgY29tdW5pY2Hn428iLA0KICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIkFn6m5jaWFzIGRlIHB1YmxpY2lkYWRlIiwgIkNvbelyY2lvIHZhcmVqaXN0YSBkZSBtZXJjYWRvcmlhcyBlbSBnZXJhbCwgY29tIHByZWRvbWlu4m5jaWEgZGUgcHJvZHV0b3MgYWxpbWVudO1jaW9zIC0gc3VwZXJtZXJjYWRvcyIsIA0KICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIkNvbelyY2lvIHZhcmVqaXN0YSBlc3BlY2lhbGl6YWRvIGRlIHBl52FzIGUgYWNlc3PzcmlvcyBwYXJhIGFwYXJlbGhvcyBlbGV0cm9lbGV0cvRuaWNvcyBwYXJhIHVzbyBkb23pc3RpY28sIGV4Y2V0byBpbmZvcm3hdGljYSBlIGNvbXVuaWNh5+NvIiwgDQogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAiSW1wcmVzc+NvIGRlIGxpdnJvcywgcmV2aXN0YXMgZSBvdXRyYXMgcHVibGljYef1ZXMgcGVyafNkaWNhcyIsICJTZXJ2aedvcyBkZSBwcuktaW1wcmVzc+NvIikNCnNldG9yZXNfZWNvbm9taWNvc19yZWNlaXRhX3JlbGV2YW50ZXMgPC0gYygiQ29t6XJjaW8gYXRhY2FkaXN0YSBkZSBwcm9kdXRvcyBhbGltZW507WNpb3MgZW0gZ2VyYWwiLCAiRWRp5+NvIGludGVncmFkYSDgIGltcHJlc3PjbyBkZSBjYWRhc3Ryb3MsIGxpc3RhcyBlIG91dHJvcyBwcm9kdXRvcyBncuFmaWNvcyIsDQogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAiRmFicmljYefjbyBkZSDhZ3VhcyBlbnZhc2FkYXMiLCAiRmFicmljYefjbyBkZSBlcXVpcGFtZW50b3MgaGlkcuF1bGljb3MgZSBwbmV1beF0aWNvcywgcGXnYXMgZSBhY2Vzc/NyaW9zLCBleGNldG8gduFsdnVsYXMiLCANCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICJQbGFub3MgZGUgc2H6ZGUiLCAiVHJhbnNwb3J0ZSByb2RvdmnhcmlvIGRlIGNhcmdhLCBleGNldG8gcHJvZHV0b3MgcGVyaWdvc29zIGUgbXVkYW7nYXMsIG11bmljaXBhbCIpDQoNCmVsZWljb2VzMjAxNDIuYmVzdF9pbnB1dCA8LSBlbGVpY29lczIwMTQgJT4lDQogIG11dGF0ZSAoZXN0YWRvX3JlbGV2YW50ZSA9IGlmZWxzZShVRiAlaW4lIGVzdGFkb3NfcmVsZXZhbnRlcywgVFJVRSwgRkFMU0UpKSAlPiUNCiAgbXV0YXRlIChwYXJ0aWRvX3JlbGV2YW50ZSA9IGlmZWxzZShwYXJ0aWRvICVpbiUgcGFydGlkb3NfcmVsZXZhbnRlcywgVFJVRSwgRkFMU0UpKSAlPiUNCiAgbXV0YXRlIChncmF1X3JlbGV2YW50ZSA9IGlmZWxzZShncmF1ICVpbiUgZ3JhdV9yZWxldmFudGUsIFRSVUUsIEZBTFNFKSkgJT4lDQogIG11dGF0ZSAoc2V4b19yZWxldmFudGUgPSBpZmVsc2Uoc2V4byAlaW4lIHNleG9fcmVsZXZhbnRlLCBUUlVFLCBGQUxTRSkpICU+JQ0KICBtdXRhdGUgKHNldG9yX2Vjb25vbWljb19kZXNwZXNhX3JlbGV2YW50ZSA9IGlmZWxzZShzZXRvcl9lY29ub21pY29fZGVzcGVzYSAlaW4lIHNldG9yZXNfZWNvbm9taWNvc19kZXNwZXNhX3JlbGV2YW50ZXMsIFRSVUUsIEZBTFNFKSkgJT4lDQogIG11dGF0ZSAoc2V0b3JfZWNvbm9taWNvX3JlY2VpdGFfcmVsZXZhbnRlID0gaWZlbHNlKHNldG9yX2Vjb25vbWljb19yZWNlaXRhICVpbiUgc2V0b3Jlc19lY29ub21pY29zX3JlY2VpdGFfcmVsZXZhbnRlcywgVFJVRSwgRkFMU0UpKSAlPiUNCiAgbXV0YXRlIChlc3RhZG9fY2l2aWxfcmVsZXZhbnRlID0gaWZlbHNlKGVzdGFkb19jaXZpbCAlaW4lIGVzdGFkb3NfY2l2aXNfcmVsZXZhbnRlcywgVFJVRSwgRkFMU0UpKSAlPiUNCiAgc2VsZWN0KGVzdGFkb19yZWxldmFudGUsIHBhcnRpZG9fcmVsZXZhbnRlLGdyYXVfcmVsZXZhbnRlLHNleG9fcmVsZXZhbnRlLGVzdGFkb19jaXZpbF9yZWxldmFudGUsdm90b3MsIHF1YW50aWRhZGVfZG9hY29lcywgcXVhbnRpZGFkZV9kb2Fkb3JlcywgDQogIG1lZGlhX3JlY2VpdGEsIHF1YW50aWRhZGVfZGVzcGVzYXMsIHF1YW50aWRhZGVfZm9ybmVjZWRvcmVzLCB0b3RhbF9kZXNwZXNhLCBtZWRpYV9kZXNwZXNhKQ0KYGBgDQoNCmBgYHtyfQ0KZWxlaWNvZXMyMDE0Mi5iZXN0X2ZpdCA8LSBsbSh2b3RvcyB+IC4gLXZvdG9zLCBkYXRhPWVsZWljb2VzMjAxNDIuYmVzdF9pbnB1dCkNCnN1bW1hcnkoZWxlaWNvZXMyMDE0Mi5iZXN0X2ZpdCkNCmBgYA0KQ29tIHBvc3NlIGRlc3NlcyB2YWxvcmVzIHBvZGVtb3MgY29tcGFyYXIgb3MgZG9pcyBtb2RlbG9zLCBubyBwcmltZWlybyBvIHKyIGFqdXN0YWRvIOkgZGUgMC40ODI2IGrhIG5vIHNlZ3VuZG8g6SAwLjQ0NjIsIGUgbyBSU0Ugbm8gcHJpbWVpcm8g6SAzMjU3MCBubyBzZWd1bmRvIOkgMzM3MDAuDQoNCkEgcHJpbmPtcGlvIHBvZGUgcGFyZWNlciBxdWUgbyBwcmltZWlybyBtb2RlbG8g6SBtZWxob3IgcXVlIG8gc2VndW5kbywgauEgcXVlIGVsZSBleHBsaWNhcmlhIG1haXMgY2Fzb3MgKDQ4LDI2JSBjb250cmEgNDQsNjIlKSwgbWFzIGlzc28gdGFtYultIHNlIGRhIHBlbG8gZmF0byBxdWUgcXVhbmRvIHVtIG1vZGVsbyB0ZW0gbWFpcyB2YXJp4XZlaXMgZWxlIG5vcm1hbG1lbnRlIHZhaSBwb3NzdWkgdW0gcrIgbWFpb3IgcXVlIHVtIG1vZGVsbyBjb20gbWVub3MgdmFyaeF2ZWlzLCB0YW1i6W0gcG9kZW1vcyBub3RhciBxdWUgbWVzbW8gYXNzaW0gYSBkaWZlcmVu52EgZW50cmUgZWxlcyDpIHBlcXVlbmEgKH40JSkuDQoNCk5vIGNhc28gZG8gUlNFIHF1ZSBzZXJpYSBvIGVycm8gcGFkcuNvIGRvcyBkZXN2aW9zIG91IGVycm8gcGFkcuNvIGRhIHJlZ3Jlc3PjbywgbyBzZWd1bmRvIG1vZGVsbyBzZSBzYWl1IG1lbGhvciwgdGFtYultIOkgaW1wb3J0YW50ZSBsZXZhciBlbSBjb250YSBvIGdyYXUgZGUgbGliZXJkYWRlIGRlIGNhZGEgbW9kZWxvICgzOTMwIGNvbnRyYSA0MTM5KSwgbWFzIG5lc3NlIGNhc28gZWxlcyBhY2FiYXJhbSBmaWNhbmRvIHBy83hpbW9zLg0KDQpPdXRybyBwb250byBtdWl0byBpbXBvcnRhbnRlIHPjbyBvcyBwLXZhbG9yZXMgZGFzIHZhcmnhdmVpcywgcXVlIG5lc3NlIGNhc28gcHJhdGljYW1lbnRlIHRvZGFzIHNlIG1vc3RyYW0gbXVpdG8gcmVsYWNpb25hZGFzIGNvbSBhIHZhcmnhdmVsIHJlc3Bvc3RhLg0KDQojIyM0LiBBbmFsaXNlIHBsb3RzIGRlIHJlc+1kdW9zIGUgdmVyaWZpcXVlIHNlIGjhIHRlbmTqbmNpYXMgbm9zIGVycm9zLg0KDQpgYGB7cn0NCnJlc2lkdW9zIDwtIHJlc2lkdWFscyhlbGVpY29lczIwMTQyLmJlc3RfZml0KQ0KcHJlZGljYW8gPC0gcHJlZGljdChlbGVpY29lczIwMTQyLmJlc3RfZml0KQ0KDQpwbG90KHByZWRpY2FvLCByZXNpZHVvcykNCmBgYA0KQW5hbGlzYW5kbyBvcyBwbG90cyBkb3MgcmVz7WR1b3MgZGUgY2FkYSB2YXJp4XZlbCwgaWRlbnRpZmljYS1zZSBhbGVhdG9yaWVkYWRlIGVtIHRvZG9zIG9zIGdy4WZpY29zIGUgdW1hIHNpbWV0cmlhIGRvcyBwb250b3MgZW0gdG9ybm8gZG8gdmFsb3IgMCAoY29tIGFwZW5hcyB1bWEg+m5pY2EgZXhjZefjbykuIEVudONvLCBjb25jbHXtbW9zIHF1ZSBuZW5odW1hIHZhcmnhdmVsIHRlbmRlIGEgc3VwZXJlc3RpbWFyIG91IHN1YmVzdGltYXIgYSB2YXJp4XZlbCBkZSByZXNwb3N0YS4NCg0KIyMjNS4gUXVhaXMgdmFyaeF2ZWlzIGNvbnNlZ3VlbSBleHBsaWNhciBtZWxob3IgbyBu+m1lcm8gZGUgdm90b3M/IEp1c3RpZmlxdWUgc3VhIHJlc3Bvc3RhLg0KU3Vwb3N0YW1lbnRlIHBvZGVy7WFtb3MgdXNhciBvcyBwLXZhbG9yZXMgY29tbyBpbmRpY2F0aXZvIGRvIHF1YW50byBjYWRhIHZhcmnhdmVsIGVzdOEgcmVsYWNpb25hZGEgY29tIGEgdmFyaeF2ZWwgcmVzcG9zdGEsIGFzc2ltIGFzIG1lbGhvcmVzIHZhcmnhdmVpcyBzZXJpYW06DQptZWRpYV9yZWNlaXRhLCBxdWFudGlkYWRlX2Rlc3Blc2FzIGUgcXVhbnRpZGFkZV9mb3JuZWNlZG9yZXMsIG5hIHF1YWwgdG9kYXMgdGl2ZXJhbSBvIHAtdmFsb3IgZGUgMmUtMTYu