Aprende a programar en R desde 0 | Estructuras de Datos: Arrays y Series de Tiempo | Clase 3 Y 4

CÓDIGO EN R DE LOS VIDEOS

###

### ARRAYS

#son vectores con un atributo de dimensión que especifica más de dos
#dimensiones.Un vector es un array unidimensional y una matriz es un array de dos
#matriz dimensional

x <- 1:8
dim(x) <- c(2, 2, 2)

#c(fila,columa,subdivision)
x

x <- 1:9
x
dim(x)<- c(3,3,1)
x
dim(x)<- c(3,1,3)
x

nuevo_array <- array(c(1:8, 11:18, 111:118), dim = c(2, 4, 3))
nuevo_array

nuevo<- array(c(2,10,11,1,2,3,5,8,45),dim = c(1, 3, 3))
nuevo

# LISTAS

#Una lista es un vector. Sin embargo, el contenido de una lista puede ser un
#objeto de cualquier tipo Y estructura. Así que una lista podría contener otra
#lista

# crear listas = función list

x1 <- 1:5
x1
x2 <- c(TRUE, TRUE, FALSE, FALSE, TRUE)
x2

myList <- list(numbers = x1, wrong = x2)
myList

myList[[1]]
myList[[2]]

#???se pueden cambiar el nombre de la lista con names

names(myList) <- c(«lots», «valid»)
myList

#Añadir componente a la lista

myList[[3]] <- 1:50
myList$test <- «hello»

myList

#la diferencia entre poner [1] o [[2]]

myList[1]

myList[[1]]

#Tenga en cuenta que cuando se utilizan corchetes simples, se devuelve el componente
#como lista porque extrae el primer elemento de una lista que es una lista,
#mientras que los corchetes dobles devuelven el componente mismo del elemento

#Trasofrmar objetos en list con as.List

x<- c(2,7,9,4)
x
list_x<-as.list(x)
list_x

# LISTAs vamos a encontra en una gran cantidad de modelos y organizaciones de datos
#Ejemplo modelo de regresion

Ahorro <- c(61,68.6,63.6,89.6, 97.6,104.4,96.4,92.5,112.6,130.1,161.8,199.1,205.5,
167,235.7,206.2,196.5,168.4,189.1,187.8,208.7,246.4,272.6,214.4,189.4,249.3)

Ingreso <- c( 727.1,790.2,855.3,965, 1054.2,1159.2,1273,1401.4,1580.1,1769.5,1973.3,2200.2,2347.3,
2522.4,2810,3002,3187.6,3363.1,3640.8,3894.5,4166.8,4343.7,4613.7,4790.2,
5021.7,5320.8)

plot(Ahorro,type=»l»)
plot(Ingreso,type=»l»)

s <- as.Date(«1970-12-31»)
e <- as.Date(«1995-12-31»)

seq(from=s, to=e, by=»year»)

Año <- seq(from=s, to=e, by=»year»)

tabla_ahorro_ingres <- data.frame(Año,Ahorro,Ingreso)

# CREAMOS UN MODELO DE REGRESIÓN

ML_1 <- lm(tabla_ahorro_ingres$Ahorro~tabla_ahorro_ingres$Ingreso)
summary(ML_1)

ML_1[[1]]
ML_1[[2]]