UNIVERSIDAD CENTRAL DEL ECUADOR

FACULTAD DE CIENCIAS ECONOMICAS

CARRERA DE ESTADISTICA

PROGRAMACION

INTEGRANTES

COLABORADOR

LISTAS

#TALLER 7 ## LISTAS ##Con la información indicada crear una lista que contenga toda la información de la empresa. ~~~ 1.- Colocar nombres a cada unos de los objetos de la lista ~~~ #Listado de Productos con su stock y precios:

Producto | Stock | PVP | IVA |

#———————|——-|—–|——| # Televisor 32 | 4 | 250 | TRUE | # Televisor LED 55 | 5 | 680 | TRUE | # Impresora Matricial | 8 | 210 | FALSE| # Parlantes | 3 | 89 | FALSE| # Impresora Inyeccion | 10 | 280 | TRUE |

ListadoProductos <- data.frame(Producto=c("Televisor 32","Televisor LED 55","Impresora Matricial","Parlantes","Impresora Inyeccion"), 
                       Stock=c(4,5,8,3,10), PVP=c(250,680,210,89,280), IVA=c("TRUE","TRUE","FALSE","FALSE","TRUE"))
ListadoProductos
##              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 Inyeccion    10 280  TRUE
productos<-list(c("Televisor 32","Televisor LED 55","Impresora Matricial","Parlantes","Impresora Inyeccion"))
productos
## [[1]]
## [1] "Televisor 32"        "Televisor LED 55"    "Impresora Matricial"
## [4] "Parlantes"           "Impresora Inyeccion"

Marcas de Productos con los que trabaja la empresa:

Marcas |

#———| # Sony | # Logitech| # Epson |

MarcasProductos <- list(Marcas=c("Sony", "Logitech", "Epson"))
MarcasProductos
## $Marcas
## [1] "Sony"     "Logitech" "Epson"
nombres a cada unos de los objetos de la lista

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 | 6050 | # Mayo | 9600 | 990 | 10590|

VentasMes <- data.frame(Mes=c("Enero", "Febrero", "Marzo", "Abril", "Mayo"), 
                        Neto=c(23600,12340,8900,5600,9600), IVA=c(1780,1350,970,450,990), Total=c(25380,13690,9870,6050,10590))
VentasMes
##       Mes  Neto  IVA Total
## 1   Enero 23600 1780 25380
## 2 Febrero 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
print(MarcasProductos)
## $Marcas
## [1] "Sony"     "Logitech" "Epson"
3.- Escribir un comando que muestre los datos de las ventas de Abril de la empresa
print(VentasMes[[4]][4])
## [1] 6050
4.- A la lista anterior agregar la siguiente información de proveedores de la empresa:
ProveedoresP <- data.frame(Proveedor=c("Importadora del Austro", "Comercializadora del Sur", "ABC & Asociados"), 
                           Ciudad=c("Cuenca", "Loja", "Quito"), Telefono=c(2222222, 7777777, 8888888))
ProveedoresP
##                  Proveedor Ciudad 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
MarcasProductos[[1]]<- NULL
MarcasProductos 
## named list()