##EJERCICIO 1

apple<- c(120, 125, 130)
google<-c(1800, 1850, 1900)
amazon<-c(3200, 3300, 3400)
 is.vector(apple)
## [1] TRUE

#Crear la lista

lista_acciones<-list("apple_acciones"= apple, "google_acciones"=google, "amazon_acciones"=amazon)
lista_acciones$apple_acciones[2]
## [1] 125

Añadiendo un nuevo elemento a la lista acciones

microsoft<-c(210, 215, 220)
lista_acciones<-list("apple_acciones"= apple, "google_acciones"=google, "amazon_acciones"=amazon, "microsoft_acciones"=microsoft)
lista_acciones$google_acciones[2]
## [1] 1850

##EJERCICIO 2 # a.Crear una lista llamada indicadores, mostrar el contenido de la lista

PIB<-30000
inflacion<-c(2.5, 3.0, 3.5)
desempleo<-matrix(c(5.0, 5.5, 6.0, 4.5, 4.0, 3.5), nrow = 2)
deuda<-list("publica"=60, "privada"=40)
indicadores<-list(PIB, inflacion, desempleo, deuda)
print(indicadores)
## [[1]]
## [1] 30000
## 
## [[2]]
## [1] 2.5 3.0 3.5
## 
## [[3]]
##      [,1] [,2] [,3]
## [1,]  5.0  6.0  4.0
## [2,]  5.5  4.5  3.5
## 
## [[4]]
## [[4]]$publica
## [1] 60
## 
## [[4]]$privada
## [1] 40

b Promedio de los elementos del tercer elemento de la lista

indicadores[[3]]
##      [,1] [,2] [,3]
## [1,]  5.0  6.0  4.0
## [2,]  5.5  4.5  3.5
promedio_desempleo<-mean(indicadores[[3]])

#c A través de los comandos apropiados, modifica el valor de deuda pública en 20% adicional al que ya tiene

indicadores[[4]]$publica<-indicadores[[4]]$publica+indicadores[[4]]$publica*(0.20)
print(indicadores)
## [[1]]
## [1] 30000
## 
## [[2]]
## [1] 2.5 3.0 3.5
## 
## [[3]]
##      [,1] [,2] [,3]
## [1,]  5.0  6.0  4.0
## [2,]  5.5  4.5  3.5
## 
## [[4]]
## [[4]]$publica
## [1] 72
## 
## [[4]]$privada
## [1] 40

Ejercicio 3

#a Crear lista llamada: estudiantes, nombre, edad y notas de 3 asignaturas

nombres<-c("Ana", "Luis", "Pedro")
edad<-c(18, 19, 20)
notas<-list(matematicas=c(8,7,9), historia=c(6,8,7), ingles=c(9,10,8))
estudiantes<-list("nombres"=nombres, "edad"=edad, "notas"=notas)
print(estudiantes)
## $nombres
## [1] "Ana"   "Luis"  "Pedro"
## 
## $edad
## [1] 18 19 20
## 
## $notas
## $notas$matematicas
## [1] 8 7 9
## 
## $notas$historia
## [1] 6 8 7
## 
## $notas$ingles
## [1]  9 10  8

b Modifica el nombre del primer estudiante por Elena

estudiantes$nombres[1]<-"Elena"
estudiantes$nombres[1]
## [1] "Elena"
print(estudiantes)
## $nombres
## [1] "Elena" "Luis"  "Pedro"
## 
## $edad
## [1] 18 19 20
## 
## $notas
## $notas$matematicas
## [1] 8 7 9
## 
## $notas$historia
## [1] 6 8 7
## 
## $notas$ingles
## [1]  9 10  8

c. Añadir un nuevo elemento a la lista de estudiantes, véctor género.

genero<-c("F","M","NB")
estudiantes<-list("nombres"=nombres, "edad"=edad, "notas"=notas, "genero"=genero)
print(estudiantes)
## $nombres
## [1] "Ana"   "Luis"  "Pedro"
## 
## $edad
## [1] 18 19 20
## 
## $notas
## $notas$matematicas
## [1] 8 7 9
## 
## $notas$historia
## [1] 6 8 7
## 
## $notas$ingles
## [1]  9 10  8
## 
## 
## $genero
## [1] "F"  "M"  "NB"

d Cambia la nota de ingles del 3er estudiante por un 9

estudiantes$notas$ingles[3]<-9
print(estudiantes$notas$ingles)
## [1]  9 10  9

##EJERCICIO 4 # a. (recrear el objeto de la imagen)

a21<-c(7,8,9)
a22<-c(10,11,12)
a11<-c(1,2,3)
a12<-c(4,5,6)
a1<-list("a11"=a11,"a12"=a12)
a2<-list("a21"=a21,"a22"=a22)
a<-list("a1"=a1,"a2"=a2)
b21<-c(19,20,21)
b22<-c(22,23,24)
b11<-c(13,14,15)
b12<-c(16,17,18)
b1<-list("b11"=b11,"b12"=b12)
b2<-list("b21"=b21,"b22"=b22)
b<-list("b1"=b1,"b2"=b2)

lista_4<-list("a"=a,"b"=b)

#b. Cambia el nombre de la lista “b1” a “sub_lista_b”

names(b)
## [1] "b1" "b2"
lista_4$b$b1
## $b11
## [1] 13 14 15
## 
## $b12
## [1] 16 17 18
names(lista_4[[2]])<-c("sub_lista_b", "b2")

#c. Eliminar el objeto “b22”

lista_4$b$b2$b22<-NULL
print(lista_4$b)
## $sub_lista_b
## $sub_lista_b$b11
## [1] 13 14 15
## 
## $sub_lista_b$b12
## [1] 16 17 18
## 
## 
## $b2
## $b2$b21
## [1] 19 20 21

#d. Agrega la lista “c” dentro de lista_4, c sera una lista c11, con una matriz de identidad de orden 3, c12 será con una matriz de caracteres cuadrada de orden 2, vacía

c11<-matrix(c(1,0,0,0,1,0,0,0,1), nrow = 3)
c12<-matrix(c("", "", "", ""), nrow = 2)
c<-list("c11"=c11, "c12"=c12)
lista_4<-list("a"=a,"b"=b, "c"=c)
print(lista_4)
## $a
## $a$a1
## $a$a1$a11
## [1] 1 2 3
## 
## $a$a1$a12
## [1] 4 5 6
## 
## 
## $a$a2
## $a$a2$a21
## [1] 7 8 9
## 
## $a$a2$a22
## [1] 10 11 12
## 
## 
## 
## $b
## $b$b1
## $b$b1$b11
## [1] 13 14 15
## 
## $b$b1$b12
## [1] 16 17 18
## 
## 
## $b$b2
## $b$b2$b21
## [1] 19 20 21
## 
## $b$b2$b22
## [1] 22 23 24
## 
## 
## 
## $c
## $c$c11
##      [,1] [,2] [,3]
## [1,]    1    0    0
## [2,]    0    1    0
## [3,]    0    0    1
## 
## $c$c12
##      [,1] [,2]
## [1,] ""   ""  
## [2,] ""   ""