1.Carga de Librerías.
##
## Adjuntando el paquete: 'dplyr'
## The following objects are masked from 'package:stats':
##
## filter, lag
## The following objects are masked from 'package:base':
##
## intersect, setdiff, setequal, union
2. Tipos de datos en R
#Númerico (numeric)
precio <- 10.5
class(precio)
## [1] "numeric"
# Entero (integer)
cantidad <- 105L
class(cantidad)
## [1] "integer"
# Cadena de texto (character)
universidad <- "Universidad de El Salvador"
class (universidad)
## [1] "character"
# Lógico (logical)
es_estudiante <- TRUE
class(es_estudiante)
## [1] "logical"
3. Comandos de Coerción.
salario_texto <- "1200"
class(salario_texto)
## [1] "character"
# Convertir a numero real
salario_num <- as.numeric(salario_texto)
class(salario_num)
## [1] "numeric"
# Convertir a número lógico
as.logical(3)
## [1] TRUE
## [1] FALSE
4. Operadores Aritméticos.
# Variable iniciales
precio_producto <- 22
unidades_vendidas <- 6
# Multiplicación (*)
Ingreso_total <- precio_producto * unidades_vendidas
print(Ingreso_total)
## [1] 132
# División (/) y resta (-)
Impuesto <- Ingreso_total / 8 # Se calculo un 8%
Ingreso_neto <- Ingreso_total - Impuesto
print(Ingreso_neto)
## [1] 115.5
# Exponente (^) y Raíz cuadrada
area_cuadrada <- 6^2
raiz_area <- sqrt(area_cuadrada)
5. Operadores Relacionales.
# Comparación de igualdad y diferencia
precio_producto == 21 # ¿Ese es el precio igual a 22?
## [1] FALSE
precio_producto != 30 # Es el precio diferente a 22?
## [1] TRUE
# Comparación de magnitud
Ingreso_total > 60 # ¿Es el ingreso mayor a 60?
## [1] TRUE
unidades_vendidas <= 6 # ¿ Son las unidades vendidas menores o iguales a 6?
## [1] TRUE