
Impresión de resultados
## [1] 3
## [1] 2
Operaciones aritmeticas
## [1] 5
## [1] 1
## [1] 6
## [1] 1.5
diventera <- x%/%y
diventera
## [1] 1
## [1] 1
## [1] 9
Funciones matematicas
## [1] 1.732051
raizcub <- x^(1/3)
raizcub
## [1] 1.44225
exponencial <- exp(1)
exponencial
## [1] 2.718282
absoluto <- abs(x)
absoluto
## [1] 3
## [1] 1
roundup <- ceiling(div)
roundup
## [1] 2
rounddown <- floor(div)
rounddown
## [1] 1
truncar <- trunc(div)
truncar
## [1] 1
Constantes
## [1] 3.141593
rad <- 5
areacirculo <- pi*rad^2
areacirculo
## [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("hola", "bye", "tu")
c
## [1] "hola" "bye" "tu"
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
ordenascendente <- sort(a)
ordenascendente
## [1] 1 2 3 4 5
ordendescendente <- sort(a, decreasing = TRUE)
ordendescendente
## [1] 5 4 3 2 1
## [1] 1 2 3 4 5
sumvectors <- a+d
sumvectors
## [1] 2 4 6 8 10
Graficar
plot(a,d, main ="Clase1", xlab = "Dia", ylab = "semana", type = "b")

## function (x, y, ...)
## UseMethod("plot")
## <bytecode: 0x7fa4e0c02378>
## <environment: namespace:base>
Ayuda con comandos relacionados a graficar
## Help on topic 'plot' was found in the following packages:
##
## Package Library
## graphics /Library/Frameworks/R.framework/Versions/4.1/Resources/library
## base /Library/Frameworks/R.framework/Resources/library
##
##
## Using the first match ...
LS0tCnRpdGxlOiAiQ29tYW5kb3NCYXNpY29zIgphdXRob3I6ICJFZHVhcmRvIC0gQTAwODMxNDQ3IgpkYXRlOiAnMjAyMy0wOS0xMScKb3V0cHV0OiAKICBodG1sX2RvY3VtZW50OiAKICAgIHRvYzogVFJVRQogICAgdG9jX2Zsb2F0OiBUUlVFCiAgICBjb2RlX2Rvd25sb2FkOiBUUlVFCiAgICB0aGVtZTogInNpbXBsZXgiCiAgICBoaWdobGlnaHQ6ICJ0YW5nbyIKICAgIAotLS0KCiFbXSgvVXNlcnMvZWR1YXJkb2dhcnphL0Rlc2t0b3AvU2NyZWVuc2hvdCAyMDIzLTA5LTExIGF0IDExLjM2LjM5LnBuZykKCiMjIyBBc2lnbmFjacOzbiBkZSBWYXJpYWJsZXMKYGBge3J9CnggPC0gMwp5IDwtIDIKYGBgCiMjIyBJbXByZXNpw7NuIGRlIHJlc3VsdGFkb3MKYGBge3J9CngKeQpgYGAKIyMjIE9wZXJhY2lvbmVzIGFyaXRtZXRpY2FzCmBgYHtyfQpzdW0gPC0geCt5CnN1bQpyZXN0YSA8LSB4LXkKcmVzdGEKCm11bHQgPC0geCp5Cm11bHQKCmRpdiA8LSB4L3kKZGl2CgpkaXZlbnRlcmEgPC0geCUvJXkKZGl2ZW50ZXJhCgpyZXNpZHVvIDwtIHglJXkKcmVzaWR1bwoKcG90ZW5jaWEgPC0geF55CnBvdGVuY2lhCmBgYAoKCiMjIyBGdW5jaW9uZXMgbWF0ZW1hdGljYXMKCgpgYGB7cn0KcmFpeiA8LSBzcXJ0KHgpCnJhaXogCgpyYWl6Y3ViIDwtIHheKDEvMykKcmFpemN1YgoKZXhwb25lbmNpYWwgPC0gZXhwKDEpCmV4cG9uZW5jaWFsCgoKYWJzb2x1dG8gPC0gYWJzKHgpCmFic29sdXRvCgpzaWdubyA8LSBzaWduKHgpCnNpZ25vCgpyb3VuZHVwIDwtIGNlaWxpbmcoZGl2KQpyb3VuZHVwCgpyb3VuZGRvd24gPC0gZmxvb3IoZGl2KQpyb3VuZGRvd24KCnRydW5jYXIgPC0gdHJ1bmMoZGl2KQp0cnVuY2FyCmBgYAojIyMgQ29uc3RhbnRlcwpgYGB7cn0KcGkKcmFkIDwtIDUKYXJlYWNpcmN1bG8gPC0gcGkqcmFkXjIKYXJlYWNpcmN1bG8KYGBgCgoKCiMjIyBWZWN0b3JlcwpgYGB7cn0KCmEgPC0gYygxLDIsMyw0LDUpCmEKYiA8LSBjKDE6MTAwKQpiCmMgPC0gYygiaG9sYSIsICJieWUiLCAidHUiKQpjCgpsb25naXR1ZCA8LSBsZW5ndGgoYSkKbG9uZ2l0dWQKCnByb21lZGlvIDwtIG1lYW4oYSkKcHJvbWVkaW8KCnJlc3VtZW4gPC0gc3VtbWFyeShhKQpyZXN1bWVuCgpvcmRlbmFzY2VuZGVudGUgPC0gc29ydChhKQpvcmRlbmFzY2VuZGVudGUKCm9yZGVuZGVzY2VuZGVudGUgPC0gc29ydChhLCBkZWNyZWFzaW5nID0gVFJVRSkKb3JkZW5kZXNjZW5kZW50ZQoKZCA8LSBjKDEsMiwzLDQsNSkKZAoKc3VtdmVjdG9ycyA8LSBhK2QKc3VtdmVjdG9ycwpgYGAKCgojIyMgR3JhZmljYXIKYGBge3J9CnBsb3QoYSxkLCBtYWluID0iQ2xhc2UxIiwgeGxhYiA9ICJEaWEiLCB5bGFiID0gInNlbWFuYSIsIHR5cGUgPSAiYiIpCnBsb3QKYGBgCgoKCiMjIyBBeXVkYSBjb24gY29tYW5kb3MgcmVsYWNpb25hZG9zIGEgZ3JhZmljYXIKYGBge3J9Cj9wbG90CmBgYAoKCg==