Se tiene la siguiente información relacionada a los datos de una empresa comercial:

Con la información indicada crear una lista que contenga toda la información de la empresa.
Desarrollamos las tablas para ejecutar los ejercicios de las listas:
Crearemos la tabla con sus PRODUCTOS, STOCK, PVP e IVA.
pro<-c("Televisor 32", "Televisor LED 55","Impresora Matricial","Parlantes","Impresora en inyeccion")
sto<-c(4,5,8,3,10)
pvp<-c(250,680,210,89,280)
iva<-c(T,T,F,F,T)
tit<-c("Producto", "Stock","PVP","IVA")

#LISTA
mat1<-cbind("PRODUCTO"=pro,"STOCK"=sto,"PVP"=pvp,"IVA"=iva)
mat1
##      PRODUCTO                 STOCK PVP   IVA    
## [1,] "Televisor 32"           "4"   "250" "TRUE" 
## [2,] "Televisor LED 55"       "5"   "680" "TRUE" 
## [3,] "Impresora Matricial"    "8"   "210" "FALSE"
## [4,] "Parlantes"              "3"   "89"  "FALSE"
## [5,] "Impresora en inyeccion" "10"  "280" "TRUE"
list2<-list(mat1)
list2
## [[1]]
##      PRODUCTO                 STOCK PVP   IVA    
## [1,] "Televisor 32"           "4"   "250" "TRUE" 
## [2,] "Televisor LED 55"       "5"   "680" "TRUE" 
## [3,] "Impresora Matricial"    "8"   "210" "FALSE"
## [4,] "Parlantes"              "3"   "89"  "FALSE"
## [5,] "Impresora en inyeccion" "10"  "280" "TRUE"
Lista de marcas:
mar<-c("Sony","logtech","Epson")
list2<-list(mat1,mar)
list2<-list("stock"=mat1,"Marcas"=mar)

list2
## $stock
##      PRODUCTO                 STOCK PVP   IVA    
## [1,] "Televisor 32"           "4"   "250" "TRUE" 
## [2,] "Televisor LED 55"       "5"   "680" "TRUE" 
## [3,] "Impresora Matricial"    "8"   "210" "FALSE"
## [4,] "Parlantes"              "3"   "89"  "FALSE"
## [5,] "Impresora en inyeccion" "10"  "280" "TRUE" 
## 
## $Marcas
## [1] "Sony"    "logtech" "Epson"
Ventas que se relizaron en los diferentes meses:
venta<-cbind("Mes"=c("Enero","Febro","Marzo","Abril","Mayo"),"Neta"= c(23600,12340,8900,5600,9600),"IVA"= c
             (1780,1350,970,450,990),"Total"=c(25380,13690,9870,6050,10590))
venta
##      Mes     Neta    IVA    Total  
## [1,] "Enero" "23600" "1780" "25380"
## [2,] "Febro" "12340" "1350" "13690"
## [3,] "Marzo" "8900"  "970"  "9870" 
## [4,] "Abril" "5600"  "450"  "6050" 
## [5,] "Mayo"  "9600"  "990"  "10590"
1.- Colocar nombres a cada unos de los objetos de la lista
lista<-list("LIsta DE PRODUCTOS CON SU STOCK Y PRECIO"=mat1,"MARCA DE PRODUCTOS CON LA QUE TRABAJA LA EMPRESA"=mar,
             "VENTAS POR MES DE LA EMPRESA"=venta)
lista
## $`LIsta DE PRODUCTOS CON SU STOCK Y PRECIO`
##      PRODUCTO                 STOCK PVP   IVA    
## [1,] "Televisor 32"           "4"   "250" "TRUE" 
## [2,] "Televisor LED 55"       "5"   "680" "TRUE" 
## [3,] "Impresora Matricial"    "8"   "210" "FALSE"
## [4,] "Parlantes"              "3"   "89"  "FALSE"
## [5,] "Impresora en inyeccion" "10"  "280" "TRUE" 
## 
## $`MARCA DE PRODUCTOS CON LA QUE TRABAJA LA EMPRESA`
## [1] "Sony"    "logtech" "Epson"  
## 
## $`VENTAS POR MES DE LA EMPRESA`
##      Mes     Neta    IVA    Total  
## [1,] "Enero" "23600" "1780" "25380"
## [2,] "Febro" "12340" "1350" "13690"
## [3,] "Marzo" "8900"  "970"  "9870" 
## [4,] "Abril" "5600"  "450"  "6050" 
## [5,] "Mayo"  "9600"  "990"  "10590"
2.- Escribir un comando que muestre el listado de las marcas con las que trabaja la empresa:
lista[2]
## $`MARCA DE PRODUCTOS CON LA QUE TRABAJA LA EMPRESA`
## [1] "Sony"    "logtech" "Epson"
3.- Escribir un comando que muestre los datos de las ventas de Abril de la empresa:
lista[[3]][4,4]
##  Total 
## "6050"
4.- A la lista anterior agregar la siguiente información de proveedores de la empresa:

infpro<-cbind("PROVEDORES"=c("Importadora del Austro","Comercializadora Del Sur","ABC & Asociados"),"CIUDAD"=c("Cuenca","Loja","Quto"),"Telefono"=c(22222,77777,888888))
infpro
##      PROVEDORES                 CIUDAD   Telefono
## [1,] "Importadora del Austro"   "Cuenca" "22222" 
## [2,] "Comercializadora Del Sur" "Loja"   "77777" 
## [3,] "ABC & Asociados"          "Quto"   "888888"
lista<-list("LIsta DE PRODUCTOS CON SU STOCK Y PRECIO"=mat1,"MARCA DE PRODUCTOS CON LA QUE TRABAJA LA EMPRESA"=mar,
            "VENTAS POR MES DE LA EMPRESA"=venta,
            "LISTA DE PROVEDORES"=infpro)
lista
## $`LIsta DE PRODUCTOS CON SU STOCK Y PRECIO`
##      PRODUCTO                 STOCK PVP   IVA    
## [1,] "Televisor 32"           "4"   "250" "TRUE" 
## [2,] "Televisor LED 55"       "5"   "680" "TRUE" 
## [3,] "Impresora Matricial"    "8"   "210" "FALSE"
## [4,] "Parlantes"              "3"   "89"  "FALSE"
## [5,] "Impresora en inyeccion" "10"  "280" "TRUE" 
## 
## $`MARCA DE PRODUCTOS CON LA QUE TRABAJA LA EMPRESA`
## [1] "Sony"    "logtech" "Epson"  
## 
## $`VENTAS POR MES DE LA EMPRESA`
##      Mes     Neta    IVA    Total  
## [1,] "Enero" "23600" "1780" "25380"
## [2,] "Febro" "12340" "1350" "13690"
## [3,] "Marzo" "8900"  "970"  "9870" 
## [4,] "Abril" "5600"  "450"  "6050" 
## [5,] "Mayo"  "9600"  "990"  "10590"
## 
## $`LISTA DE PROVEDORES`
##      PROVEDORES                 CIUDAD   Telefono
## [1,] "Importadora del Austro"   "Cuenca" "22222" 
## [2,] "Comercializadora Del Sur" "Loja"   "77777" 
## [3,] "ABC & Asociados"          "Quto"   "888888"
5.- Eliminar de la lista el objeto que contiene las marcas de los productos:
lista[["MARCA DE PRODUCTOS CON LA QUE TRABAJA LA EMPRESA"]]<-NULL
lista
## $`LIsta DE PRODUCTOS CON SU STOCK Y PRECIO`
##      PRODUCTO                 STOCK PVP   IVA    
## [1,] "Televisor 32"           "4"   "250" "TRUE" 
## [2,] "Televisor LED 55"       "5"   "680" "TRUE" 
## [3,] "Impresora Matricial"    "8"   "210" "FALSE"
## [4,] "Parlantes"              "3"   "89"  "FALSE"
## [5,] "Impresora en inyeccion" "10"  "280" "TRUE" 
## 
## $`VENTAS POR MES DE LA EMPRESA`
##      Mes     Neta    IVA    Total  
## [1,] "Enero" "23600" "1780" "25380"
## [2,] "Febro" "12340" "1350" "13690"
## [3,] "Marzo" "8900"  "970"  "9870" 
## [4,] "Abril" "5600"  "450"  "6050" 
## [5,] "Mayo"  "9600"  "990"  "10590"
## 
## $`LISTA DE PROVEDORES`
##      PROVEDORES                 CIUDAD   Telefono
## [1,] "Importadora del Austro"   "Cuenca" "22222" 
## [2,] "Comercializadora Del Sur" "Loja"   "77777" 
## [3,] "ABC & Asociados"          "Quto"   "888888"