Asignación de variables

x <- 3
y <- 2

Operaciones artitmé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
## starting httpd help server ... done
b <- c(1,2,3,4,5)
b
## [1] 1 2 3 4 5
extracto <- b
extracto
## [1] 1 2 3 4 5
suma_vectores <- a+b
suma_vectores
## [1]  2  4  6  8 10
plot(a,b, main="Ventas Totales", xlab="Semana", ylab="Millones de DLS")

Ejercicio 1

nombre <- c("Salvador","Luis","Rafaella","Camila","Derek")
altura <- c(1.90, 1.70, 1.59, 1.54, 1.90)
peso <- c(102,70,56,54,90)
  
imc <- peso/altura**2
imc
## [1] 28.25485 24.22145 22.15102 22.76944 24.93075
tabla <- data.frame(Nombre = nombre, Altura = altura, Peso = peso, IMC = imc)
View (tabla)

#Nuestro grupo se encuentra por debajo de la media.

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 principalmente se deben a que la versión de R no es la maá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 tiene las funciones.

Si desde un inicio programamos de forma estructurada, disciplinada y meticulosa, podemos prever 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.

LS0tDQp0aXRsZTogIkNvbWFuZG9zIELDoXNpY29zIg0KYXV0aG9yOiAiU2FsdmFkb3IgTmFydsOhZXogLSBBMDA1NzE4NDgiDQpkYXRlOiAiMjAyNC0wMi0xNSINCm91dHB1dDogDQogaHRtbF9kb2N1bWVudDoNCiAgIHRvYzogVFJVRQ0KICAgdG9jX2Zsb2F0OiBUUlVFDQogICBjb2RlX2Rvd25sb2FkOiBUUlVFDQogICB0aGVtZTogY2VydWxlYW4NCi0tLQ0KDQohW10oRDpcXGNvbWFuZG9zIGJhc2ljby5naWYpDQoNCiMgQXNpZ25hY2nDs24gZGUgdmFyaWFibGVzDQpgYGB7cn0NCnggPC0gMw0KeSA8LSAyDQpgYGANCg0KIyBPcGVyYWNpb25lcyBhcnRpdG3DqXRpY2FzDQpgYGB7cn0NCnN1bWEgPC0geCArIHkNCnN1bWENCg0KcmVzdGEgPC0geCAtIHkNCnJlc3RhDQoNCm11bHRpcGxpY2FjaW9uIDwtIHgqeQ0KbXVsdGlwbGljYWNpb24NCg0KZGl2aXNpb24gPC0geC95DQpkaXZpc2lvbiANCg0KZGl2aXNpb25fZW50ZXJhIDwtIHglLyV5DQpkaXZpc2lvbl9lbnRlcmENCg0KcmVzaWR1byA8LSB4ICUlIHkNCnJlc2lkdW8NCg0KcG90ZW5jaWEgPC0geCoqMg0KcG90ZW5jaWENCmBgYA0KIyBGdW5jaW9uZXMgbWF0ZW3DoXRpY2FzDQpgYGB7cn0NCnJhaXpfY3VhZHJhZGEgPC0gc3FydCh4KQ0KcmFpel9jdWFkcmFkYSANCg0KcmFpel9jdWJpY2EgPC0geCoqKDEvMykNCnJhaXpfY3ViaWNhDQoNCmV4cG9uZW5jaWFsIDwtIGV4cCgxKQ0KZXhwb25lbmNpYWwNCg0KYWJzb2x1dG8gPC0gYWJzKHgpDQphYnNvbHV0bw0KDQpzaWdubyA8LSBzaWduKHgpDQpzaWdubw0KDQpyZWRvbmRlb19hcnJpYmEgPC0gY2VpbGluZyAoeC95KQ0KcmVkb25kZW9fYXJyaWJhIA0KDQpyZWRvbmRlb19hYmFqbyA8LSBmbG9vcih4L3kpDQpyZWRvbmRlb19hYmFqbw0KDQp0cnVuY2FyIDwtICB0cnVuYyh4L3kpDQp0cnVuY2FyDQpgYGANCiMgQ29uc3RhbnRlcw0KYGBge3J9DQpwaQ0KcmFkaW8gPC0gNQ0KYXJlYV9jaXJjdWxvIDwtIHBpKnJhZGlvKioyDQphcmVhX2NpcmN1bG8NCmBgYA0KIyBWZWN0b3Jlcw0KYGBge3J9DQphIDwtIGMoMSwyLDMsNCw1KQ0KYQ0KDQpub21icmUgPC0gYygiSm9zZSIsICJBbmEiLCAiSnVhbiIpDQpub21icmUNCg0KbG9uZ2l0dWQgPC0gbGVuZ3RoIChhKQ0KbG9uZ2l0dWQNCg0KbG9uZ2l0dWRfbm9tYnJlIDwtIGxlbmd0aChub21icmUpDQpsb25naXR1ZF9ub21icmUNCg0KcHJvbWVkaW8gPC0gbWVhbihhKQ0KcHJvbWVkaW8NCg0KcmVzdW1lbiA8LSBzdW1tYXJ5KGEpDQpyZXN1bWVuDQoNCm9yZGVuX2FzY2VuZGVudGUgPC0gc29ydChhKQ0Kb3JkZW5fYXNjZW5kZW50ZQ0KDQpvcmRlbl9kZXNjZW5kZW50ZSA8LSBzb3J0KGEsIGRlY3JlYXNpbmc9VFJVRSkNCm9yZGVuX2Rlc2NlbmRlbnRlDQo/c29ydA0KDQpiIDwtIGMoMSwyLDMsNCw1KQ0KYg0KDQpleHRyYWN0byA8LSBiDQpleHRyYWN0bw0KDQpzdW1hX3ZlY3RvcmVzIDwtIGErYg0Kc3VtYV92ZWN0b3Jlcw0KDQpwbG90KGEsYiwgbWFpbj0iVmVudGFzIFRvdGFsZXMiLCB4bGFiPSJTZW1hbmEiLCB5bGFiPSJNaWxsb25lcyBkZSBETFMiKQ0KYGBgDQoNCiMgRWplcmNpY2lvIDENCmBgYHtyfQ0Kbm9tYnJlIDwtIGMoIlNhbHZhZG9yIiwiTHVpcyIsIlJhZmFlbGxhIiwiQ2FtaWxhIiwiRGVyZWsiKQ0KYWx0dXJhIDwtIGMoMS45MCwgMS43MCwgMS41OSwgMS41NCwgMS45MCkNCnBlc28gPC0gYygxMDIsNzAsNTYsNTQsOTApDQogIA0KaW1jIDwtIHBlc28vYWx0dXJhKioyDQppbWMNCg0KdGFibGEgPC0gZGF0YS5mcmFtZShOb21icmUgPSBub21icmUsIEFsdHVyYSA9IGFsdHVyYSwgUGVzbyA9IHBlc28sIElNQyA9IGltYykNClZpZXcgKHRhYmxhKQ0KDQojTnVlc3RybyBncnVwbyBzZSBlbmN1ZW50cmEgcG9yIGRlYmFqbyBkZSBsYSBtZWRpYS4NCmBgYA0KIyBDb25jbHVzaW9uZXMNCioqUioqIGVzIHVuIGxlbmd1YWplIGRlIHByb2dyYW1hY2nDs24gw7p0aWwgcGFyYSByZWFsaXphciBjw6FsY3Vsb3MsIHByaW5jaXBhbG1lbnRlIGVzdGFkw61zdGljb3MsIHkgZm9ybWEgcGFydGUgZGUgbGFzIGhlcnJhbWllbnRhcyBkZWwgKkJpZyBEYXRhKi4NCg0KKlIgU3R1ZGlvKiBlcyBlbCBlbnRvcm5vIGVuIGRvbmRlIHNlIHB1ZWRlIHByb2dyYW1hciAqKlIqKiwgeSBncmFjaWFzIGEgcXVlIHRhbWJpw6luIGFxdcOtIHNlIHB1ZWRlIHByb2dyYW1hciAqKlB5dGhvbioqLCBlbiBqdWxpbyBkZWwgMjAyMyBzZSBhbnVuY2nDsyBzdSBudWV2byBub21icmU6ICpQb3NpdCouDQoNCkVuIGVzdGEgaW50cm9kdWNjacOzbiwgbG8gcXVlIGxsYW1hIGxhIGF0ZW5jacOzbiBlcyBsYSBjb25zdGFudGUgYXBhcmljacOzbiBkZSBhbGVydGFzIG8gZXJyb3JlcyBlbiBlbCBwcm9ncmFtYSwgbG9zIGN1YWxlcyBlbmNvbnRyYW1vcyBxdWUgcHJpbmNpcGFsbWVudGUgc2UgZGViZW4gYSBxdWUgbGEgdmVyc2nDs24gZGUgKipSKiogbm8gZXMgbGEgbWHDoXMgcmVjaWVudGUsIGEgbGEgZmFsdGEgZGUgaW5zdGFsYWNpw7NuIGRlIHBhcXVldGVzIG8gbGxhbWFyIGEgbGFzIGxpYnJlcsOtYXMsIHByb2JsZW1hcyBkZSBlc2NyaXR1cmEgKCp0eXBvcyopIHkgbG9zIG11Y2hvcyBhcmd1bWVudG9zIHF1ZSB0aWVuZSBsYXMgZnVuY2lvbmVzLiANCg0KU2kgZGVzZGUgdW4gaW5pY2lvIHByb2dyYW1hbW9zIGRlIGZvcm1hIGVzdHJ1Y3R1cmFkYSwgZGlzY2lwbGluYWRhIHkgbWV0aWN1bG9zYSwgcG9kZW1vcyBwcmV2ZXIgbXVjaGFzIGRlIGxhcyBhbGVydGFzIG8gZXJyb3JlcyB5IGFzw60gb2J0ZW5kcmVtb3MgbG9zIG11Y2hvcyBiZW5lZmljaW9zIGRlIGxhIHByb2dyYW1hY2nDs24gZW4gKipSKiogY29tbyBsb3MgcHJvbsOzc3RpY29zIGRlIHByZWRpY2Npw7NuLg0KDQo=