R Interativo — Ciclos de Edgeworth

R Interativo — Ciclos de Edgeworth no Mercado de Gasolina

Carregando WebR (~10s)...

Simulação de ciclos de preço — edite e execute R

# Ciclos de Edgeworth — Simulação (Adams 2025, Cap.7)
# Padrão "dente de serra" observado em mercados de gasolina

set.seed(123)
n_days <- 180         # dias simulados
n_firms <- 4          # postos competindo
cost <- 4.50          # custo por litro (R$)
coop_markup <- 0.80   # margem cooperativa
undercut <- 0.05      # corte de preço por rodada

# Simular ciclos: fase de subida (cooperação) + queda abrupta
prices <- numeric(n_days)
p <- cost + coop_markup
cycle_len <- sample(15:30, 1)  # duração aleatória do ciclo

for (t in 1:n_days) {
  if (cycle_len <= 0) {
    # Fase de undercut — preço desaba até o custo
    p <- cost + runif(1, 0.02, 0.10)
    cycle_len <- sample(15:30, 1)
  } else {
    # Fase cooperativa — preços sobem gradualmente
    p <- p + runif(1, -0.01, undercut)
    cycle_len <- cycle_len - 1
  }
  prices[t] <- p + rnorm(1, 0, 0.02)  # ruído
}

margins <- prices - cost
cat("=== Estatísticas ===\n")
cat("Margem média: R$", round(mean(margins), 3), "\n")
cat("Margem máxima: R$", round(max(margins), 3), "\n")
cat("Margem mínima: R$", round(min(margins), 3), "\n")
cat("Desvio-padrão: R$", round(sd(margins), 3), "\n")

# Gráfico: padrão dente de serra
par(mar = c(4, 4, 3, 1))
plot(1:n_days, margins, type = "l", col = "#C8102E", lwd = 1.5,
     xlab = "Dia", ylab = "Margem (R$/litro)",
     main = "Ciclos de Edgeworth — Simulação")
abline(h = 0, lty = 2, col = "gray")
abline(h = mean(margins), lty = 3, col = "#2a7f2a")
text(10, mean(margins) + 0.05, "Margem média",
     col = "#2a7f2a", cex = 0.8, adj = 0)

Saída do R

Aguardando execução...

Ciclos de Edgeworth: Preços sobem gradualmente (fase cooperativa/tácita) e depois desabam abruptamente quando uma firma "quebra" o conluio cortando preço. Wang (2009) documenta este padrão em Perth, Austrália. No Brasil, o CADE investiga padrões similares em cartéis de postos.