Valores

x <- 3
y <- 2
x
## [1] 3
y
## [1] 2

Suma

suma <- x + y
suma
## [1] 5

Resta

resta <- x - y
resta
## [1] 1

Multiplicación

multiplicacion <- x * y 
multiplicacion
## [1] 6

#División

division <- x%/%y
division
## [1] 1

Residuo

residuo <- x%%y
residuo
## [1] 1

Potencia

potencia <- x^y
potencia
## [1] 9

Raiz cuadrada

raiz_cuadrada <- sqrt(x)
raiz_cuadrada
## [1] 1.732051

Raíz cubica

raiz_cubica <- x^(1/3)
raiz_cubica
## [1] 1.44225

Exponencial

exponencial <- exp(1)
exponencial
## [1] 2.718282

Absoluto

absoluto <- abs(x)
absoluto
## [1] 3

Signo

signo <- sign(x)
signo
## [1] 1

Redondeo arriba

redondeo_arriba <- ceiling(division)
redondeo_arriba
## [1] 1

Redondeo abajo

redondeo_abajo <- floor(division)
redondeo_abajo
## [1] 1

Truncar

truncar <- trunc(division)
truncar
## [1] 1

Pi

pi
## [1] 3.141593
radio <- 5
area_circulo <- pi*radio^2
area_circulo
## [1] 78.53982
a <- c(1,2,3,4,5)
a
## [1] 1 2 3 4 5
oden_descendente <- sort(a, decreasing = TRUE)
oden_descendente
## [1] 5 4 3 2 1
d <- c(1,2,3,4,5)
d
## [1] 1 2 3 4 5
suma_vectores<- a + d
suma_vectores
## [1]  2  4  6  8 10

Ventas por mes

plot(a,d, main = "Ventas por mes", xlab = "Mes", ylab = "Millones")

?plot
## Help on topic 'plot' was found in the following packages:
## 
##   Package               Library
##   graphics              /Library/Frameworks/R.framework/Versions/4.3-x86_64/Resources/library
##   base                  /Library/Frameworks/R.framework/Resources/library
## 
## 
## Using the first match ...
LS0tCnRpdGxlOiAiQ29tYW5kb3MgQsOhc2ljb3MiCmF1dGhvcjogIlBhdWxldHRlIE10eiBBMDE3NDc1MzUiCmRhdGU6ICIyMDIzLTA5LTExIgpvdXRwdXQ6IAogIGh0bWxfZG9jdW1lbnQ6CiAgIHRvYzogVFJVRQogICB0b2NfZmxvYXQ6IFRSVUUKICAgY29kZV9kb3dubG9hZDogVFJVRQogICB0aGVtZTogImNlcnVsZWFuIgogICBoaWdobGlnaHQ6ICJ0YW5nbyIgCi0tLQohW10oYzoiL1VzZXJzL3BhdWxldHRlbS5hLi9EZXNrdG9wL0Jvb3RjYW1wL2FuaW1hY2lvbjcuZ2lmIikKCiMgVmFsb3JlcwpgYGB7cn0KeCA8LSAzCnkgPC0gMgpgYGAKCgpgYGB7cn0KeAp5CmBgYAoKIyBTdW1hCmBgYHtyfQpzdW1hIDwtIHggKyB5CnN1bWEKYGBgCgojIFJlc3RhCmBgYHtyfQpyZXN0YSA8LSB4IC0geQpyZXN0YQpgYGAKIyBNdWx0aXBsaWNhY2nDs24KYGBge3J9Cm11bHRpcGxpY2FjaW9uIDwtIHggKiB5IAptdWx0aXBsaWNhY2lvbgpgYGAKI0RpdmlzacOzbgpgYGB7cn0KZGl2aXNpb24gPC0geCUvJXkKZGl2aXNpb24KYGBgCiMgUmVzaWR1bwpgYGB7cn0KcmVzaWR1byA8LSB4JSV5CnJlc2lkdW8KYGBgCiMgUG90ZW5jaWEKYGBge3J9CnBvdGVuY2lhIDwtIHheeQpwb3RlbmNpYQpgYGAKIyBSYWl6IGN1YWRyYWRhCmBgYHtyfQpyYWl6X2N1YWRyYWRhIDwtIHNxcnQoeCkKcmFpel9jdWFkcmFkYQpgYGAKIyBSYcOteiBjdWJpY2EKYGBge3J9CnJhaXpfY3ViaWNhIDwtIHheKDEvMykKcmFpel9jdWJpY2EKYGBgCgojIEV4cG9uZW5jaWFsCmBgYHtyfQpleHBvbmVuY2lhbCA8LSBleHAoMSkKZXhwb25lbmNpYWwKYGBgCiMgQWJzb2x1dG8gCmBgYHtyfQphYnNvbHV0byA8LSBhYnMoeCkKYWJzb2x1dG8KYGBgCiMgU2lnbm8KYGBge3J9CnNpZ25vIDwtIHNpZ24oeCkKc2lnbm8KYGBgCiMgUmVkb25kZW8gYXJyaWJhCmBgYHtyfQpyZWRvbmRlb19hcnJpYmEgPC0gY2VpbGluZyhkaXZpc2lvbikKcmVkb25kZW9fYXJyaWJhCmBgYAojIFJlZG9uZGVvIGFiYWpvIApgYGB7cn0KcmVkb25kZW9fYWJham8gPC0gZmxvb3IoZGl2aXNpb24pCnJlZG9uZGVvX2FiYWpvCmBgYAojIFRydW5jYXIgCmBgYHtyfQp0cnVuY2FyIDwtIHRydW5jKGRpdmlzaW9uKQp0cnVuY2FyCmBgYAojIFBpCmBgYHtyfQpwaQpyYWRpbyA8LSA1CmFyZWFfY2lyY3VsbyA8LSBwaSpyYWRpb14yCmFyZWFfY2lyY3VsbwpgYGAKCmBgYHtyfQphIDwtIGMoMSwyLDMsNCw1KQphCmBgYAoKYGBge3J9Cm9kZW5fZGVzY2VuZGVudGUgPC0gc29ydChhLCBkZWNyZWFzaW5nID0gVFJVRSkKb2Rlbl9kZXNjZW5kZW50ZQpgYGAKYGBge3J9CmQgPC0gYygxLDIsMyw0LDUpCmQKYGBgCiAKYGBge3J9CnN1bWFfdmVjdG9yZXM8LSBhICsgZApzdW1hX3ZlY3RvcmVzCmBgYAojIFZlbnRhcyBwb3IgbWVzIApgYGB7cn0KcGxvdChhLGQsIG1haW4gPSAiVmVudGFzIHBvciBtZXMiLCB4bGFiID0gIk1lcyIsIHlsYWIgPSAiTWlsbG9uZXMiKQo/cGxvdApgYGAK