# 1.1 ls(): sin argumentos devuelve un vector compuesto por los nombres de las variables definidas
vprueba1 <- 1
vprueba2 <- 'y'
ls()
# 1.2 a:b : permite crear un rango entre los valores delimitados
rango <- 1:5
rango
# 1.3 c(): permite definir un vector con los componentes establecidos
vector1 <- c(1, 2, 3, 4)
vector1
# 1.4 length(): devuelve la longitud de un componente
prueba_largo <- c(1:5)
length(prueba_largo)
# 1.5 sum(): suma a los componentes del argumento
prueba_sum <- c(5:10)
sum(prueba_sum)
# 1.6 prod(): multiplica los componentes del argumento
prueba_prod <- c(3, 2)
prod(prueba_prod)
# 1.7 sort(): devuelve los componentes del argumento ordenados de forma ascendente
prueba_sort <- c(3, 6, 5, 7, 22, 6, 9, 33)
sort(prueba_sort)
# 1.8 sort(x, decreasing = TRUE): devuelve los componentes del argumento ordenados de forma descendente
prueba_sortDesc <- c(3, 6, 5, 7, 22, 6, 9, 33)
sort(prueba_sortDesc, decreasing = TRUE)
# 1.9 min(): devuelve el componente menor del argumento
prueba_min <- c(4, 7, 4, 8, 3, 8, 3, 2, 7, 5)
min(prueba_min)
# 1.10 max(): devuelve el componente mayor del argumento
prueba_max <- c(4, 7, 4, 8, 3, 8, 3, 2, 7, 5)
max(prueba_max)
# 1.11 which(): devuelve las posiciones de los componentes que cumplen una condición dentro de un argumento
prueba_which <- c(4, 7, 3, 8, 3, 8, 3, 11, 7, 5)
which(prueba_which == 3)
# 1.12 Operaciones matemáticas básicas
# Suma
resultado_suma <- 5 + 3
print(resultado_suma)
# Resta
resultado_resta <- 10 - 4
print(resultado_resta)
# Multiplicación
resultado_multiplicacion <- 6 * 7
print(resultado_multiplicacion)
# División
resultado_division <- 8 / 2
print(resultado_division)
# Potencia
resultado_potencia <- 3 ^ 2
print(resultado_potencia)
# 1.13 Otras funciones matemáticas:
# Raíz cuadrada
resultado_sqrt <- sqrt(16)
print(resultado_sqrt)
# Logaritmo natural
resultado_log <- log(10)
print(resultado_log)
# Exponencial
resultado_exp <- exp(2)
print(resultado_exp)
# Seno
resultado_sin <- sin(pi / 2)
print(resultado_sin)
# Valor absoluto
resultado_abs <- abs(-5)
print(resultado_abs)
# 1.14 Operadores de comparación: comparan términos y arrojan TRUE o FALSE
# Menor que
resultado_menor <- 3 < 5
print(resultado_menor)
# Igual a
resultado_igual <- 10 == 10
print(resultado_igual)
# Mayor que
resultado_mayor <- 7 > 2
print(resultado_mayor)
# Menor o igual que
resultado_menor_igual <- 4 <= 4
print(resultado_menor_igual)
# Mayor o igual que
resultado_mayor_igual <- 8 >= 5
print(resultado_mayor_igual)
# Diferente de
resultado_diferente <- 9 != 6
print(resultado_diferente)
# 1.15 Operadores lógicos: permiten unir condiciones
# AND lógico
resultado_and <- TRUE & FALSE
print(resultado_and)
# OR lógico
resultado_or <- TRUE | FALSE
print(resultado_or)
# OR exclusivo (XOR)
resultado_xor <- xor(TRUE, FALSE)
print(resultado_xor)
# Negación lógica
resultado_not <- !TRUE
print(resultado_not)
# 2.1
ej2_x <- c(1:1000)
sum_x <- sum(ej2_x)
cat(sum(ej2_x), sum(ej2_x))
# 2.2
ej2_y <- c(0:10)
sum_y <- c(2 ** ej2_y)
cat(sum(sum_y), sum(sum_y))
# a.
alumnos <- c("Juan", "María", "Pedro", "Ana", "Luis", "Sofía", "Carlos", "Elena", "Jorge", "Lucía", "Diego", "Marta", "Raúl", "Isabel", "Fernando", "Laura", "Manuel", "Paula", "José", "Carmen")
alumnos
# b.
length(alumnos)
# c.
Iniciales <- c(substr(alumnos, 1, 1))
which(Iniciales == 'A')
# 1
notas <- c(10, 12, 13, 20, 14, 16, 8, 4, 3, 6, 4, 9, 14, 17, 17, 19, 2, 6, 20, 10)
notas
# 2
length(notas)
# 3
sum(notas)
# 4
mean(notas)
# 5
which(notas > 7)
# 6
sort(notas)
# 7
sort(notas, decreasing = TRUE)
# 8
max(notas)
# 9
which(notas == max(notas))
# 1
data.frame(alumnos[1:10], notas[1:10])
# 2
sum(notas[1:10])
# 3
length(alumnos)
# 4
sum(notas)
# 5
length(notas[notas >= 14])
# 6
cat(length(notas[notas >= 14]) / length(notas) * 100, "%")
# 7
cat('Min:', min(notas), 'Max:', max(notas))
# 8
# a. Mínimo
cat('Mínimo:', alumnos[which(notas == min(notas))])
# b. Máximo
cat('Máximo:', alumnos[which(notas == max(notas))])
# 9
mean(notas[notas >= 14])
# a
getwd()
# b
setwd('C:/Users/USUARIO/OneDrive/Escritorio/Proyectos/IN/Taller 11')
write.csv(mtcars, "mtcars.csv")
paro_tabla <- read.csv("paro.csv", sep = "", header = TRUE)
paro_tabla
# a
head(paro_tabla, 5)
# b
tail(paro_tabla, 5)
# c
nrow(paro_tabla)
# d
summary(paro_tabla)
paro_tabla2 <- read.csv("paro.csv", sep = "", header = FALSE)
paro_tabla2
inflation_ffrs_table <- read.csv("fredgraph.csv", sep = ",", header = TRUE)
inflation_ffrs_table
tabla_ejemplo <- read.table("https://datanalytics.com/uploads/datos_treemap.txt", header = TRUE)
tabla_ejemplo
origen <- ‘https://datanalytics.com/uploads/datos_treemap.txt’ ruta <- “C:/Users/USUARIO/OneDrive/Escritorio/Proyectos/IN/Taller 11/datos