Colaborador: Ing. Francisco Valverde P.hD en informática 
Se tiene la siguiente información relacionada a los datos de una empresa comercial:

Listado de productos con su stock y precios:

Producto Stock PVP IVA
Televisor 32 4 250 TRUE
Televisor LED 55 8 680 TRUE
Impresora Matricial 5 210 FALSE
Parlantes 3 89 FALSE
Impresora Inyeccion 10 280 TRUE

Marcas de productos con los que trabaja la empresa:

Marcas
Sony
Logitech
Epson

Ventas por mes de la empresa:

Mes Neto IVA Total
Enero 23600 1780 25380
Febrero 12340 1350 13690
Marzo 8900 970 9870
Abril 5600 450 650
Mayo 9600 990 10590 
Con la información indicada crear una lista que contenga toda la información de la empresa.
Producto<-c("Televisor 32","televisor Led 55","Impresora matricial","Parlantes","Impresora inyección")
Stock<-c(4,5,8,3,10)
PVP<-c(250,680,210,89,280)
IVA<-c(TRUE,TRUE,FALSE,FALSE,TRUE)


Productos<-data.frame(Producto,Stock,PVP,IVA)
colnames(Productos)<-(c("Producto","Stock","PVP","IVA"))
Productos
##              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 inyección    10 280  TRUE

Marcas Productos que trabaja la empresa

Marcas<-c("Sony","Logutech","Epson")
Marcas
## [1] "Sony"     "Logutech" "Epson"

Ventas por mes

Mes<-c("Enero","Febrero","Marzo","Abril","Mayo")
Neto<-c(23600,12340,8900,5600,9600)
IVA2<-c(1780,1350,970,450,990)
Total<-c(2538,13690,9870,6050,10590)
Ventas<-data.frame(Mes,Neto,IVA2,Total)
colnames(Ventas)<-c("Mes","Neto","IVA","Total")
Ventas
##       Mes  Neto  IVA Total
## 1   Enero 23600 1780  2538
## 2 Febrero 12340 1350 13690
## 3   Marzo  8900  970  9870
## 4   Abril  5600  450  6050
## 5    Mayo  9600  990 10590

Lista con los data.frame ya creados

EmpresaComercial<-list(Productos,Marcas,Ventas)

1. Colocar nombres a cada uno de los objetos de la lista

names(EmpresaComercial)<-c("Listado de productos con su stock y Precio",
                     "Marcas de Productos con los que trabaja la empresa ",
                     "Ventas por mes de la empresa")

2. Escribir un comando que muestre solo las marcas que trabaja la empresa

EmpresaComercial[[2]]
## [1] "Sony"     "Logutech" "Epson"

3. Escribir un comando que muestre las ventas de abril de la empresa 

EmpresaComercial[[3]][4,4]
## [1] 6050

Todo el mes de abril

EmpresaComercial[[3]][4,]
##     Mes Neto IVA Total
## 4 Abril 5600 450  6050

4. A la lista anterior agregar la siguiente informacón de Proveedor de la empresa 

Proveedor<-c("Importadora del Austro","Comercializadora del Sur","ABC $ Asociados")
Cuidad<-c("Cuenca","Loja","Quito")
Telefono<-c(2222222,7777777,8888888)

Proveedores<-data.frame(Proveedor,Cuidad,Telefono)
EmpresaComercial$Proveedores<-Proveedores
EmpresaComercial
## $`Listado 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 inyección    10 280  TRUE
## 
## $`Marcas de Productos con los que trabaja la empresa `
## [1] "Sony"     "Logutech" "Epson"   
## 
## $`Ventas por mes de la empresa`
##       Mes  Neto  IVA Total
## 1   Enero 23600 1780  2538
## 2 Febrero 12340 1350 13690
## 3   Marzo  8900  970  9870
## 4   Abril  5600  450  6050
## 5    Mayo  9600  990 10590
## 
## $Proveedores
##                  Proveedor Cuidad Telefono
## 1   Importadora del Austro Cuenca  2222222
## 2 Comercializadora del Sur   Loja  7777777
## 3          ABC $ Asociados  Quito  8888888

5. Eliminar de la lista el objeto que contiene las marcas de los productos 

EmpresaComercial$`Marcas de Productos con los que trabaja la empresa `<-NULL