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 

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

Ejercicio 1

nombre <- c("Juan","Pedro","Jose","Ana","Sara")
peso <- c(70,75,80,85,90)
altura <- c(1.60,1.70,1.80,1.90,2.00)

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

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

df
##   nombre peso altura      IMC
## 1   Juan   70    1.6 27.34375
## 2  Pedro   75    1.7 25.95156
## 3   Jose   80    1.8 24.69136
## 4    Ana   85    1.9 23.54571
## 5   Sara   90    2.0 22.50000
summary(df)
##     nombre               peso        altura         IMC       
##  Length:5           Min.   :70   Min.   :1.6   Min.   :22.50  
##  Class :character   1st Qu.:75   1st Qu.:1.7   1st Qu.:23.55  
##  Mode  :character   Median :80   Median :1.8   Median :24.69  
##                     Mean   :80   Mean   :1.8   Mean   :24.81  
##                     3rd Qu.:85   3rd Qu.:1.9   3rd Qu.:25.95  
##                     Max.   :90   Max.   :2.0   Max.   :27.34
# Estamos muy gordos.

plot(altura,peso,main="Relación del peso y la altura en el ejercicio 1")

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 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.

LS0tDQp0aXRsZTogIkNvbWFuZG9zIELDoXNpY29zIg0KYXV0aG9yOiAiQWRyacOhbiBHYXJ6YSAtIEEwMTI4NTQxMiINCmRhdGU6ICIyMDI0LTAyLTE1Ig0Kb3V0cHV0OiANCiAgaHRtbF9kb2N1bWVudDoNCiAgICB0b2M6IFRSVUUNCiAgICB0b2NfZmxvYXQ6IFRSVUUNCiAgICBjb2RlX2Rvd25sb2FkOiBUUlVFDQotLS0NCg0KIVtdKEM6XFxVc2Vyc1xcQm9vdENhbXBcXERvd25sb2Fkc1xcTWF0ZS5qcGcpDQoNCiMgQXNpZ25hY2nDs24gZGUgdmFyaWFibGVzDQpgYGB7cn0NCnggPC0gMw0KeSA8LSAyDQpgYGANCg0KIyBJbXByZXNpw7NuIGRlIHJlc3VsdGFkb3MNCmBgYHtyfQ0KeA0KeQ0KDQpgYGANCg0KIyBPcGVyYWNpb25lcyBhcml0bcOpdGljYXMNCmBgYHtyfQ0Kc3VtYSA8LSB4ICsgeSANCnN1bWENCg0KcmVzdGEgPC0geCAtIHkNCnJlc3RhDQoNCm11bHRpcGxpY2FjaW9uIDwtIHggKiB5IA0KbXVsdGlwbGljYWNpb24NCg0KZGl2aXNpb24gPC0geC95DQpkaXZpc2lvbg0KDQpkaXZpc2lvbl9lbnRlcmEgPC0geCAlLyUgeSANCmRpdmlzaW9uX2VudGVyYQ0KDQpyZXNpZHVvIDwtIHggJSUgeSANCnJlc2lkdW8NCg0KcG90ZW5jaWEgPC0geCBeIDIgDQoNCmBgYA0KDQojIEZ1bmNpb25lcyBtYXRlbcOhdGljYXMNCmBgYHtyfQ0KcmFpel9jdWFkcmFkYSA8LSBzcXJ0KHgpDQpyYWl6X2N1YWRyYWRhDQoNCnJhaXpfY3ViaWNhIDwtIHggXiAoMS8zKQ0KcmFpel9jdWJpY2ENCg0KZXhwb25lbmNpYWwgPC0gZXhwICgxKQ0KZXhwb25lbmNpYWwNCg0KYWJzb2x1dG8gPC0gYWJzKHgpDQphYnNvbHV0bw0KDQpzaWduIDwtIHNpZ24oeCkNCnNpZ24NCg0KcmVkb25kZW9fYXJyaWJhIDwtIGNlaWxpbmcgKHgveSkNCnJlZG9uZGVvX2FycmliYQ0KDQpyZWRvbmRlb19hYmFqbyA8LSBmbG9vciAoeC95KQ0KcmVkb25kZW9fYWJham8NCg0KdHJ1bmNhciA8LSB0cnVuYyh4L3kpDQp0cnVuY2FyDQpgYGANCg0KIyBDb25zdGFudGVzDQpgYGB7cn0NCnBpDQpyYWRpbyA8LSA1DQphcmVhX2NpcmN1bG8gPC0gcGkgKiByYWRpbyBeMg0KYXJlYV9jaXJjdWxvDQpgYGANCg0KIyBWZWN0b3Jlcw0KYGBge3J9DQphIDwtIGMoMSwyLDMsNCw1KQ0KYSANCg0Kbm9tYnJlIDwtIGMoIkpvc2UiLCJBbmEiLCJKdWFuIikNCm5vbWJyZQ0KDQpsb25naXR1ZCA8LSBsZW5ndGggKGEpDQpsb25naXR1ZA0KDQpsb25naXR1ZF9ub21icmUgPC0gbGVuZ3RoIChub21icmUpDQpsb25naXR1ZF9ub21icmUNCg0KcHJvbWVkaW8gPC0gbWVhbihhKQ0KcHJvbWVkaW8NCg0KcmVzdW1lbiA8LSBzdW1tYXJ5KGEpDQpyZXN1bWVuDQoNCm9yZGVuX2FzY2VuZGVudGUgPC0gc29ydChhLCBkZWNyZWFzaW5nPVRSVUUpDQpvcmRlbl9hc2NlbmRlbnRlDQoNCm9yZGVuX2Rlc2NlbmRlbnRlIDwtIHNvcnQoYSwgZGVjcmVhc2luZz1UUlVFKQ0Kb3JkZW5fZGVzY2VuZGVudGUNCj9zb3J0DQoNCmIgPC0gYygxLDIsMyw0LDUpDQpiIA0KDQpzdW1hX3ZlY3RvcmVzIDwtIGErYiANCnN1bWFfdmVjdG9yZXMNCg0KcGxvdChhLGIsbWFpbj0iVmVudGFzIFRvdGFsZXMiLHhsYWI9IlNlbWFuYSIseWxhYj0iTWlsbG9uZXMgZGUgVVNEIikNCmBgYA0KDQojIEVqZXJjaWNpbyAxDQpgYGB7cn0NCm5vbWJyZSA8LSBjKCJKdWFuIiwiUGVkcm8iLCJKb3NlIiwiQW5hIiwiU2FyYSIpDQpwZXNvIDwtIGMoNzAsNzUsODAsODUsOTApDQphbHR1cmEgPC0gYygxLjYwLDEuNzAsMS44MCwxLjkwLDIuMDApDQoNCmRmIDwtIGRhdGEuZnJhbWUobm9tYnJlLHBlc28sYWx0dXJhKQ0KDQpkZiRJTUMgPC0gcGVzby8oYWx0dXJhKmFsdHVyYSkNCg0KZGYNCnN1bW1hcnkoZGYpDQojIEVzdGFtb3MgbXV5IGdvcmRvcy4NCg0KcGxvdChhbHR1cmEscGVzbyxtYWluPSJSZWxhY2nDs24gZGVsIHBlc28geSBsYSBhbHR1cmEgZW4gZWwgZWplcmNpY2lvIDEiKQ0KYGBgDQoNCiMgQ29uY2x1c2lvbmVzIA0KKipSKiogZXMgdW4gbGVuZ3VhamUgZGUgcHJvZ3JhbWFjacOzbiDDunRpbCBwYXJhIHJlYWxpemFyIGPDoWxjdWxvcywgcHJpbmNpcGFsbWVudGUgZXN0YWTDrXN0aWNvcyx5IGZvcm1hIHBhcnRlIGRlIGxhcyBoZXJyYW1pZW50YXMgZGVsICpCaWcgRGF0YSouDQoNCipSIFN0dWRpbyogZXMgZWwgZW50b3JubyBlbiBkb25kZSBzZSBwdWVkZSBwcm9ncmFtYXIgKipSKiosIHkgZ3JhY2lhcyBhIHF1ZSB0YW1iacOpbiBhcXXDrSBzZSBwdWVkZSBwcm9ncmFtYXIgKipQeXRob24qKiwgZW4ganVsaW8gZGVsIDIwMjMgc2UgYW51bmNpw7Mgc3UgbnVldm8gbm9tYnJlOiAqKlBvc2l0KiouDQoNCkVuIGVzdGEgaW50cm9kdWNjacOzbiwgbG8gcXVlIGxsYW1hIGxhIGF0ZW5jacOzbiBlcyBsYSBjb25zdGFudGUgYXBhcmljacOzbiBkZSBhbGVydGFzIG8gZXJyb3JlcyBlbiBlbCBwcm9ncmFtYSwgbG9zIGN1YWxlcyBlbmNvbnRyYW1vcyBxdWUgcHJpbmNpcGFsbWVudGUgc2UgZGViZW4gYSBxdWUgbGEgdmVyc2nDs24gZGUgKipSKiogbm8gZXMgbGEgbcOhcyByZWNpZW50ZSwgYSBsYSBmYWx0YSBkZSBpbnN0YWxhY2nDs24gZGUgcGFxdWV0ZXMgbyBsbGFtYXIgYSBsYXMgbGlicmVyw61hcywgcHJvYmxlbWFzIGRlIGVzY3JpdHVyYSAoKnR5cG9zKikgeSBsb3MgbXVjaG9zIGFyZ3VtZW50b3MgcXVlIHRpZW5lbiBsYXMgZnVuY2lvbmVzLg0KDQpTaSBkZXNkZSB1biBpbmljaW8gcHJvZ3JhbWFtb3MgZGUgZm9ybWEgZXN0cnVjdHVyYWRhLCBkaXNjaXBsaW5hZGEgeSBtZXRpY3Vsb3NhLCBwb2RlbW9zIHByZXZlZXIgbXVjaGFzIGRlIGxhcyBhbGVydGFzIG8gZXJyb3JlcyB5IGFzw60gb2J0ZW5kcmVtb3MgbG9zIG11Y2hvcyBiZW5lZmljaW9zIGRlIGxhIHByb2dyYW1hY2nDs24gZW4gKlIqLCBjb21vIGxvcyBwcm9uw7NzdGljb3MgZGUgcHJlZGljY2nDs24uICANCg0K