
Asignación de variables
x <- 3
y <- 2
Impresión 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
division_entera <- x %/% y
division_entera
## [1] 1
residuo <- x %% y
residuo
## [1] 1
potencia <- x ** 2
potencia
## [1] 9
Funciones matemáticas
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
signo <- sign(x)
signo
## [1] 1
redondeo_arriba <- ceiling(x/y)
redondeo_arriba
## [1] 2
redondeo_abajo <- floor(x/y)
redondeo_abajo
## [1] 1
truncar <- trunc(x/y)
truncar
## [1] 1
Constantes
pi
## [1] 3.141593
radio <- 5
area_circulo <- pi * radio**2
area_circulo
## [1] 78.53982
Vectores
a <- c(1,2,3,4,5)
a
## [1] 1 2 3 4 5
nombre <- c("Jose","Ana","Juan")
nombre
## [1] "Jose" "Ana" "Juan"
longitud <- length(a)
longitud
## [1] 5
longitud_nombre <- length(nombre)
longitud_nombre
## [1] 3
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
#?sort
b <- c(1,2,3,4,5)
b
## [1] 1 2 3 4 5
extracto <- b
suma_vectores <- a+b
suma_vectores
## [1] 2 4 6 8 10
Graficar
plot(a,b, main = "Ventas Totales", xlab = "Semana", ylab = "Millones USD", type = "b")

plot
## function (x, y, ...)
## UseMethod("plot")
## <bytecode: 0x1492b7c90>
## <environment: namespace:base>
Ejercicio 1
Nombres <- c("Fabiana","Carolina","Roberto","Karen","Julio")
Nombres
## [1] "Fabiana" "Carolina" "Roberto" "Karen" "Julio"
Altura <- c(1.58,1.63,1.74,1.50,1.89)
Altura
## [1] 1.58 1.63 1.74 1.50 1.89
Peso <- c(56,63,82,60,86)
Peso
## [1] 56 63 82 60 86
Indice_MasaCorporal <- c(Peso/Altura**2)
Indice_MasaCorporal
## [1] 22.43230 23.71184 27.08416 26.66667 24.07547
resumen <- summary(Indice_MasaCorporal)
resumen
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 22.43 23.71 24.08 24.79 26.67 27.08
#Estamos ambas entre el rango mexicano promedio, en grados menores
### Grafica
plot(Altura,Peso, main = "IMC", xlab = "Altura", ylab = "Peso", type = "b")

plot
## function (x, y, ...)
## UseMethod("plot")
## <bytecode: 0x1492b7c90>
## <environment: namespace:base>
Conclusiones
R es un lenguaje de programación útil paea realizar
cálculos principlamente estadísticos, y forma parte de las herrmaientas
del Big Data.
R Studio es el entorno en donde se puede programar
R, y gracias a que también aquí se puede programar
Python, en julio del 2023 se anuncio su nuevo nombre:
Posit
En esta introdcucción, lo que llama la atención es la constante
aparición de alertas o errores en el programa, los cuales encontramos
que principalmente se deben a que la versión de R no es
la más reciente, a la falta de instalación de paquetes o llamar a las
librerías, problemas de escritura (typos) y los muchos
argumentos que tienen las funciones.
Si desde un inicio programamos de forma estructurada, disciplinada y
meticulosa, podemos preveer muchas de las alertas o errores y así
obtendremos los muchos beneficios de la programación en R, como
los pronósticos de predicción.
LS0tCnRpdGxlOiAiQ29tYW5kb3MgQsOhc2ljb3MiCmF1dGhvcjogIkNhcm9saW5hIFN1w6FyZXogLSBBMDA4Mzc5MjIiCmRhdGU6ICIyMDI0LTAyLTE1IgpvdXRwdXQ6IAogIGh0bWxfZG9jdW1lbnQ6CiAgICB0b2M6IFRSVUUKICAgIHRvY19mbG9hdDogVFJVRQogICAgY29kZV9kb3dubG9hZDogVFJVRQotLS0KCiFbXSgvVXNlcnMvY2Fyb3N1YXJlei9Eb3dubG9hZHMvbWllZG8tYS1sYXMtbWF0ZW1hdGljYXMuanBnXzEwMTQyNzQ0ODYud2VicCkKCiMgQXNpZ25hY2nDs24gZGUgdmFyaWFibGVzCmBgYHtyfQp4IDwtIDMKeSA8LSAyCmBgYAoKIyBJbXByZXNpw7NuIGRlIHJlc3VsdGFkb3MKYGBge3J9CngKeQpgYGAKCiMgT3BlcmFjaW9uZXMgYXJpdG3DqXRpY2FzCmBgYHtyfQpzdW1hIDwtIHgreQpzdW1hIAoKcmVzdGEgPC0geC15CnJlc3RhCgptdWx0aXBsaWNhY2lvbiA8LSB4KnkKbXVsdGlwbGljYWNpb24KCmRpdmlzaW9uIDwtIHgveQpkaXZpc2lvbgoKZGl2aXNpb25fZW50ZXJhIDwtIHggJS8lIHkKZGl2aXNpb25fZW50ZXJhCgpyZXNpZHVvIDwtIHggJSUgeQpyZXNpZHVvCgpwb3RlbmNpYSA8LSB4ICoqIDIKcG90ZW5jaWEKYGBgCgojIEZ1bmNpb25lcyBtYXRlbcOhdGljYXMKYGBge3J9CnJhaXpfY3VhZHJhZGEgPC0gc3FydCh4KQpyYWl6X2N1YWRyYWRhCgpyYWl6X2N1YmljYSA8LSB4ICoqICgxLzMpCnJhaXpfY3ViaWNhCgpleHBvbmVuY2lhbCA8LSBleHAgKDEpCmV4cG9uZW5jaWFsCgphYnNvbHV0byA8LSBhYnMoeCkKYWJzb2x1dG8KCnNpZ25vIDwtIHNpZ24oeCkKc2lnbm8KCnJlZG9uZGVvX2FycmliYSA8LSBjZWlsaW5nKHgveSkKcmVkb25kZW9fYXJyaWJhCgpyZWRvbmRlb19hYmFqbyA8LSBmbG9vcih4L3kpCnJlZG9uZGVvX2FiYWpvCgp0cnVuY2FyIDwtIHRydW5jKHgveSkKdHJ1bmNhcgpgYGAKCiMgQ29uc3RhbnRlcwpgYGB7cn0KcGkKcmFkaW8gPC0gNQphcmVhX2NpcmN1bG8gPC0gcGkgKiByYWRpbyoqMgphcmVhX2NpcmN1bG8KYGBgCgojIFZlY3RvcmVzCmBgYHtyfQphIDwtIGMoMSwyLDMsNCw1KQphCgpub21icmUgPC0gYygiSm9zZSIsIkFuYSIsIkp1YW4iKQpub21icmUKCmxvbmdpdHVkIDwtIGxlbmd0aChhKQpsb25naXR1ZAoKbG9uZ2l0dWRfbm9tYnJlIDwtIGxlbmd0aChub21icmUpCmxvbmdpdHVkX25vbWJyZQoKcHJvbWVkaW8gPC0gbWVhbihhKQpwcm9tZWRpbwoKcmVzdW1lbiA8LSBzdW1tYXJ5KGEpCnJlc3VtZW4KCm9yZGVuX0FzY2VuZGVudGUgPC0gc29ydChhKQpvcmRlbl9Bc2NlbmRlbnRlCgpvcmRlbl9kZXNjZW5kZW50ZSA8LSBzb3J0KGEsZGVjcmVhc2luZyA9IFRSVUUpCm9yZGVuX2Rlc2NlbmRlbnRlCiM/c29ydAoKYiA8LSBjKDEsMiwzLDQsNSkKYgoKZXh0cmFjdG8gPC0gYgoKc3VtYV92ZWN0b3JlcyA8LSBhK2IKc3VtYV92ZWN0b3JlcwpgYGAKCiMgR3JhZmljYXIKYGBge3J9CnBsb3QoYSxiLCBtYWluID0gIlZlbnRhcyBUb3RhbGVzIiwgeGxhYiA9ICJTZW1hbmEiLCB5bGFiID0gIk1pbGxvbmVzIFVTRCIsIHR5cGUgPSAiYiIpCnBsb3QKYGBgCgojIEVqZXJjaWNpbyAxCmBgYHtyfQpOb21icmVzIDwtIGMoIkZhYmlhbmEiLCJDYXJvbGluYSIsIlJvYmVydG8iLCJLYXJlbiIsIkp1bGlvIikKTm9tYnJlcwpBbHR1cmEgPC0gYygxLjU4LDEuNjMsMS43NCwxLjUwLDEuODkpCkFsdHVyYQpQZXNvIDwtIGMoNTYsNjMsODIsNjAsODYpClBlc28KCgpJbmRpY2VfTWFzYUNvcnBvcmFsIDwtIGMoUGVzby9BbHR1cmEqKjIpCkluZGljZV9NYXNhQ29ycG9yYWwKCnJlc3VtZW4gPC0gc3VtbWFyeShJbmRpY2VfTWFzYUNvcnBvcmFsKQpyZXN1bWVuCgojRXN0YW1vcyBhbWJhcyBlbnRyZSBlbCByYW5nbyBtZXhpY2FubyBwcm9tZWRpbywgZW4gZ3JhZG9zIG1lbm9yZXMKCiMjIyBHcmFmaWNhCnBsb3QoQWx0dXJhLFBlc28sIG1haW4gPSAiSU1DIiwgeGxhYiA9ICJBbHR1cmEiLCB5bGFiID0gIlBlc28iLCB0eXBlID0gImIiKQpwbG90CmBgYAoKIyBDb25jbHVzaW9uZXMKKipSKiogZXMgdW4gbGVuZ3VhamUgZGUgcHJvZ3JhbWFjacOzbiDDunRpbCBwYWVhIHJlYWxpemFyIGPDoWxjdWxvcyBwcmluY2lwbGFtZW50ZSBlc3RhZMOtc3RpY29zLCB5IGZvcm1hIHBhcnRlIGRlIGxhcyBoZXJybWFpZW50YXMgZGVsICpCaWcgRGF0YSouCgoqUiBTdHVkaW8qIGVzIGVsIGVudG9ybm8gZW4gZG9uZGUgc2UgcHVlZGUgcHJvZ3JhbWFyICoqUioqLCB5IGdyYWNpYXMgYSBxdWUgdGFtYmnDqW4gYXF1w60gc2UgcHVlZGUgcHJvZ3JhbWFyICoqUHl0aG9uKiosIGVuIGp1bGlvIGRlbCAyMDIzIHNlIGFudW5jaW8gc3UgbnVldm8gbm9tYnJlOiAqKlBvc2l0KioKCkVuIGVzdGEgaW50cm9kY3VjY2nDs24sIGxvIHF1ZSBsbGFtYSBsYSBhdGVuY2nDs24gZXMgbGEgY29uc3RhbnRlIGFwYXJpY2nDs24gZGUgYWxlcnRhcyBvIGVycm9yZXMgZW4gZWwgcHJvZ3JhbWEsIGxvcyBjdWFsZXMgZW5jb250cmFtb3MgcXVlIHByaW5jaXBhbG1lbnRlIHNlIGRlYmVuIGEgcXVlIGxhIHZlcnNpw7NuIGRlICoqUioqIG5vIGVzIGxhIG3DoXMgcmVjaWVudGUsIGEgbGEgZmFsdGEgZGUgaW5zdGFsYWNpw7NuIGRlIHBhcXVldGVzIG8gbGxhbWFyIGEgbGFzIGxpYnJlcsOtYXMsIHByb2JsZW1hcyBkZSBlc2NyaXR1cmEgKCp0eXBvcyopIHkgbG9zIG11Y2hvcyBhcmd1bWVudG9zIHF1ZSB0aWVuZW4gbGFzIGZ1bmNpb25lcy4KClNpIGRlc2RlIHVuIGluaWNpbyBwcm9ncmFtYW1vcyBkZSBmb3JtYSBlc3RydWN0dXJhZGEsIGRpc2NpcGxpbmFkYSB5IG1ldGljdWxvc2EsIHBvZGVtb3MgcHJldmVlciBtdWNoYXMgZGUgbGFzIGFsZXJ0YXMgbyBlcnJvcmVzIHkgYXPDrSBvYnRlbmRyZW1vcyBsb3MgbXVjaG9zIGJlbmVmaWNpb3MgZGUgbGEgcHJvZ3JhbWFjacOzbiBlbiAqUiosIGNvbW8gbG9zIHByb27Ds3N0aWNvcyBkZSBwcmVkaWNjacOzbi4K