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_cuadrada <-x**(1/3)
raiz_cuadrada
## [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
suma_vectores <- a+b
suma_vectores
## [1]  2  4  6  8 10
plot(a,b,main="Ventas Totales",xlab="Semana",ylab="Millones de USD")

EJERCICO 1

nombres <- c("Carolina","Adrian","Kevin", "Rafaela", "Camila")
peso <- c(63,83,100,56,54)
altura <-  c(1.63,1.76,1.86,1.59,1.54)

df <- data.frame(nombres,peso,altura)

df$IMC <- peso/(altura*altura)

df
##    nombres peso altura      IMC
## 1 Carolina   63   1.63 23.71184
## 2   Adrian   83   1.76 26.79494
## 3    Kevin  100   1.86 28.90508
## 4  Rafaela   56   1.59 22.15102
## 5   Camila   54   1.54 22.76944
summary(df)
##    nombres               peso           altura           IMC       
##  Length:5           Min.   : 54.0   Min.   :1.540   Min.   :22.15  
##  Class :character   1st Qu.: 56.0   1st Qu.:1.590   1st Qu.:22.77  
##  Mode  :character   Median : 63.0   Median :1.630   Median :23.71  
##                     Mean   : 71.2   Mean   :1.676   Mean   :24.87  
##                     3rd Qu.: 83.0   3rd Qu.:1.760   3rd Qu.:26.79  
##                     Max.   :100.0   Max.   :1.860   Max.   :28.91
# NO ESTAMOS TAN GORDOS 

plot(altura,peso)

Conclusiones

R es un lenguaje de progrmación útil para realizar calculos principalmente estadísticos, y forma parte de las herramientaass del Big Data.

R Studio es el entorno en donde se puede programar R, y gracias a que también aqui se ppuede programar en Python, en julio del 2023 se anunció su nuevo nombre: Posit.

En esta introducción, lo que llama la atención es l 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 falra 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.

LS0tDQp0aXRsZTogIkNvbWFuZG9zIELDoXNpY29zIg0KYXV0aG9yOiAiS2V2aW4gTWV6YSBNZWRpbmEgLSBBMDA4MzYxMTMiDQpkYXRlOiAiMjAyNC0wMi0xNSINCm91dHB1dDogDQogIGh0bWxfZG9jdW1lbnQ6DQogICAgdG9jOiBUUlVFDQogICAgdG9jX2Zsb2F0OiBUUlVFDQogICAgY29kZV9kb3dubG9hZDogVFJVRQ0KLS0tDQoNCiFbXShDOlxcVXNlcnNcXDUyNjY0XFxEb3dubG9hZHNcXHBuZy10cmFuc3BhcmVudC1jb21wdXRlci1pY29ucy1hZGRpdGlvbi1zaWduLXBhdGllbnQtaWNvbi1wbHVzLWNyb3NzLXNpZ24tdGh1bWJuYWlsLnBuZykNCg0KIyBBc2lnbmFjacOzbiBkZSB2YXJpYWJsZXMgDQpgYGB7cn0NCng8LSAzDQp5PC0gMg0KYGBgDQoNCiMgSW1wcmVzacOzbiBkZSByZXN1bHRhZG9zIA0KYGBge3J9DQp4DQp5DQpgYGANCg0KIyBPcGVyYWNpb25lcyBhcml0bcOpdGljYXMNCmBgYHtyfQ0Kc3VtYSA8LXggK3kNCnN1bWENCg0KcmVzdGEgPC0geCAteQ0KcmVzdGENCg0KbXVsdGlwbGljYWNpb24gPC14ICogeQ0KbXVsdGlwbGljYWNpb24NCg0KZGl2aXNpb24gPC14L3kNCmRpdmlzaW9uDQoNCmRpdmlzaW9uX2VudGVyYSA8LSB4ICUvJSB5DQpkaXZpc2lvbl9lbnRlcmENCg0KcmVzaWR1byA8LXggJSUgeQ0KcmVzaWR1byANCg0KcG90ZW5jaWEgPC14IF4gMg0KcG90ZW5jaWENCmBgYA0KDQojIEZ1bmNpb25lcyBtYXRlbcOhdGljYXMNCmBgYHtyfQ0KcmFpel9jdWFkcmFkYSA8LXNxcnQgKHgpDQpyYWl6X2N1YWRyYWRhDQoNCnJhaXpfY3VhZHJhZGEgPC14KiooMS8zKQ0KcmFpel9jdWFkcmFkYQ0KDQpleHBvbmVuY2lhbCA8LWV4cCAoMSkNCmV4cG9uZW5jaWFsDQoNCmFic29sdXRvIDwtIGFicyAoeCkNCmFic29sdXRvDQoNCnNpZ25vIDwtIHNpZ24oeCkNCnNpZ25vDQoNCnJlZG9uZGVvX2FycmliYSA8LSBjZWlsaW5nICh4L3kpDQpyZWRvbmRlb19hcnJpYmENCg0KcmVkb25kZW9fYWJham8gPC0gZmxvb3IoeC95KQ0KcmVkb25kZW9fYWJham8NCg0KdHJ1bmNhciA8LSB0cnVuYyh4L3kpDQp0cnVuY2FyDQpgYGANCg0KIyBDb25zdGFudGVzDQpgYGB7cn0NCnBpDQpyYWRpbyA8LTUNCmFyZWFfY2lyY3VsbyA8LXBpKnJhZGlvKioyDQphcmVhX2NpcmN1bG8NCmBgYA0KDQojIFZlY3RvcmVzIA0KYGBge3J9DQphIDwtIGMoMSwyLDMsNCw1KQ0KYQ0KDQpub21icmUgPC0gYygiSm9zZSIsICJBbmEiLCAiSnVhbiIpDQpub21icmUNCg0KbG9uZ2l0dWQgPC0gbGVuZ3RoKGEpDQpsb25naXR1ZA0KDQpsb25naXR1ZF9ub21icmUgPC0gbGVuZ3RoKG5vbWJyZSkNCmxvbmdpdHVkX25vbWJyZQ0KDQpwcm9tZWRpbyA8LSBtZWFuKGEpDQpwcm9tZWRpbw0KDQpyZXN1bWVuIDwtIHN1bW1hcnkoYSkNCnJlc3VtZW4NCg0Kb3JkZW5fYXNjZW5kZW50ZSA8LSBzb3J0KGEpDQpvcmRlbl9hc2NlbmRlbnRlDQoNCm9yZGVuX2Rlc2NlbmRlbnRlIDwtIHNvcnQoYSxkZWNyZWFzaW5nID0gVFJVRSkNCm9yZGVuX2Rlc2NlbmRlbnRlDQojID9zb3J0DQoNCmIgPC0gYygxLDIsMyw0LDUpDQpiDQoNCnN1bWFfdmVjdG9yZXMgPC0gYStiDQpzdW1hX3ZlY3RvcmVzDQoNCnBsb3QoYSxiLG1haW49IlZlbnRhcyBUb3RhbGVzIix4bGFiPSJTZW1hbmEiLHlsYWI9Ik1pbGxvbmVzIGRlIFVTRCIpDQpgYGANCg0KIyBFSkVSQ0lDTyAxDQpgYGB7cn0NCm5vbWJyZXMgPC0gYygiQ2Fyb2xpbmEiLCJBZHJpYW4iLCJLZXZpbiIsICJSYWZhZWxhIiwgIkNhbWlsYSIpDQpwZXNvIDwtIGMoNjMsODMsMTAwLDU2LDU0KQ0KYWx0dXJhIDwtICBjKDEuNjMsMS43NiwxLjg2LDEuNTksMS41NCkNCg0KZGYgPC0gZGF0YS5mcmFtZShub21icmVzLHBlc28sYWx0dXJhKQ0KDQpkZiRJTUMgPC0gcGVzby8oYWx0dXJhKmFsdHVyYSkNCg0KZGYNCnN1bW1hcnkoZGYpDQojIE5PIEVTVEFNT1MgVEFOIEdPUkRPUyANCg0KcGxvdChhbHR1cmEscGVzbykNCg0KDQpgYGANCg0KIyBDb25jbHVzaW9uZXMgDQoqKlIqKiBlcyB1biBsZW5ndWFqZSBkZSBwcm9ncm1hY2nDs24gw7p0aWwgcGFyYSByZWFsaXphciBjYWxjdWxvcyBwcmluY2lwYWxtZW50ZSBlc3RhZMOtc3RpY29zLCB5IGZvcm1hIHBhcnRlIGRlIGxhcyBoZXJyYW1pZW50YWFzcyBkZWwgKkJpZyBEYXRhKi4NCg0KKlIgU3R1ZGlvKiBlcyBlbCBlbnRvcm5vIGVuIGRvbmRlIHNlIHB1ZWRlIHByb2dyYW1hciAqKlIqKiwgeSBncmFjaWFzIGEgcXVlIHRhbWJpw6luIGFxdWkgc2UgcHB1ZWRlIHByb2dyYW1hciBlbiAqKlB5dGhvbioqLCBlbiBqdWxpbyBkZWwgMjAyMyBzZSBhbnVuY2nDsyBzdSBudWV2byBub21icmU6ICoqUG9zaXQqKi4NCg0KRW4gZXN0YSBpbnRyb2R1Y2Npw7NuLCBsbyAgcXVlIGxsYW1hIGxhIGF0ZW5jacOzbiBlcyBsIGNvbnN0YW50ZSBhcGFyaWNpw7NuIGRlIGFsZXJ0YXMgbyBlcnJvcmVzIGVuIGVsIHByb2dyYW1hLCBsb3MgY3VhbGVzIGVuY29udHJhbW9zIHF1ZSBwcmluY2lwYWxtZW50ZSBzZSBkZWJlbiBhIHF1ZSBsYSB2ZXJzacOzbiBkZSAqKlIqKiBubyBlcyBsYSBtw6FzIHJlY2llbnRlLCBhIGxhIGZhbHJhIGRlIGluc3RhbGFjacOzbiBkZSBwYXF1ZXRlcyBvIGxsYW1hciBhIGxhcyBsaWJyZXLDrWFzLCBwcm9ibGVtYXMgZGUgZXNjcml0dXJhICgqdHlwb3MqKSB5IGxvcyBtdWNob3MgYXJndW1lbnRvcyBxdWUgdGllbmVuIGxhcyBmdW5jaW9uZXMuDQoNClNpIGRlc2RlIHVuIGluaWNpbyBwcm9ncmFtYW1vcyBkZSBmb3JtYSBlc3RydWN0dXJhZGEsIGRpc2NpcGxpbmFkYSB5IG1ldGljdWxvc2EsIHBvZGVtb3MgcHJldmVlciBtdWNoYXMgZGUgbGFzIGFsZXJ0YXMgbyBlcnJvcmVzIHkgYXPDrSBvYnRlbmRyZW1vcyBsb3MgbXVjaG9zIGJlbmVmaWNpb3MgZGUgbGEgcHJvZ3JhbWFjacOzbiBlbiAqUiosIGNvbW8gbG9zIHByb27Ds3N0aWNvcyBkZSBwcmVkaWNjacOzbi4g