Ejercicio 1.

a) Creación de lista.

# Creacion de vectores 

V_Apple<-c(120, 125, 130)
V_Google<-c(1800, 1850, 1900)
V_Amazon<-c(3200, 3300, 3400)

# Creación de La lista a partir de los vectores

Acciones<-list(Apple=V_Apple,Google=V_Google,Amazon=V_Amazon)
Acciones
## $Apple
## [1] 120 125 130
## 
## $Google
## [1] 1800 1850 1900
## 
## $Amazon
## [1] 3200 3300 3400

b) Añadir elemento nuevo a la lista.

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

c) Extracción del segundo elemento del vector google.

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

Ejercicio 2.

a) Creación de Lista “Indicadores”

Indicadores<-list(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
## $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.

Promedio<-mean(Indicadores[[3]])
Promedio
## [1] 4.75

c) Modificación del valor de la deuda publica en un 20% adicional.

Deuda_publica<-Indicadores[[4]][[1]]*1.20
Indicadores[[4]][[1]]<-Deuda_publica
Indicadores[[4]][[1]]
## [1] 72

Ejercicio 3

a) Creación de lista “Estudiantes”

Estudiantes<-list(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
## $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]
## $nombre
## [1] "Elena" "Luis"  "Pedro"

c) Añade un nuevo elemento a la lista estudiantes “genero = c(”F”, “M”, “NB”)”

length(Estudiantes)<-4
Estudiantes[[4]]<-c("F", "M", "NB")
names(Estudiantes)[4]<-"genero"
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]
## $ingles
## [1]  9 10  9

Ejercicio 4

a) Crea el objeto “lista_4”

lista_a1<-list(a11=c(1,2,3),a12=c(4,5,6))
lista_a2<-list(a21=c(7,8,9),a22=c(10,11,12))
lista_b1<-list(b11=c(13,14,15),b12=c(16,17,18))
lista_b2<-list(b21=c(19,20,21),b22=c(22,23,24))
lista_4<-list(a=list(a1=lista_a1,a2=lista_a2),b=list(b1=lista_b1,b2=lista_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

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

names(lista_4[[2]])[[1]]<-"sub_lista_b"
names(lista_4[[2]])
## [1] "sub_lista_b" "b2"

c) Elimina el objeto “b22”

lista_4[[2]][[2]][[2]]<-NULL
lista_4[[2]][[2]]
## $b21
## [1] 19 20 21

d) Agrega la lista “c” dentro de lista_4.

c11<-diag(1,nrow = 3)
c12<-matrix(data = "", nrow = 2,ncol = 2)
length(lista_4)<-3
c<-list(c11=c11,c12=c12)
lista_4[[3]]<-c
names(lista_4)[[3]]<-"c"
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$sub_lista_b
## $b$sub_lista_b$b11
## [1] 13 14 15
## 
## $b$sub_lista_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) Captura de pantalla de esquema del ejercicio 4