# Crear vector
v <- c(10, 20, 30, 40, 50)
# Aritméticos
v + 5 # Sumar 5 a cada elemento
## [1] 15 25 35 45 55
v * 2 # Duplicar los valores
## [1] 20 40 60 80 100
# Relacionales
v > 25 # ¿Qué elementos son mayores a 25?
## [1] FALSE FALSE TRUE TRUE TRUE
# Lógicos combinados
(v > 15) & (v < 45) # ¿Entre 15 y 45?
## [1] FALSE TRUE TRUE TRUE FALSE
# Negación
!(v == 20) # ¿Distinto de 20?
## [1] TRUE FALSE TRUE TRUE TRUE
# Usar base de datos integrada
data(mtcars)
# Aritméticos
mtcars$mpg * 1.6 # Convertir de millas a kilómetros por litro
## [1] 33.60 33.60 36.48 34.24 29.92 28.96 22.88 39.04 36.48 30.72 28.48 26.24
## [13] 27.68 24.32 16.64 16.64 23.52 51.84 48.64 54.24 34.40 24.80 24.32 21.28
## [25] 30.72 43.68 41.60 48.64 25.28 31.52 24.00 34.24
# Relacionales
mtcars$hp > 150 # ¿Qué autos tienen más de 150 caballos?
## [1] FALSE FALSE FALSE FALSE TRUE FALSE TRUE FALSE FALSE FALSE FALSE TRUE
## [13] TRUE TRUE TRUE TRUE TRUE FALSE FALSE FALSE FALSE FALSE FALSE TRUE
## [25] TRUE FALSE FALSE FALSE TRUE TRUE TRUE FALSE
# Lógicos
mtcars[mtcars$mpg > 20 & mtcars$cyl == 4, ]
## mpg cyl disp hp drat wt qsec vs am gear carb
## Datsun 710 22.8 4 108.0 93 3.85 2.320 18.61 1 1 4 1
## Merc 240D 24.4 4 146.7 62 3.69 3.190 20.00 1 0 4 2
## Merc 230 22.8 4 140.8 95 3.92 3.150 22.90 1 0 4 2
## Fiat 128 32.4 4 78.7 66 4.08 2.200 19.47 1 1 4 1
## Honda Civic 30.4 4 75.7 52 4.93 1.615 18.52 1 1 4 2
## Toyota Corolla 33.9 4 71.1 65 4.22 1.835 19.90 1 1 4 1
## Toyota Corona 21.5 4 120.1 97 3.70 2.465 20.01 1 0 3 1
## Fiat X1-9 27.3 4 79.0 66 4.08 1.935 18.90 1 1 4 1
## Porsche 914-2 26.0 4 120.3 91 4.43 2.140 16.70 0 1 5 2
## Lotus Europa 30.4 4 95.1 113 3.77 1.513 16.90 1 1 5 2
## Volvo 142E 21.4 4 121.0 109 4.11 2.780 18.60 1 1 4 2
# Filtrar autos que rinden más de 20 mpg y tienen 4 cilindros
# Crear nueva variable con ifelse
mtcars$alto_rendimiento <- ifelse(mtcars$mpg > 25, "Sí", "No")