Ejercicio 1

crea una lista llamada acciones que contenga la siguiente informacion 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 dias consecutivos. Asigna nombres a los elementos de la lista segun el nombre de la empresa.

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

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

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 dias: 210, 215, 220.

microsoft<-c(210, 215, 220)
length(acciones)<-4
names(acciones)[4]<- "microsoft"
acciones[[4]]<-microsoft
acciones

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

Extrae el segundo elemento del vector google que esta dentro de la lista de acciones.

acciones[[2]][[2]]

## [1] 1850

Ejercicio 2

Crea una nueva lista llamada indicadores que contenga los siguientes objetos: pib= 30000, inflacion= c(2.5,3.0,3.5), desempleo= matrix(e(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 inflacion, desempleo y la deuda de un pais en millones de dolares.Muestra el contenido de la lista.

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))
print(indicadores)

## $pib
## [1] 30000
## 
## $inflacion
## [1] 2.5 3.0 3.0 5.0
## 
## $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

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

mean(indicadores[[3]])

## [1] 4.75

A traves 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.20
indicadores

## $pib
## [1] 30000
## 
## $inflacion
## [1] 2.5 3.0 3.0 5.0
## 
## $desempleo
##      [,1] [,2] [,3]
## [1,]  5.0  6.0  4.0
## [2,]  5.5  4.5  3.5
## 
## $deuda
## $deuda$publica
## [1] 72
## 
## $deuda$privada
## [1] 40

Ejercicio 3

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), ingles= c(9,10,8)). Estos objetos representan el nombre, la edad, y las notas de tres estudiantes en tres asignaturas.

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

Modifica el nombre del primer estudiante por Elena

estudiantes[[1]][1]<- "Elena"
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

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

genero = c("F", "M", "NB")
length(estudiantes)<-4
names(estudiantes)[4]<- "generos"
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
## 
## 
## $generos
## [1] "F"  "M"  "NB"

Cambia la nota de ingles del tercer estudiante por un 9

estudiantes[[3]][[3]][3]<-9
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  9
## 
## 
## $generos
## [1] "F"  "M"  "NB"

Ejercicio 4

Crea el objeto lista_4 a partir de la imagen proporcionada en las indicaciones.

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

lista_4 <- list( a <-list(
                  ( a1 <-list(a11=a11, a12=a12)),
                    a2 <-list(a21=a21, a22=a22)), 
                 b <-list(
                  ( b1 <-list(b11=b11, b12=b12)),
                    b2 <-list(b21=b21, b22=b22))
                )
names(lista_4[[1]])[1]<-"a1"
names(lista_4[[1]])[2]<-"a2"
names(lista_4)[1]<-"a"

names(lista_4[[2]])[1]<-"b1"
names(lista_4[[2]])[2]<-"b2"
names(lista_4)[2]<-"b"

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

Elimina el objeto “b22”

lista_4[[2]][[2]]<-list("b21" = b12)
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] 16 17 18

Agrega la lista “c” dentro de lista_4, y agregala 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 vacia.

length(lista_4)<-3
c11<-matrix(data = c(1,0,0,0,1,0,0,0,1), nrow = 3, ncol = 3, byrow = TRUE)
c12<-matrix(data = "", nrow = 2, ncol = 2)

lista_4[[3]]<-list(c1<-list(c11=c11, c12=c12))

names(lista_4)[3]<- "c"
names(lista_4[[3]])<- "c1"

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] 16 17 18
## 
## 
## 
## $c
## $c$c1
## $c$c1$c11
##      [,1] [,2] [,3]
## [1,]    1    0    0
## [2,]    0    1    0
## [3,]    0    0    1
## 
## $c$c1$c12
##      [,1] [,2]
## [1,] ""   ""  
## [2,] ""   ""

```

Manejo de estructuras de datos basicos en R

Sara Yamileth Castro Argueta CA21011

2024-08-28

Ejercicio 1

Ejercicio 2

Ejercicio 3

Ejercicio 4