Ejercicio 1

a)

Apple <- c(120, 125, 130)
Google <- c(1800, 1850, 1900)
amazon <- c(3200, 3300, 3400)

Acciones <-list(objeto_1=Apple, objeto_2=Google, objeto_3=amazon)
Acciones
## $objeto_1
## [1] 120 125 130
## 
## $objeto_2
## [1] 1800 1850 1900
## 
## $objeto_3
## [1] 3200 3300 3400

b)

Microsoft <- c(210, 215, 220)
Acciones <- list(objeto_1=Apple, objeto_2=Google, objeto_3=amazon, objeto_4=Microsoft)
Acciones
## $objeto_1
## [1] 120 125 130
## 
## $objeto_2
## [1] 1800 1850 1900
## 
## $objeto_3
## [1] 3200 3300 3400
## 
## $objeto_4
## [1] 210 215 220

c)

Acciones[[2]][2]
## [1] 1850

Ejercicio 2

a) Creación lista Indicadores

pib <- c(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=pib, inflacion=inflacion, desempleo=desempleo, deuda=deuda)
Indicadores
## $pib
## [1] 30000
## 
## $inflacion
## [1] 2.5 3.0 3.5
## 
## $desempleo
##      [,1] [,2] [,3]
## [1,]  5.0  6.0  4.0
## [2,]  5.5  4.5  3.5
## 
## $deuda
## $deuda$publica
## [1] 60
## 
## $deuda$privada
## [1] 40

b) promedio de los elementos del tercer elemento de la lista indicadores

Indicadores [3]
## $desempleo
##      [,1] [,2] [,3]
## [1,]  5.0  6.0  4.0
## [2,]  5.5  4.5  3.5
promedio_deuda <- mean(Indicadores$desempleo)
promedio_deuda
## [1] 4.75

c) modificar el valor de la deuda publica en un 20%

deuda$publica
## [1] 60
e<- deuda$publica*0.20
e
## [1] 12
deuda[1] <- sum(e,deuda$publica)
deuda
## $publica
## [1] 72
## 
## $privada
## [1] 40

Ejercicio 3

a) Creación lista Estudiantes

nombre <- 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(nombre=nombre, edad=edad, notas=notas, historia=historia, ingles=ingles)
Estudiantes
## $nombre
## [1] "Ana"   "Luis"  "Pedro"
## 
## $edad
## [1] 18 19 20
## 
## $notas
## $notas$matematicas
## [1] 8 7 9
## 
## 
## $historia
## [1] 6 8 7
## 
## $ingles
## [1]  9 10  8

b) Modificar el nombre del primer estudiante por “Elena”.

nombre[1]
## [1] "Ana"
nombre[1] <- "Elena"
nombre
## [1] "Elena" "Luis"  "Pedro"

c) Nuevo elemento a agregar

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

d) nota de inglés del tercer estudiante por un 9

ingles[3]
## [1] 8
ingles[3]<- 9
ingles
## [1]  9 10  9

Ejercicio 4

a) Crea el objeto lista_4

l_a1 <- list(a11=c(1,2,3), a12=c(4,5,6))
l_a2 <- list(a21=c(7,8,9), a22=c(10,11,12))

l_b1 <- list(b11=c(13,14,15), b12=c(16,17,18))
l_b2 <- list(b21=c(19,20,21), b22=c(22,23,24))


lista_4 <- list( a=list(a1=l_a1 , a2=l_a2), 
                 b= list(b1=l_b1, b2=l_b2) )
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

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

l_b1 <- "sub_lista_b"
l_b1
## [1] "sub_lista_b"

c) Elimina el objeto “b22”

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

d) Agrega la lista “c” dentro de lista_4, y agrégale a la lista “c” los elementos “c11”, con una matriz identidad de orden 3 y “c12” con una matriz de caracteres cuadrada de orden 2 vacía.

l_c <- list(c11= m.i <- matrix(0, nrow=3, ncol=3) ,
            c12= m.c <- matrix(data = "", nrow = 2, ncol = 2 )  )
l_c
## $c11
##      [,1] [,2] [,3]
## [1,]    0    0    0
## [2,]    0    0    0
## [3,]    0    0    0
## 
## $c12
##      [,1] [,2]
## [1,] ""   ""  
## [2,] ""   ""
m.i[1,1]<- 1
m.i[2,2]<- 1
m.i[3,3]<-1
m.i
##      [,1] [,2] [,3]
## [1,]    1    0    0
## [2,]    0    1    0
## [3,]    0    0    1