title: “tarea_3_am20071” author: “Meybelin Nallely Alemán Menjívar” date: “2023-09-09” output: html_document

Ejercicio 1

Literal A

Acciones<-list(apple=c(120, 125, 130), google=c(1800, 1850, 1900), amazon=c(3200, 3300,3400))
Acciones

## $apple
## [1] 120 125 130
## 
## $google
## [1] 1800 1850 1900
## 
## $amazon
## [1] 3200 3300 3400

Literal B

microsoft<-c(210, 215,220)
Acciones$microsoft<- microsoft

Acciones

## $apple
## [1] 120 125 130
## 
## $google
## [1] 1800 1850 1900
## 
## $amazon
## [1] 3200 3300 3400
## 
## $microsoft
## [1] 210 215 220

Lireral C

Acciones[[2]][[2]]

## [1] 1850

Ejercicio 2

Literal A

Indicadores<-list(pib=30000,inflacion=c(2.5, 3.0, 3.5), desempleo=matrix(data = c(5.0, 5.5, 6.0, 4.5, 4.0, 3.5),nrow = 2, ncol = 3),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

Literal B

Vector_desempleo<-as.vector(Indicadores$desempleo)
promedio_desempleo<-mean(Vector_desempleo)

print(promedio_desempleo)

## [1] 4.75

Literal C

Indicadores[[4]][[1]]

## [1] 60

Valor<-Indicadores[[4]][[1]]
Porcentaje<-20/100

Resultado<-(Valor*Porcentaje)+Valor

Indicadores[[4]][[1]]<-Resultado
Indicadores[[4]][[1]]

## [1] 72

Ejercicio 3

Literal A

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

Literal B

Estudiantes[[1]][[1]]<-"Elena"
Estudiantes[[1]]

## [1] "Elena" "Luis"  "Pedro"

Liretal C

genero=c("F","M","NB")
Estudiantes$genero<-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"

Literal D

Estudiantes[[3]][[3]][[3]]<-9
Estudiantes[[3]][[3]]

## [1]  9 10  9

Ejercicio 4

Literal A

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

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

Literal B

names(Lista_4[[2]])[[1]]<-"sub_lista_b"
Lista_4[[2]]

## $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
## 
## $b2$b22
## [1] 22 23 24

Literal C

Lista_4[[2]][[2]][[2]]<-NULL

Lista_4[[2]][[2]]

## $b21
## [1] 19 20 21

Literal D

length(Lista_4)<-3
names(Lista_4)[3]<-"c"
Lista_4[[3]]<-list(c11=diag(3),c12=matrix(data="",nrow=2,ncol=2))
Lista_4[[3]]

## $c11
##      [,1] [,2] [,3]
## [1,]    1    0    0
## [2,]    0    1    0
## [3,]    0    0    1
## 
## $c12
##      [,1] [,2]
## [1,] ""   ""  
## [2,] ""   ""