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

#Presenta un resultado sin signo

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

Ejercicio 1

nombre <- c("Alberto", "Oscar", "Salva", "María","Iker")
peso<- c(85, 90, 97, 60, 90)
altura<- c(1.85,1.80,1.90,1.60,1.90)

df <- data.frame(nombre,peso,altura)
df$IMC <- peso/(altura*altura)
df
##    nombre peso altura      IMC
## 1 Alberto   85   1.85 24.83565
## 2   Oscar   90   1.80 27.77778
## 3   Salva   97   1.90 26.86981
## 4   María   60   1.60 23.43750
## 5    Iker   90   1.90 24.93075
summary(df)
##     nombre               peso          altura          IMC       
##  Length:5           Min.   :60.0   Min.   :1.60   Min.   :23.44  
##  Class :character   1st Qu.:85.0   1st Qu.:1.80   1st Qu.:24.84  
##  Mode  :character   Median :90.0   Median :1.85   Median :24.93  
##                     Mean   :84.4   Mean   :1.81   Mean   :25.57  
##                     3rd Qu.:90.0   3rd Qu.:1.90   3rd Qu.:26.87  
##                     Max.   :97.0   Max.   :1.90   Max.   :27.78
# Estamos ok
plot(altura,peso)

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 dónde 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 introdució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 prever muchas de las alertas o errores y así obtenderemos los muchos beneficios de la programación en R como los pronósticos de predicción.

LS0tDQp0aXRsZTogIkNvbWFuZG9zIELDoXNpY29zIg0KYXV0aG9yOiAiSWtlciBWaWxsYWZhw7FhIEEwMDU3Mzc1NiINCmRhdGU6ICIyMDI0LTAyLTE1Ig0Kb3V0cHV0OiANCiAgaHRtbF9kb2N1bWVudDoNCiAgICB0b2M6IFRSVUUNCiAgICB0b2NfZmxvYXQ6IFRSVUUNCiAgICBjb2RlX2Rvd25sb2FkOiBUUlVFDQotLS0NCg0KIVtdKEM6XFxVc2Vyc1xcVXN1YXJpb1xcRG93bmxvYWRzXFxpbWFnZTExLTEuZ2lmKQ0KDQojIEFzaWduYWNpw7NuIGRlIHZhcmlhYmxlcw0KYGBge3J9DQp4IDwtIDMNCnkgPC0gMg0KYGBgDQoNCiNJbXByZXNpw7NuIGRlIHJlc3VsdGFkb3MNCmBgYHtyfQ0KeA0KeQ0KYGBgDQoNCiMgT3BlcmFjaW9uZXMgYXJpdG3DqXRpY2FzDQpgYGB7cn0NCnN1bWEgPC0geCArIHkNCnN1bWENCg0KcmVzdGEgPC0geCAtIHkNCnJlc3RhDQoNCm11bHRpcGxpY2FjaW9uIDwtIHggKiB5DQptdWx0aXBsaWNhY2lvbg0KDQpkaXZpc2lvbiA8LSB4L3kNCmRpdmlzaW9uDQoNCmRpdmlzaW9uX2VudGVyYSA8LSB4ICUvJSB5DQpkaXZpc2lvbl9lbnRlcmENCg0KcmVzaWR1byA8LSB4ICUlIHkNCnJlc2lkdW8NCg0KcG90ZW5jaWEgPC0geCAqKiAyDQpwb3RlbmNpYQ0KYGBgDQoNCiMgRnVuY2lvbmVzIG1hdGVtw6F0aWNhcw0KYGBge3J9DQpyYWl6X2N1YWRyYWRhIDwtIHNxcnQoeCkNCnJhaXpfY3VhZHJhZGENCg0KcmFpel9jdWJpY2EgPC0geCAqKiAoMS8zKQ0KcmFpel9jdWJpY2ENCg0KZXhwb25lbmNpYWwgPC0gZXhwICgxKQ0KZXhwb25lbmNpYWwNCmBgYA0KDQojUHJlc2VudGEgdW4gcmVzdWx0YWRvIHNpbiBzaWdubw0KYGBge3J9DQphYnNvbHV0bzwtIGFicyh4KQ0KYWJzb2x1dG8NCg0Kc2lnbm8gPC0gc2lnbiAoeCkNCnNpZ25vDQoNCnJlZG9uZGVvX2FycmliYSA8LSBjZWlsaW5nICh4L3kpDQpyZWRvbmRlb19hcnJpYmENCg0KcmVkb25kZW9fYWJham8gPC0gZmxvb3IgKHgveSkNCnJlZG9uZGVvX2FiYWpvDQoNCnRydW5jYXIgPC0gdHJ1bmMoeC95KQ0KdHJ1bmNhcg0KYGBgDQoNCiMgQ29uc3RhbnRlcw0KYGBge3J9DQpwaQ0KcmFkaW88LSA1DQphcmVhX2NpcmN1bG88LSBwaSAqIHJhZGlvKioyDQphcmVhX2NpcmN1bG8NCmBgYA0KDQojIFZlY3RvcmVzDQpgYGB7cn0NCmEgPC0gYygxLDIsMyw0LDUpDQphDQoNCm5vbWJyZSA8LSBjKCJKb3NlIiwiQW5hIiwiSnVhbiIpDQpub21icmUNCg0KbG9uZ2l0dWQgPC0gbGVuZ3RoIChhKQ0KbG9uZ2l0dWQNCg0KbG9uZ2l0dWRfbm9tYnJlPC0gbGVuZ3RoKG5vbWJyZSkNCmxvbmdpdHVkX25vbWJyZQ0KDQpwcm9tZWRpbzwtIG1lYW4oYSkNCnByb21lZGlvDQoNCnJlc3VtZW48LSBzdW1tYXJ5KGEpDQpyZXN1bWVuDQoNCm9yZGVuX2FzY2VuZGVudGU8LSBzb3J0KGEpDQpvcmRlbl9hc2NlbmRlbnRlDQoNCm9yZGVuX2Rlc2NlbmRlbnRlPC0gc29ydChhLCBkZWNyZWFzaW5nID0gVFJVRSkNCm9yZGVuX2Rlc2NlbmRlbnRlDQpgYGANCiANCiMgRWplcmNpY2lvIDENCmBgYHtyfQ0Kbm9tYnJlIDwtIGMoIkFsYmVydG8iLCAiT3NjYXIiLCAiU2FsdmEiLCAiTWFyw61hIiwiSWtlciIpDQpwZXNvPC0gYyg4NSwgOTAsIDk3LCA2MCwgOTApDQphbHR1cmE8LSBjKDEuODUsMS44MCwxLjkwLDEuNjAsMS45MCkNCg0KZGYgPC0gZGF0YS5mcmFtZShub21icmUscGVzbyxhbHR1cmEpDQpkZiRJTUMgPC0gcGVzby8oYWx0dXJhKmFsdHVyYSkNCmRmDQpzdW1tYXJ5KGRmKQ0KIyBFc3RhbW9zIG9rDQpwbG90KGFsdHVyYSxwZXNvKQ0KYGBgDQoNCg0KIyBDb25jbHVzaW9uZXMNCioqUioqIGVzIHVuIGxlbmd1YWplIGRlIHByb2dyYW1hY2nDs24gw7p0aWwgcGFyYSByZWFsaXphciBjw6FsY3Vsb3MsIHByaW5jaXBhbG1lbnRlIGVzdGFkw61zdGljb3MsIHkgZm9ybWEgcGFydGUgZGUgbGFzIGhlcnJhbWllbnRhcyBkZWwgKkJpZyBEYXRhKi4NCg0KKlIgU3R1ZGlvKiBlcyBlbCBlbnRvcm5vIGTDs25kZSBzZSBwdWVkZSBwcm9ncmFtYXIgKipyKiosIHkgZ3JhY2lhcyBhIHF1ZSB0YW1iacOpbiBhcXXDrSBzZSBwdWVkZSBwcm9ncmFtYXIgKipQeXRob24qKiwgZW4ganVsaW8gZGVsIDIwMjMgc2UgYW51bmNpw7Mgc3UgbnVldm8gbm9tYnJlOiAqKlBvc2l0KiouDQoNCkVuIGVzdGEgaW50cm9kdWNpw7NuLCBsbyBxdWUgbGxhbWEgbGEgYXRlbmNpw7NuIGVzIGxhIGNvbnN0YW50ZSBhcGFyaWNpw7NuIGRlIGFsZXJ0YXMgbyBlcnJvcmVzIGVuIGVsIHByb2dyYW1hLCBsb3MgY3VhbGVzIGVuY29udHJhbW9zIHF1ZSBwcmluY2lwYWxtZW50ZSBzZSBkZWJlbiBhIHF1ZSBsYSB2ZXJzacOzbiBkZSAqKlIqKiBubyBlcyBsYSBtw6FzIHJlY2llbnRlLCBhIGxhIGZhbHRhIGRlIGluc3RhbGFjacOzbiBkZSBwYXF1ZXRlcyBvIGxsYW1hciBhIGxhcyBsaWJyZXLDrWFzLCBwcm9ibGVtYXMgZGUgZXNjcml0dXJhICgqdHlwb3MqKSB5IGxvcyBtdWNob3MgYXJndW1lbnRvcyBxdWUgdGllbmVuIGxhcyBmdW5jaW9uZXMuDQoNClNpIGRlc2RlIHVuIGluaWNpbyBwcm9ncmFtYW1vcyBkZSBmb3JtYSBlc3RydWN0dXJhZGEsIGRpc2NpcGxpbmFkYSB5IG1ldGljdWxvc2EsIHBvZGVtb3MgcHJldmVyIG11Y2hhcyBkZSBsYXMgYWxlcnRhcyBvIGVycm9yZXMgeSBhc8OtIG9idGVuZGVyZW1vcyBsb3MgbXVjaG9zIGJlbmVmaWNpb3MgZGUgbGEgcHJvZ3JhbWFjacOzbiBlbiAqKlIqKiBjb21vIGxvcyBwcm9uw7NzdGljb3MgZGUgcHJlZGljY2nDs24uDQo=