
Valores
## [1] 3
## [1] 2
Multiplicación
multiplicacion <- x * y
multiplicacion
## [1] 6
#División
division <- x%/%y
division
## [1] 1
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
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
## [1] 3.141593
radio <- 5
area_circulo <- pi*radio^2
area_circulo
## [1] 78.53982
## [1] 1 2 3 4 5
oden_descendente <- sort(a, decreasing = TRUE)
oden_descendente
## [1] 5 4 3 2 1
## [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")

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