#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")
