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
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 Dolares")

Ejercicio 1

nombres <- c("Adrian","Karla", "Maria", "Alma", "Kevin")
altura <- c(1.76, 1.66,1.64,1.61,1.86)
peso <- c(83, 55,50,58,100)

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

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

df
##   nombres altura peso      IMC
## 1  Adrian   1.76   83 26.79494
## 2   Karla   1.66   55 19.95936
## 3   Maria   1.64   50 18.59012
## 4    Alma   1.61   58 22.37568
## 5   Kevin   1.86  100 28.90508
summary(df)
##    nombres              altura           peso            IMC       
##  Length:5           Min.   :1.610   Min.   : 50.0   Min.   :18.59  
##  Class :character   1st Qu.:1.640   1st Qu.: 55.0   1st Qu.:19.96  
##  Mode  :character   Median :1.660   Median : 58.0   Median :22.38  
##                     Mean   :1.706   Mean   : 69.2   Mean   :23.33  
##                     3rd Qu.:1.760   3rd Qu.: 83.0   3rd Qu.:26.79  
##                     Max.   :1.860   Max.   :100.0   Max.   :28.91
#Estamos muy gordos

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

LS0tDQp0aXRsZTogIkNvbWFuZG9zIELDoXNpY29zIg0KYXV0aG9yOiAiQWRyaWFuIE1vcmFsZXMgLSBBMDE3MjI1MzIiDQpkYXRlOiAiMjAyNC0wMi0xNSINCm91dHB1dDogDQogIGh0bWxfZG9jdW1lbnQ6DQogICAgdG9jOiBUUlVFDQogICAgdG9jX2Zsb2F0OiBUUlVFIA0KICAgIGNvZGVfZG93bmxvYWQ6IFRSVUUNCi0tLQ0KDQohW10oQzpcXFVzZXJzXFxhZHJpYVxcT25lRHJpdmVcXEltw6FnZW5lc1xcZ2lwaHkuZ2lmKQ0KDQojIEFzaWduYWNpw7NuIGRlIHZhcmlhYmxlcw0KYGBge3J9DQp4IDwtIDMNCnkgPC0gMg0KYGBgDQoNCiMgSW1wcmVzacOzbiBkZSByZXN1bHRhZG9zDQpgYGB7cn0NCngNCnkNCmBgYA0KDQojT3BlcmFjaW9uZXMgQXJpdG3DqXRpY2FzDQpgYGB7cn0NCnN1bWEgPC0geCArIHkNCnN1bWENCg0KcmVzdGEgPC0geCAtIHkNCnJlc3RhDQoNCm11bHRpcGxpY2FjaW9uIDwtIHggKiB5DQptdWx0aXBsaWNhY2lvbg0KDQpkaXZpc2lvbiA8LSB4IC8geQ0KZGl2aXNpb24NCg0KZGl2aXNpb25fZW50ZXJhIDwtIHggJS8lIHkNCmRpdmlzaW9uX2VudGVyYQ0KDQpyZXNpZHVvIDwtIHggJSUgeQ0KcmVzaWR1bw0KDQpwb3RlbmNpYSA8LSB4ICoqIDINCnBvdGVuY2lhDQoNCmBgYA0KDQojIEZ1bmNpb25lcyBtYXRlbcOhdGljYXMNCmBgYHtyfQ0KcmFpel9jdWFkcmFkYSA8LSBzcXJ0KHgpDQpyYWl6X2N1YWRyYWRhDQoNCnJhaXpfY3ViaWNhIDwtIHggKiogKDEvMykNCnJhaXpfY3ViaWNhDQoNCmV4cG9uZW5jaWFsIDwtIGV4cCgxKQ0KZXhwb25lbmNpYWwNCg0KYWJzb2x1dG8gPC0gYWJzKHgpDQphYnNvbHV0bw0KDQpzaWdubyA8LSBzaWduKHgpDQpzaWdubw0KDQpyZWRvbmRlb19hcnJpYmEgPC0gY2VpbGluZyAoeC95KQ0KcmVkb25kZW9fYXJyaWJhDQoNCnJlZG9uZGVvX2FiYWpvIDwtIGZsb29yICh4L3kpDQpyZWRvbmRlb19hYmFqbw0KDQp0cnVuY2FyIDwtIHRydW5jICh4L3kpDQp0cnVuY2FyDQpgYGANCg0KIyBDb25zdGFudGVzDQpgYGB7cn0NCnBpDQpyYWRpbyA8LSA1DQoNCmFyZWFfY2lyY3VsbyA8LSBwaSAqIHJhZGlvKioyDQphcmVhX2NpcmN1bG8NCmBgYA0KDQojIFZlY3RvcmVzDQpgYGB7cn0NCmEgPC0gYygxLDIsMyw0LDUpDQphDQoNCm5vbWJyZSA8LSBjKCJKb3NlIiwiQW5hIiwiSnVhbiIpDQpub21icmUNCg0KbG9uZ2l0dWQgPC0gbGVuZ3RoIChhKQ0KbG9uZ2l0dWQNCg0KbG9uZ2l0dWRfbm9tYnJlIDwtIGxlbmd0aChub21icmUpDQpsb25naXR1ZF9ub21icmUNCg0KcHJvbWVkaW8gPC0gbWVhbihhKQ0KcHJvbWVkaW8NCg0KcmVzdW1lbiA8LSBzdW1tYXJ5KGEpDQpyZXN1bWVuDQoNCm9yZGVuX2FzY2VuZGVudGUgPC0gc29ydChhKQ0Kb3JkZW5fYXNjZW5kZW50ZQ0KDQpvcmRlbl9kZXNjZW5kZW50ZSA8LSBzb3J0KGEsIGRlY3JlYXNpbmc9VFJVRSkNCm9yZGVuX2Rlc2NlbmRlbnRlDQoNCmIgPC0gYygxLDIsMyw0LDUpDQpiDQoNCnN1bWFfdmVjdG9yZXMgPC0gYSArIGINCnN1bWFfdmVjdG9yZXMNCg0KcGxvdChhLGIsbWFpbj0iVmVudGFzIFRvdGFsZXMiLHhsYWI9IlNlbWFuYSIseWxhYj0iTWlsbG9uZXMgZGUgRG9sYXJlcyIpDQpgYGANCg0KIyBFamVyY2ljaW8gMQ0KYGBge3J9DQpub21icmVzIDwtIGMoIkFkcmlhbiIsIkthcmxhIiwgIk1hcmlhIiwgIkFsbWEiLCAiS2V2aW4iKQ0KYWx0dXJhIDwtIGMoMS43NiwgMS42NiwxLjY0LDEuNjEsMS44NikNCnBlc28gPC0gYyg4MywgNTUsNTAsNTgsMTAwKQ0KDQpkZiA8LSBkYXRhLmZyYW1lKG5vbWJyZXMsYWx0dXJhLHBlc28pDQoNCmRmJElNQyA8LSBwZXNvLyhhbHR1cmEqYWx0dXJhKQ0KDQpkZg0Kc3VtbWFyeShkZikNCiNFc3RhbW9zIG11eSBnb3Jkb3MNCg0KcGxvdChhbHR1cmEscGVzbykNCmBgYA0KDQoNCiMgQ29uY2x1c2lvbmVzDQoqUiogZXMgdW4gbGVuZ3VhamUgZGUgcHJvZ3JhbWFjacOzbiDDunRpbCBwYXJhIHJlYWxpemFyIGPDoWxjdWxvcywgcHJpbmNpcGFsbWVudGUgZXN0YWTDrXN0aWNvcywgeSBmb3JtYSBwYXJ0ZSBkZSBsYXMgaGVycmFtaWVudGFzIGRlbCAqKkJpZyBEYXRhKiouICANCg0KKlIgU3R1ZGlvKiBlcyBlbCBlbnRvcm5vIGVuIGRvbmRlIHNlIHB1ZWRlIHByb2dyYW1hciAqKlIqKiwgeSBncmFjaWFzIGEgcXVlIHRhbWJpw6luIGFxdcOtIHNlIHB1ZWRlIHByb2dyYW1hciAqKnB5dGhvbioqLCBlbiBqdWxpbyBkZWwgMjAyMyBzZSBhbnVuY2nDsyBzdSBudWV2byBub21icmU6ICoqUG9zaXQqKg0KDQpFbiBlc3RhIGludHJvZHVjY2nDs24gbG8gcXVlIGxsYW1hIGxhIGF0ZW5jacOzbiBlcyBsYSBjb25zdGFudGUgYXBhcmljacOzbiBkZSBhbGVydGFzIG8gZXJyb3JlcyBlbiBlbCBwcm9ncmFtYSwgbG9zIGN1YWxlcyBlbmNvbnRyYW1vcyBxdWUgcHJpbmNpcGFsbWVudGUgc2UgZGViZW4gYSBxdWUgbGEgdmVyc2nDs24gZGUgKipSKiogbm8gZXMgbGEgbcOhcyByZWNpZW50ZSwgYSBsYSBmYWx0YSBkZSBpbnN0YWxhY2nDs24gZGUgcGFxdWV0ZXMgbyBsbGFtYXIgYSBsYXMgbGlicmVyw61hcywgcHJvYmxlbWFzIGRlIGVzY3JpdHVyYSAoKnR5cG9zKikgeSBsb3MgbXVjaG9zIGFyZ3VtZW50b3MgcXVlIHRpZW5lbiBsYXMgZnVuY2lvbmVzLiANCg0KU2kgZGVzZGUgdW4gaW5pY2lvIHByb2dyYW1hbW9zIGRlIGZvcm1hIGVzdHJ1Y3R1cmFkYSwgZGljaXBsaW5hZGEgeSBtZXRpY3Vsb3NhLCBwb2RlbW9zIHByZXZlZXIgbXVjaGFzIGRlIGxhcyBhbGVydGFzIG8gZXJyb3JlcyB5IGFzw60gb2J0ZW5kcmVtb3MgbG9zIG11Y2hvcyBiZW5lZmljaW9zIGRlIGxhIHByb2dyYW1hY2nDs24gZW4gKipSKiosIGNvbW8gbG9zIHByb27Ds3N0aWNvcyBkZSBwcmVkaWNjacOzbi4NCg0K