1 Carga de librerías

library(dplyr)
library(ggplot2)

2 Tipo de datos en R

# Númerico (numeric)
x <- 500
class(x)
## [1] "numeric"
# Entero (interger) - Se usa la letra "L" al final del número

cantidad_entera <- 900L
class(cantidad_entera)
## [1] "integer"
# Cadena de texto (character)

universidad <- "Universidad de El Salvador (UES)"
class(universidad)
## [1] "character"
# Lógico (logical)

es_estudiante <- TRUE
class(es_estudiante)
## [1] "logical"

3 Comandos de coercion

# Se tiene un numero guardado como cadena de texto

salario_texto <- "800.00"
class(salario_texto)
## [1] "character"
# Se quiere trabajar como numero real

salario_texto <- as.numeric(salario_texto)
class(salario_texto)
## [1] "numeric"
# Convertimos un numero a logico (0 es "FALSE" y cualquier otro numero es "TRUE")

as.logical(0)
## [1] FALSE
as.logical(900)
## [1] TRUE

4 Operadores aritméticos

# variables iniciales
precio_producto <- 800
unidades_vendidas <- 62

# Multiplicación

(ingreso_total <- precio_producto * unidades_vendidas) |> print()
## [1] 49600
# División y resta

(impuesto <- ingreso_total  / 13) |> print() 
## [1] 3815.385
(ingreso_neto <- ingreso_total - impuesto) |> print()
## [1] 45784.62
# Exponente (^) y raiz cuadrada

area_cuadrada <- 5**2 |> print()
## [1] 25
raiz_area <- sqrt(area_cuadrada) |> print()
## [1] 5

5 Operadores relacionales

 # Comparaciones de igualdad y diferencia

precio_producto == 30 # igualdad
## [1] FALSE
precio_producto != 30 # diferencia
## [1] TRUE
# Comparaciones de magnitud

ingreso_total > 5000
## [1] TRUE
unidades_vendidas <= 800
## [1] TRUE