Skip to content

MATRICES

v1 <- 1:4
v2 <- 7:10
v3 <- 13:16
v4 <- 6:9


v5 <- c(2,4)
rows <- c("r1" ,"r2", "r3", "r4")
columns <- c("c1", "c2", "c3", "c4")
vec_matrix <- matrix(c(v1, v2, v3, v4), nrow = 4, byrow = FALSE, dimnames = list(rows,columns))
cbind(vec_matrix, v5)

vec_matrix
multiplication <- vec_matrix*5
multiplication

#Se puede utilizar el nombre de la fila o columna para poder extraer la información

v1 <- 1:4
v2 <- 7:10
v3 <- 13:16
v4 <- 6:9


v5 <- c(2,4)
rows <- c("r1" ,"r2", "r3", "r4")
columns <- c("c1", "c2", "c3", "c4")
vec_matrix <- matrix(c(v1, v2, v3, v4), nrow = 4, byrow = FALSE, dimnames = list(rows,columns))
vector_resultante <- vec_matrix[1:3,"c1"]
vector_resultante

#Recordatorio de que cuando pides elementos de una matriz sin importar si son filas y columnas regresa un vector de datos

FACTORES

# Code to build factor_survey_vector
survey_vector <- c("B", "C", "A", "F", "M")
factor_survey_vector <- factor(survey_vector)
factor_survey_vector
# Specify the levels of factor_survey_vector
levels(factor_survey_vector) <- c(6,8,3,9,1)

factor_survey_vector
# Create speed_vector
speed_vector <- c("medium", "slow", "slow", "medium", "fast")

# Convert speed_vector to ordered factor vector
factor_speed_vector <-factor(speed_vector, ordered = FALSE,
                                levels = c("slow", "medium", "fast"))

# Print factor_speed_vector
factor_speed_vector
summary(factor_speed_vector)

DATAFRAMES

mtcars
summary(mtcars)
str(mtcars)
v1 <- 1:4
v2 <- 7:10
v3 <- 13:16
v4 <- 6:9


v5 <- c(2,4)
rows <- c("r1" ,"r2", "r3", "r4")
columns <- c("c1", "c2", "c3", "c4")
vec_matrix <- matrix(c(v1, v2, v3, v4), nrow = 4, byrow = FALSE, dimnames = list(rows,columns))
cbind(vec_matrix, v5)
char_vector <- c("Uno", "Dos", "Tres", "Cuatro")

matrix_df <- data.frame(vec_matrix, char_vector)
matrix_df

str(matrix_df)

LISTAS

# Vector with numerics from 1 up to 10
my_vector <- 1:10 

# Matrix with numerics from 1 up to 9
my_matrix <- matrix(1:9, ncol = 3)

# First 10 elements of the built-in data frame mtcars
my_df <- mtcars[1:10,]


my_list <- list(vec=my_vector, mat = my_matrix, df = my_df)
my_list
names(my_list[[1]]) <- c("uno", "dos", "tres", "cuatro", "cinco", "seis", "siete", "ocho", "nueve", "diez")
my_list

-----------------------------------------------------------------------------

‌
‌
‌