Ejercicio 1

a)

Crea una lista llamada acciones que contenga la siguiente información en vectores: apple : 120, 125, 130; google: 1800,1850, 1900 y amazon = 3200, 3300, 3400. Estos vectores representan los precios de cierre de las acciones de estas empresas en tres días consecutivos. Asigna nombres a los elementos de la lista según el nombre de la empresa.

#Se crean los vectores:

vector_Apple<-c(120,125,130)
vector_Google<-c(1800,1850,1900)
vector_Amazon<-c(3200,3300,3400)

#Se crea la lista:

Acciones<-list(Apple=vector_Apple,Google=vector_Google,Amazon=vector_Amazon)
print(Acciones)
## $Apple
## [1] 120 125 130
## 
## $Google
## [1] 1800 1850 1900
## 
## $Amazon
## [1] 3200 3300 3400

b)

Añade un nuevo elemento a la lista acciones que sea un vector con los precios de cierre de las acciones de Microsoft en los mismos tres días: Microsoft: 210, 215, 220.

#Se crea el vector:

vector_Microsoft<-c(210,215,220)

#Se actualiza la lista
length(Acciones)
## [1] 3
length(Acciones)<-4
Acciones[[4]]<-vector_Microsoft
names(Acciones)<-c("Apple","Google","Amazon","Microsoft")
print(Acciones)
## $Apple
## [1] 120 125 130
## 
## $Google
## [1] 1800 1850 1900
## 
## $Amazon
## [1] 3200 3300 3400
## 
## $Microsoft
## [1] 210 215 220

c)

Extrae el segundo elemento del vector google que está dentro de la lista acciones

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

Ejercicio 2

a)

Crea una nueva lista llamada indicadores que contenga los siguientes objetos: 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) y deuda = list(publica = 60, privada = 40). Estos objetos representan el producto interno bruto (PIB), la inflación, el desempleo y la deuda de un país en millones de dólares. Muestra el contenido de la lista.

#Se crean los objetos:

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)

#Se crea la lista:

Indicadores<-list(PIB=pib,Inflacion=inflacion,Desempleo=desempleo,Deuda=deuda)
print(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)

Calcula el promedio de los elementos del tercer elemento de la lista indicadores

mean(Indicadores[[3]])
## [1] 4.75

c)

A través de los comandos apropiados modifica el valor de la deuda publica en un 20% adicional al que ya tiene.

Indicadores[[4]][[1]]<-Indicadores[[4]][[1]]*1.2
Indicadores[[4]][[1]]
## [1] 72

Ejercicio 3

a)

Crea una lista llamada estudiantes que contenga los siguientes objetos: nombre = c(“Ana”,“Luis”, “Pedro”), edad = c(18, 19, 20) y notas = list(matematicas = c(8, 7, 9), historia = c(6, 8,7), ingles = c(9, 10, 8)). Estos objetos representan el nombre, la edad y las notas de tres estudiantes en tres asignaturas.

#Se crean los objetos:

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))

#Se crea la lista
estudiantes<-list(Nombre=nombre,Edad=edad,Notas=notas)
print(estudiantes)
## $Nombre
## [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[[1]][[1]]<-"Elena"
estudiantes[[1]]
## [1] "Elena" "Luis"  "Pedro"

c)

Añade un nuevo elemento a la lista estudiantes que sea un vector con los géneros de los estudiantes: genero = c(“F”, “M”, “NB”)

#Se crea el vector:

genero<-c("F","M","NB")

#Se actualiza la lista
length(estudiantes)
## [1] 3
length(estudiantes)<-4
estudiantes[[4]]<-genero
names(estudiantes)<-c("Nombre","Edad","Notas","Genero")
print(estudiantes)
## $Nombre
## [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
## 
## 
## $Genero
## [1] "F"  "M"  "NB"

d)

Cambia la nota de inglés del tercer estudiante por un 9.

estudiantes[[3]][[3]][[3]]<-9
estudiantes[[3]][[3]]
## [1]  9 10  9

Ejercicio 4

a)

Crea el objeto lista_4, a partir de la imagen

#Se crean los objetos:

vector_a11<-c(1,2,3)
vector_a12<-c(4,5,6)
vector_a21<-c(7,8,9)
vector_a22<-c(10,11,12)
vector_b11<-c(13,14,15)
vector_b12<-c(16,17,18)
vector_b21<-c(19,20,21)
vector_b22<-c(22,23,24)

#Se crean las listas:

a1<-list(a11=vector_a11,a12=vector_a12)
a2<-list(a21=vector_a21,a22=vector_a22)
b1<-list(b11=vector_b11,b12=vector_b12)
b2<-list(b21=vector_b21,b22=vector_b22)

a<-list(a1=a1,a2=a2)
b<-list(b1=b1,b2=b2)

#Se crea la lista_4:

lista_4<-list(a=a,b=b)
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

b)

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

names(lista_4[["b"]])<-c("sublista_b","b2")
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$sublista_b
## $b$sublista_b$b11
## [1] 13 14 15
## 
## $b$sublista_b$b12
## [1] 16 17 18
## 
## 
## $b$b2
## $b$b2$b21
## [1] 19 20 21
## 
## $b$b2$b22
## [1] 22 23 24

c)

Elimina el objeto “b22”

lista_4[[2]][[2]][[2]]<-NULL
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$sublista_b
## $b$sublista_b$b11
## [1] 13 14 15
## 
## $b$sublista_b$b12
## [1] 16 17 18
## 
## 
## $b$b2
## $b$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.

#Se crean los objetos:

matriz_c11<-diag(x=1,3,3)
matriz_c12<-matrix(c(" "," "," "," "), nrow = 2)

#Se crea la lista c:

c<-list(c11=matriz_c11,c12=matriz_c12)

#Se actualiza la lista_4
length(lista_4)
## [1] 2
length(lista_4)<-3
lista_4[[3]]<-c
names(lista_4)<-c("a","b","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$sublista_b
## $b$sublista_b$b11
## [1] 13 14 15
## 
## $b$sublista_b$b12
## [1] 16 17 18
## 
## 
## $b$b2
## $b$b2$b21
## [1] 19 20 21
## 
## 
## 
## $c
## $c$c11
##      [,1] [,2] [,3]
## [1,]    1    0    0
## [2,]    0    1    0
## [3,]    0    0    1
## 
## $c$c12
##      [,1] [,2]
## [1,] " "  " " 
## [2,] " "  " "

e)

Muestra la captura de pantalla de tu sesión mostrando un esquema como el que aparece en el literal a) de este ejercicio

Captura lista
Captura lista