
Asignación de variables
x <- 3
y <- 2
Impresión de Resultado
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: 0x00000211bd3f6f88>
## <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: 0x00000211bd3f6f88>
## <environment: namespace:base>
Conclusiones
R es un lenguaje de programación útil para realizar
cálculos, principalmente estadísticos, y forma parte de las herramientas
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 anunció su nuevo nombre:
Posit.
En esta introducción lo que llama la atención es la constante aparición
de alertas o errores en el programa, los cuales encontramos que
principlamente se deben a que la versión de R no es la
más reciente, a la faltar de instalación de paquetes o llamar a las
librerias, problemas de escritura (typos)
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.
LS0tDQp0aXRsZTogIkNvbWFuZG9zIELDoXNpY29zIg0KYXV0aG9yOiAiRmFiaWFuYSBNZWRpbmFjZWxsaSAtIEEwMDgzNTg2Ig0KZGF0ZTogIjIwMjQtMDItMTUiDQpvdXRwdXQ6IA0KICBodG1sX2RvY3VtZW50Og0KICAgIHRvYzogVFJVRQ0KICAgIHRvY19mbG9hdDogVFJVRQ0KICAgIGNvZGVfZG93bmxvYWQ6IFRSVUUNCi0tLQ0KDQohW10oQzpcXFVzZXJzXFxIUFxcRGVza3RvcFxcNTAwMTM1NDI1MDMwYzYwZWE4YzkwMjhmNmI5YjNkN2EuanBnKQ0KDQojIEFzaWduYWNpw7NuIGRlIHZhcmlhYmxlcw0KYGBge3J9DQp4IDwtIDMNCnkgPC0gMg0KYGBgDQojIEltcHJlc2nDs24gZGUgUmVzdWx0YWRvDQpgYGB7cn0NCngNCnkNCmBgYA0KIyBPcGVyYWNpb25lcyBhcml0bcOpdGljYXMNCmBgYHtyfQ0Kc3VtYSA8LSB4K3kNCnN1bWEgDQoNCnJlc3RhIDwtIHgteQ0KcmVzdGENCg0KbXVsdGlwbGljYWNpb24gPC0geCp5DQptdWx0aXBsaWNhY2lvbg0KDQpkaXZpc2lvbiA8LSB4L3kNCmRpdmlzaW9uDQoNCmRpdmlzaW9uX2VudGVyYSA8LSB4ICUvJSB5DQpkaXZpc2lvbl9lbnRlcmENCg0KcmVzaWR1byA8LSB4ICUlIHkNCnJlc2lkdW8NCg0KcG90ZW5jaWEgPC0geCAqKiAyDQpwb3RlbmNpYQ0KYGBgDQojIEZ1bmNpb25lcyBtYXRlbcOhdGljYXMNCmBgYHtyfQ0KcmFpel9jdWFkcmFkYSA8LSBzcXJ0KHgpDQpyYWl6X2N1YWRyYWRhDQoNCnJhaXpfY3ViaWNhIDwtIHggKiogKDEvMykNCnJhaXpfY3ViaWNhDQoNCmV4cG9uZW5jaWFsIDwtIGV4cCAoMSkNCmV4cG9uZW5jaWFsDQoNCmFic29sdXRvIDwtIGFicyh4KQ0KYWJzb2x1dG8NCg0Kc2lnbm8gPC0gc2lnbih4KQ0Kc2lnbm8NCg0KcmVkb25kZW9fYXJyaWJhIDwtIGNlaWxpbmcoeC95KQ0KcmVkb25kZW9fYXJyaWJhDQoNCnJlZG9uZGVvX2FiYWpvIDwtIGZsb29yKHgveSkNCnJlZG9uZGVvX2FiYWpvDQoNCnRydW5jYXIgPC0gdHJ1bmMoeC95KQ0KdHJ1bmNhcg0KYGBgDQojIENvbnN0YW50ZXMNCmBgYHtyfQ0KcGkNCnJhZGlvIDwtIDUNCmFyZWFfY2lyY3VsbyA8LSBwaSAqIHJhZGlvKioyDQphcmVhX2NpcmN1bG8NCmBgYA0KIyBWZWN0b3Jlcw0KYGBge3J9DQphIDwtIGMoMSwyLDMsNCw1KQ0KYQ0KDQpub21icmUgPC0gYygiSm9zZSIsIkFuYSIsIkp1YW4iKQ0Kbm9tYnJlDQoNCmxvbmdpdHVkIDwtIGxlbmd0aChhKQ0KbG9uZ2l0dWQNCg0KbG9uZ2l0dWRfbm9tYnJlIDwtIGxlbmd0aChub21icmUpDQpsb25naXR1ZF9ub21icmUNCg0KcHJvbWVkaW8gPC0gbWVhbihhKQ0KcHJvbWVkaW8NCg0KcmVzdW1lbiA8LSBzdW1tYXJ5KGEpDQpyZXN1bWVuDQoNCm9yZGVuX0FzY2VuZGVudGUgPC0gc29ydChhKQ0Kb3JkZW5fQXNjZW5kZW50ZQ0KDQpvcmRlbl9kZXNjZW5kZW50ZSA8LSBzb3J0KGEsZGVjcmVhc2luZyA9IFRSVUUpDQpvcmRlbl9kZXNjZW5kZW50ZQ0KIyA/c29ydA0KDQpiIDwtIGMoMSwyLDMsNCw1KQ0KYg0KDQpleHRyYWN0byA8LSBiDQoNCnN1bWFfdmVjdG9yZXMgPC0gYStiDQpzdW1hX3ZlY3RvcmVzDQpgYGANCiMgR3JhZmljYXINCmBgYHtyfQ0KcGxvdChhLGIsIG1haW4gPSAiVmVudGFzIFRvdGFsZXMiLCB4bGFiID0gIlNlbWFuYSIsIHlsYWIgPSAiTWlsbG9uZXMgVVNEIiwgdHlwZSA9ICJiIikNCnBsb3QNCmBgYA0KIyBFamVyY2ljaW8gMQ0KYGBge3J9DQpOb21icmVzIDwtIGMoIkZhYmlhbmEiLCJDYXJvbGluYSIsIlJvYmVydG8iLCJLYXJlbiIsIkp1bGlvIikNCk5vbWJyZXMNCkFsdHVyYSA8LSBjKDEuNTgsMS42MywxLjc0LDEuNTAsMS44OSkNCkFsdHVyYQ0KUGVzbyA8LSBjKDU2LDYzLDgyLDYwLDg2KQ0KUGVzbw0KDQoNCkluZGljZV9NYXNhQ29ycG9yYWwgPC0gYyhQZXNvL0FsdHVyYSoqMikNCkluZGljZV9NYXNhQ29ycG9yYWwNCg0KcmVzdW1lbiA8LSBzdW1tYXJ5KEluZGljZV9NYXNhQ29ycG9yYWwpDQpyZXN1bWVuDQoNCiNFc3RhbW9zIGFtYmFzIGVudHJlIGVsIHJhbmdvIG1leGljYW5vIHByb21lZGlvLCBlbiBncmFkb3MgbWVub3Jlcw0KDQojIyMgR3JhZmljYQ0KcGxvdChBbHR1cmEsUGVzbywgbWFpbiA9ICJJTUMiLCB4bGFiID0gIkFsdHVyYSIsIHlsYWIgPSAiUGVzbyIsIHR5cGUgPSAiYiIpDQpwbG90DQpgYGANCiMgQ29uY2x1c2lvbmVzDQoqKlIqKiBlcyB1biBsZW5ndWFqZSBkZSBwcm9ncmFtYWNpw7NuIMO6dGlsIHBhcmEgcmVhbGl6YXIgY8OhbGN1bG9zLCBwcmluY2lwYWxtZW50ZSBlc3RhZMOtc3RpY29zLCB5IGZvcm1hIHBhcnRlIGRlIGxhcyBoZXJyYW1pZW50YXMgZGVsICoqQmlnIERhdGEqKi4gIA0KDQoqUiBTdHVkaW8qIGVzIGVsIGVudG9ybm8gZW4gZG9uZGUgc2UgcHVlZGUgcHJvZ3JhbWFyICoqUioqLCB5IGdyYWNpYXMgYSBxdWUgdGFtYmnDqW4gYXF1w60gc2UgcHVlZGUgcHJvZ3JhbWFyICoqUHl0aG9uKiosIGVuIGp1bGlvIGRlbCAyMDIzIHNlIGFudW5jacOzIHN1IG51ZXZvIG5vbWJyZTogKipQb3NpdCoqLiAgDQpFbiBlc3RhIGludHJvZHVjY2nDs24gbG8gcXVlIGxsYW1hIGxhIGF0ZW5jacOzbiBlcyBsYSBjb25zdGFudGUgYXBhcmljacOzbiBkZSBhbGVydGFzIG8gZXJyb3JlcyBlbiBlbCBwcm9ncmFtYSwgbG9zIGN1YWxlcyBlbmNvbnRyYW1vcyBxdWUgcHJpbmNpcGxhbWVudGUgc2UgZGViZW4gYSBxdWUgbGEgdmVyc2nDs24gZGUgKipSKiogbm8gZXMgbGEgbcOhcyByZWNpZW50ZSwgYSBsYSBmYWx0YXIgZGUgaW5zdGFsYWNpw7NuIGRlIHBhcXVldGVzIG8gbGxhbWFyIGEgbGFzIGxpYnJlcmlhcywgcHJvYmxlbWFzIGRlIGVzY3JpdHVyYSAoKnR5cG9zKikNCg0KU2kgZGVzZGUgdW4gaW5pY2lvIHByb2dyYW1hbW9zIGRlIGZvcm1hIGVzdHJ1Y3R1cmFkYSwgZGlzY2lwbGluYWRhIHkgbWV0aWN1bG9zYSwgcG9kZW1vcyBwcmV2ZWVyIG11Y2hhcyBkZSBsYXMgYWxlcnRhcyBvIGVycm9yZXMgeSBhc8OtIG9idGVuZHJlbW9zIGxvcyBtdWNob3MgYmVuZWZpY2lvcyBkZSBsYSBwcm9ncmFtYWNpw7NuIGVuICpSKiwgY29tbyBsb3MgcHJvbsOzc3RpY29zIGRlIHByZWRpY2Npw7NuLg0KDQoNCg0K