Create inventario.R