#Asignación de variables
x<-3
y<-2
#Impresion de Resultados
x
## [1] 3
y
## [1] 2
#Operaciones Aritméticas
suma <- x+y
suma
## [1] 5
resta <- x-y
resta
## [1] 1
multiplicacion <- x*y
multiplicacion
## [1] 6
division <- x/y
division
## [1] 1.5
potencia <- x^2
potencia
## [1] 9
raiz_cuadrada <- sqrt(x)
raiz_cuadrada
## [1] 1.732051
exponencial <- exp(1)
exponencial
## [1] 2.718282
absoluto <- abs

signo <- sign(y)

signo2 <- sign(x)

redondeo_arriba <- ceiling(x/y)

redondeo_abajo <- floor(x/y)

truncar <- trunc(division)

# Constantes
pi
## [1] 3.141593
radio <- 5
area_circulo <- pi*radio^2

# Vectores
a <- c(1,2,3,4,5)

Longitud <- length(a)

promedio <- mean(a)

resumen <- summary(a)

orden_ascendente <- sort(a)

orden_descendente <- sort(a,decreasing=TRUE)

b <- c(1,2,3,4,5)

suma_vectores <- a+b

plot(a,b)

plot(a,b, type="l", main="ventas totales de la semana", xlab = "Semanas", ylab = "Pesos")

plot(a,b, type="b")

plot(a,b, type="h")