library(dplyr)
## 
## 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
library(ggplot2)
precio <- 14.6
class(precio)
## [1] "numeric"
cantidad <- 200L
class(cantidad)
## [1] "integer"
# Cadena de texto (character)
universidad <- "Universidad de El Salvador"
class(universidad)
## [1] "character"
es_estudiante <- TRUE
class(es_estudiante)
## [1] "logical"
salario_texto <- "204.4"
class(salario_texto)
## [1] "character"
salario_num <- as.numeric(salario_texto)
class(salario_num)
## [1] "numeric"
# Convertimos un número a lógico (0 es FALSE, cualquier otro es TRUE)
as.logical(0)
## [1] FALSE
as.logical(1)
## [1] TRUE

Operadores Ariméticos

# Variables iniciales
precio_producto <- 59
unidades_vendidas <- 48

# Multiplicación (*)
ingreso_total <- precio_producto * unidades_vendidas
print(ingreso_total)
## [1] 2832
# División (/) y Resta (-)
impuesto <- ingreso_total / 10  # Calculamos un 10%
ingreso_neto <- ingreso_total - impuesto
print(ingreso_neto)
## [1] 2548.8
# Exponente (^) y Raíz cuadrada (sqrt)
area_cuadrada <- 5^2
raiz_area <- sqrt(area_cuadrada)

Operadores relacionales

# Comparaciones de igualdad y diferencia
precio_producto == 30   
## [1] FALSE
precio_producto != 30
## [1] TRUE
ingreso_total > 50
## [1] TRUE
unidades_vendidas <= 4 
## [1] FALSE