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
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
#Ayuda
#?sort

b <- c(1,2,3,4,5)
b
## [1] 1 2 3 4 5
extracto <- b[3]
extracto
## [1] 3
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("Luis","Salvador","Rafaella","Camila","Derek")
altura <- c(1.71,1.90,1.59,1.54,1.90)
peso <- c(70,102,56,54,90)

imc <- peso / altura**2

Tabla <- data.frame(nombre,peso,altura,imc)

Tabla
##     nombre peso altura      imc
## 1     Luis   70   1.71 23.93899
## 2 Salvador  102   1.90 28.25485
## 3 Rafaella   56   1.59 22.15102
## 4   Camila   54   1.54 22.76944
## 5    Derek   90   1.90 24.93075
summary(Tabla)
##     nombre               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 : 70.0   Median :1.710   Median :23.94  
##                     Mean   : 74.4   Mean   :1.728   Mean   :24.41  
##                     3rd Qu.: 90.0   3rd Qu.:1.900   3rd Qu.:24.93  
##                     Max.   :102.0   Max.   :1.900   Max.   :28.25
#Peso inferior al promedio

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 en donde se puede programar R, y gracias a que también aqui se puede programa Python, en julio del 2023 se anuncio 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 estruturada, 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.

LS0tDQp0aXRsZTogIkNvbWFuZG9zIELDoXNpY29zIg0KYXV0aG9yOiAiTHVpcyBEw6F2aWxhIC0gQTAxMjg1NTIxIg0KZGF0ZTogIjIwMjQtMDItMTUiDQpvdXRwdXQ6IA0KICBodG1sX2RvY3VtZW50Og0KICAgIHRvYzogVFJVRQ0KICAgIHRvY19mbG9hdDogVFJVRQ0KICAgIGNvZGVfZG93bmxvYWQ6IFRSVUUNCi0tLQ0KDQogIVtdKEM6XFxVc2Vyc1xcQWRyacOhblxcRG93bmxvYWRzXFxkYmIzODk4ZjFhOTcyODA5YTQxNDU0ODQwNmYyNGQ2NC1pY29ub3MtZGUtY29sb3Jlcy1kZS1vcGVyYWNpb25lcy5wbmcpDQogDQojIEFzaWduYWNpw7NuIGRlIFZhcmlhYmxlcw0KYGBge3J9DQp4IDwtIDMNCnkgPC0gMiANCmBgYA0KDQojIEltcHJlc2nDs24gZGUgUmVzdWx0YWRvcw0KYGBge3J9DQp4DQp5DQpgYGANCg0KIyBPcGVyYWNpb25lcyBhcml0bcOpdGljYXMNCmBgYHtyfQ0Kc3VtYSA8LSB4ICsgeSANCnN1bWENCg0KcmVzdGEgPC0geCAtIHkNCnJlc3RhIA0KDQptdWx0aXBsaWNhY2lvbiA8LSB4ICogeSANCm11bHRpcGxpY2FjaW9uDQoNCmRpdmlzaW9uIDwtIHgveQ0KZGl2aXNpb24NCg0KZGl2aXNpb25fZW50ZXJhIDwtIHggJS8lIHkgDQpkaXZpc2lvbl9lbnRlcmENCg0KcmVzaWR1byA8LSB4ICUlIHkNCnJlc2lkdW8NCg0KcG90ZW5jaWEgPC0geCBeIDINCnBvdGVuY2lhDQpgYGANCg0KIyBGdW5jaW9uZXMgTWF0ZW3DoXRpY2FzDQpgYGB7cn0NCnJhaXpfY3VhZHJhZGEgPC0gc3FydCh4KQ0KcmFpel9jdWFkcmFkYQ0KDQpyYWl6X2N1YmljYSA8LSB4ICoqICgxLzMpDQpyYWl6X2N1YmljYQ0KDQpleHBvbmVuY2lhbCA8LSBleHAgKDEpICAgICAgICAgICAgDQpleHBvbmVuY2lhbA0KDQphYnNvbHV0byA8LSBhYnMoeCkNCmFic29sdXRvDQoNCnNpZ25vIDwtIHNpZ24oeCkNCnNpZ25vDQoNCnJlZG9uZGVvX2FycmliYSA8LSBjZWlsaW5nICh4L3kpDQpyZWRvbmRlb19hcnJpYmENCg0KcmVkb25kZW9fYWJham8gPC0gZmxvb3IgKHgveSkNCnJlZG9uZGVvX2FiYWpvDQoNCnRydW5jYXIgPC0gdHJ1bmMoeC95KQ0KdHJ1bmNhcg0KYGBgDQoNCiMgQ29uc3RhbnRlcw0KYGBge3J9DQpwaQ0KcmFkaW8gPC0gNQ0KYXJlYV9jaXJjdWxvIDwtIHBpICogcmFkaW8qKjINCmFyZWFfY2lyY3Vsbw0KYGBgDQoNCiMgVmVjdG9yZXMNCmBgYHtyfQ0KYSA8LSBjKDEsMiwzLDQsNSkNCmENCg0Kbm9tYnJlIDwtIGMoIkpvc2UiLCJBbmEiLCJKdWFuIikNCm5vbWJyZQ0KDQpsb25naXR1ZCA8LSBsZW5ndGggKGEpDQpsb25naXR1ZA0KDQpsb25naXR1ZF9ub21icmUgPC0gbGVuZ3RoKG5vbWJyZSkNCmxvbmdpdHVkX25vbWJyZQ0KDQpwcm9tZWRpbyA8LSBtZWFuKGEpDQpwcm9tZWRpbw0KDQpyZXN1bWVuIDwtIHN1bW1hcnkoYSkNCnJlc3VtZW4NCg0Kb3JkZW5fYXNjZW5kZW50ZSA8LSBzb3J0KGEpDQpvcmRlbl9hc2NlbmRlbnRlDQoNCm9yZGVuX2Rlc2NlbmRlbnRlIDwtIHNvcnQoYSxkZWNyZWFzaW5nPVRSVUUpDQpvcmRlbl9kZXNjZW5kZW50ZQ0KDQojQXl1ZGENCiM/c29ydA0KDQpiIDwtIGMoMSwyLDMsNCw1KQ0KYg0KDQpleHRyYWN0byA8LSBiWzNdDQpleHRyYWN0bw0KDQpzdW1hX3ZlY3RvcmVzIDwtIGErYg0Kc3VtYV92ZWN0b3Jlcw0KDQpwbG90KGEsYixtYWluPSJWZW50YXMgVG90YWxlcyIseGxhYj0iU2VtYW5hIix5bGFiPSJNaWxsb25lcyBkZSBVU0QiKQ0KYGBgDQoNCiMgRWplcmNpY2lvIDENCmBgYHtyfQ0Kbm9tYnJlIDwtIGMoIkx1aXMiLCJTYWx2YWRvciIsIlJhZmFlbGxhIiwiQ2FtaWxhIiwiRGVyZWsiKQ0KYWx0dXJhIDwtIGMoMS43MSwxLjkwLDEuNTksMS41NCwxLjkwKQ0KcGVzbyA8LSBjKDcwLDEwMiw1Niw1NCw5MCkNCg0KaW1jIDwtIHBlc28gLyBhbHR1cmEqKjINCg0KVGFibGEgPC0gZGF0YS5mcmFtZShub21icmUscGVzbyxhbHR1cmEsaW1jKQ0KDQpUYWJsYQ0Kc3VtbWFyeShUYWJsYSkNCiNQZXNvIGluZmVyaW9yIGFsIHByb21lZGlvDQoNCnBsb3QoYWx0dXJhLHBlc28pDQpgYGANCg0KIyBDb25jbHVzaW9uZXMNCioqUioqIGVzIHVuIGxlbmd1YWplIGRlIHByb2dyYW1hY2nDs24gw7p0aWwgcGFyYSByZWFsaXphciBjw6FsY3Vsb3MsIHByaW5jaXBhbG1lbnRlIGVzdGFkw61zdGljb3MgeSBmb3JtYSBwYXJ0ZSBkZSBsYXMgaGVycmFtaWVudGFzIGRlbCAqQmlnIERhdGEqLiAgDQoNCipSIFN0dWRpbyogZXMgZWwgZW50b3JubyBlbiBkb25kZSBzZSBwdWVkZSBwcm9ncmFtYXIgKipSKiosIHkgZ3JhY2lhcyBhIHF1ZSB0YW1iacOpbiBhcXVpIHNlIHB1ZWRlIHByb2dyYW1hICoqUHl0aG9uKiosIGVuIGp1bGlvIGRlbCAyMDIzIHNlIGFudW5jaW8gc3UgbnVldm8gbm9tYnJlOiAqKlBvc2l0KiouDQoNCkVuIGVzdGEgaW50cm9kdWNjacOzbiwgbG8gcXVlIGxsYW1hIGxhIGF0ZW5jacOzbiBlcyBsYSBjb25zdGFudGUgYXBhcmljacOzbiBkZSBhbGVydGFzIG8gZXJyb3JlcyBlbiBlbCBwcm9ncmFtYSwgbG9zIGN1YWxlcyBlbmNvbnRyYW1vcyBxdWUgcHJpbmNpcGFsbWVudGUgc2UgZGViZW4gYSBxdWUgbGEgdmVyc2nDs24gZGUgKipSKiogbm8gZXMgbGEgbcOhcyByZWNpZW50ZSwgYSBsYSBmYWx0YSBkZSBpbnN0YWxhY2nDs24gZGUgcGFxdWV0ZXMgbyBsbGFtYXIgYSBsYXMgbGlicmVyw61hcywgcHJvYmxlbWFzIGRlIGVzY3JpdHVyYSAoKnR5cG9zKikgeSBsb3MgbXVjaG9zIGFyZ3VtZW50b3MgcXVlIHRpZW5lbiBsYXMgZnVuY2lvbmVzLiAgDQoNClNpIGRlc2RlIHVuIGluaWNpbyBwcm9ncmFtYW1vcyBkZSBmb3JtYSBlc3RydXR1cmFkYSwgZGlzY2lwbGluYWRhIHkgbWV0aWN1bG9zYSwgcG9kZW1vcyBwcmV2ZWVyIG11Y2hhcyBkZSBsYXMgYWxlcnRhcyBvIGVycm9yZXMgeSBhc8OtIG9idGVuZHJlbW9zIGxvcyBtdWNob3MgYmVuZWZpY2lvcyBkZSBsYSBwcm9ncmFtYWNpw7NuIGVuICpSKiwgY29tbyBsb3MgcHJvbsOzc3RpY29zIGRlIHByZWRpY2Npw7NuLg0K