[]“(c:/cloud/project/math.gif) (No image at path
c:/cloud/project/math.gif)
Impresion de resultados
## [1] 3
## [1] 2
Operaciones aritmeticas
## [1] 5
## [1] 1
multiplicacion <- x*y
multiplicacion
## [1] 6
## [1] 1.5
division_entera <- x%/%y
division_entera
## [1] 1
## [1] 1
## [1] 9
Funciones Matematicas
raiz_cuadrada <- sqrt(x)
raiz_cuadrada
## [1] 1.732051
raiz_cubica <- x^(1/3)
raiz_cubica
## [1] 1.44225
exponencial <-exp(1)
exponencial
## [1] 2.718282
absoluto <- abs(x)
absoluto
## [1] 3
## [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
## [1] 3.141593
radio <- 5
area_circulo <- pi*radio^2
area_circulo
## [1] 78.53982
Vectores
## [1] 1 2 3 4 5
## [1] 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
## [19] 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36
## [37] 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54
## [55] 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72
## [73] 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90
## [91] 91 92 93 94 95 96 97 98 99 100
c <- c("pera", "mango", "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_ascendente <- sort(a)
orden_ascendente
## [1] 1 2 3 4 5
orden_descendente <- sort(a, decreasing = TRUE)
orden_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
Graficar
plot(a,d, main= "ventas por Mes", xlab="Mes", ylab="Millones USD")

## function (x, y, ...)
## UseMethod("plot")
## <bytecode: 0x560bf0848e90>
## <environment: namespace:base>
LS0tCnRpdGxlOiAiQ29tYW5kb3MgQsOhc2ljb3MiCmF1dGhvcjogIkxhemFybyBSb2RyaWd1ZXogQTAwODM4MTcxIgpkYXRlOiAiMjAyMy0wOS0xMiIKb3V0cHV0OiAKICBodG1sX2RvY3VtZW50OgogICAgdG9jOiBUUlVFCiAgICB0b2NfZmxvYXQ6IFRSVUUKICAgIGNvZGVfZG93bmxvYWQ6IFRSVUUKICAgIHRoZW1lOiAic2FuZHN0b25lIgogICAgaGlnaGxpZ2h0OiAidGFuZ28iCi0tLQoKCiFbXSIoYzovY2xvdWQvcHJvamVjdC9tYXRoLmdpZikKKE5vIGltYWdlIGF0IHBhdGggYzovY2xvdWQvcHJvamVjdC9tYXRoLmdpZikKCiMjIyBBc2lnbmFjaW9uIGRlIFZhcmlhYmxlcwoKYGBge3J9CiB4IDwtIDMKIHkgPC0gMgpgYGAKCiMjIyBJbXByZXNpb24gZGUgcmVzdWx0YWRvcwoKYGBge3J9CiB4CiB5CmBgYAoKIyMjIE9wZXJhY2lvbmVzIGFyaXRtZXRpY2FzCgpgYGB7cn0Kc3VtYSA8LSB4K3kKc3VtYQoKcmVzdGEgPC0geC15CnJlc3RhCgptdWx0aXBsaWNhY2lvbiA8LSB4KnkKbXVsdGlwbGljYWNpb24KCmRpdmlzaW9uIDwtIHgveQpkaXZpc2lvbgoKZGl2aXNpb25fZW50ZXJhIDwtIHglLyV5CmRpdmlzaW9uX2VudGVyYQoKcmVzaWR1byA8LSB4JSV5CnJlc2lkdW8KCnBvdGVuY2lhIDwtIHheeQpwb3RlbmNpYQpgYGAKCiMjIyBGdW5jaW9uZXMgTWF0ZW1hdGljYXMKCmBgYHtyfQpyYWl6X2N1YWRyYWRhIDwtIHNxcnQoeCkKcmFpel9jdWFkcmFkYQoKcmFpel9jdWJpY2EgPC0geF4oMS8zKQpyYWl6X2N1YmljYQoKZXhwb25lbmNpYWwgPC1leHAoMSkKZXhwb25lbmNpYWwKCmFic29sdXRvIDwtIGFicyh4KQphYnNvbHV0bwoKc2lnbm8gPC0gc2lnbih4KQpzaWdubwoKcmVkb25kZW9fYXJyaWJhIDwtIGNlaWxpbmcoZGl2aXNpb24pCnJlZG9uZGVvX2FycmliYQoKcmVkb25kZW9fYWJham8gPC0gZmxvb3IoZGl2aXNpb24pCnJlZG9uZGVvX2FiYWpvCgp0cnVuY2FyIDwtIHRydW5jKGRpdmlzaW9uKQp0cnVuY2FyCmBgYAoKIyMjIENvbnN0YW50ZXMKCmBgYHtyfQpwaQpyYWRpbyA8LSA1CmFyZWFfY2lyY3VsbyA8LSBwaSpyYWRpb14yCmFyZWFfY2lyY3VsbwpgYGAKCiMjIyBWZWN0b3JlcwoKYGBge3J9CmEgPC0gYygxLDIsMyw0LDUpCmEKCmIgPC0gKDE6MTAwKQpiCgpjIDwtIGMoInBlcmEiLCAibWFuZ28iLCAibWFuemFuYSIsICJraXdpIiwgImZyZXNhIikKCmxvbmdpdHVkIDwtIGxlbmd0aChhKQpsb25naXR1ZAoKcHJvbWVkaW8gPC1tZWFuKGEpCnByb21lZGlvCgpyZXN1bWVuIDwtIHN1bW1hcnkoYSkKcmVzdW1lbgoKb3JkZW5fYXNjZW5kZW50ZSA8LSBzb3J0KGEpCm9yZGVuX2FzY2VuZGVudGUKCm9yZGVuX2Rlc2NlbmRlbnRlIDwtIHNvcnQoYSwgZGVjcmVhc2luZyA9IFRSVUUpCm9yZGVuX2Rlc2NlbmRlbnRlCgpkIDwtIGMoMSwyLDMsNCw1KQpkCnN1bWFfdmVjdG9yZXMgPC0gYStkCnN1bWFfdmVjdG9yZXMKCmBgYAoKCiMjIyBHcmFmaWNhcgoKYGBge3J9CnBsb3QoYSxkLCBtYWluPSAidmVudGFzIHBvciBNZXMiLCB4bGFiPSJNZXMiLCB5bGFiPSJNaWxsb25lcyBVU0QiKQpwbG90CmBgYAoK