setwd("C:/Dados/BOVESPA")
getwd()
require("openxlsx")
dadosbov <- read.xlsx ("BOVESPA.xlsx") # Importando os dados.
dadosbov <- na.omit(dadosbov) # Omitindo NA's.
dadosbov <- as.data.frame(dadosbov)
attach(dadosbov)
View(dadosbov)

reg1 = glm(ROIC.MEDIANA ~ ECV + MARGEM.EBIT + GIRO.ATIVO +
ALAVANCAGEM.FINANCEIRA + CICLO.FINANCEIRO + CICLO.OPERACIONAL + HHIE + HHIS
+ CRISE, family=binomial(link="logit"), data=dadosbov)

require("logistf")
reg2 = logistf(ROIC.MEDIANA ~ ECV + MARGEM.EBIT + GIRO.ATIVO +
ALAVANCAGEM.FINANCEIRA + CICLO.FINANCEIRO + CICLO.OPERACIONAL + HHIE + HHIS
+ CRISE, data=dadosbov)

require("brglm")
reg3 = brglm(ROIC.MEDIANA ~ ECV + MARGEM.EBIT + GIRO.ATIVO +
ALAVANCAGEM.FINANCEIRA + CICLO.FINANCEIRO + CICLO.OPERACIONAL + HHIE + HHIS
+ CRISE, family = binomial(logit), data=dadosbov, method = "brglm.fit")