Skip to content

Instantly share code, notes, and snippets.

@sientifiko
sientifiko / ineq inevitable.R
Last active June 21, 2021 21:17
Script permite modelar desigualdad "natural"
library(tidyverse)
library(ineq)
options(scipen = 999)
theme_set(theme_classic())
base <- rep(1000, 1000)
lista <- list()
library(tidyverse)
library(patchwork)
theme_set(theme_classic())
paises <- c("Argentina", "Bolivia", "Brasil", "Chile", "Colombia",
"Costa Rica", "Cuba", "Ecuador", "El Salvador", "Guatemala", "Honduras",
"México", "Nicaragua", "Panamá", "Paraguay", "Perú", "Rep Dominicana",
"Uruguay", "Venezuela")