#Asignación de variables
x <- 3
y <- 2

#Impresión de resultados
x
## [1] 3
y
## [1] 2
#Operaciones aritmeticas
suma <- x + y
suma
## [1] 5
multiplicacion <- x*y
multiplicacion
## [1] 6
division <- x/y
division
## [1] 1.5
division_entera <- x%/%y
division_entera
## [1] 1
residuo <- x%%y
residuo
## [1] 1
potencia <- x^y
potencia
## [1] 9
#Funciones matemáticas
raiz_cuadrada <- sqrt(x)
raiz_cuadrada
## [1] 1.732051
raiz_cubica <- x^(1/3)
raiz_cubica
## [1] 1.44225
exponencial <- exp(x)
exponencial
## [1] 20.08554
absoluto <- abs(x)
absoluto
## [1] 3
signo <- sign(x)
signo
## [1] 1
redondeo_arriba <- ceiling(division)
redondeo_arriba
## [1] 2
redondeo_abajo <- floor(division)
redondeo_abajo
## [1] 1
truncar <- trunc(division)
truncar
## [1] 1
#Constantes
pi
## [1] 3.141593
radio <- 5
area_circulo <- pi*radio^2
area_circulo
## [1] 78.53982
#Vectores
a <- c(1,2,3,4,5)
b <- c(1:100)
c <- c("pera", "mago", "manzana", "kiwi", "fresa")

longitud <- length(a)
longitud
## [1] 5
promedio <- mean(a)
promedio
## [1] 3
resumen <- summary(a)
resumen
##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##       1       2       3       3       4       5
orden_asc <- sort(a)
orden_asc
## [1] 1 2 3 4 5
orden_desc <- sort(a,decreasing = TRUE)
orden_desc
## [1] 5 4 3 2 1
d <- c(1,2,3,4,5)
a + d
## [1]  2  4  6  8 10
plot(a,d, main = "Ventas por mes", xlab = "Mes", ylab = "Millones USD", type = "b")