Asignación de Variables

x <- 3
y <- 2

Impresión de resultados

x
## [1] 3
y
## [1] 2

Operaciones aritmeticas

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 matematicas

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

x <- c("Beto","Pablo", "Oscar", "Fede","Iker")
y <- c(187,170,177,182,190)
z <- c(87,62,86,76,90)



df <- data.frame(x,y,z)

df$IMX  <- z/(y*y)
df
##       x   y  z         IMX
## 1  Beto 187 87 0.002487918
## 2 Pablo 170 62 0.002145329
## 3 Oscar 177 86 0.002745060
## 4  Fede 182 76 0.002294409
## 5  Iker 190 90 0.002493075
summary(df)
##       x                   y               z             IMX          
##  Length:5           Min.   :170.0   Min.   :62.0   Min.   :0.002145  
##  Class :character   1st Qu.:177.0   1st Qu.:76.0   1st Qu.:0.002294  
##  Mode  :character   Median :182.0   Median :86.0   Median :0.002488  
##                     Mean   :181.2   Mean   :80.2   Mean   :0.002433  
##                     3rd Qu.:187.0   3rd Qu.:87.0   3rd Qu.:0.002493  
##                     Max.   :190.0   Max.   :90.0   Max.   :0.002745
plot (y,z)

Conclusiones

R es un lenguaje de programación util para realizar calculos, principalmente estadísticos, y forma parte de las herramientas del Big Data.

R Studio es el entorno en donde se pueden 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 mas 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 asi obtendremos los muchos beneficios de la programación en R, como los pronósticos de predicción.

LS0tCnRpdGxlOiAiQ29tYW5kb3MgQsOhc2ljb3MiCmF1dGhvcjogIlBhYmxvIFNhbmNobyAtIEEwMTcyMjIzNiIKZGF0ZTogIjIwMjQtMDItMTUiCm91dHB1dDogCiAgaHRtbF9kb2N1bWVudDoKICAgIHRvYzogVFJVRQogICAgdG9jX2Zsb2F0OiBUUlVFCiAgICBjb2RlX2Rvd25sb2FkOiBUUlVFCi0tLQoKIVtdKC9Vc2Vycy9wYWJsb3NhbmNoby9EZXNrdG9wL21hdGhwbmcyLnBuZykKCiMgQXNpZ25hY2nDs24gZGUgVmFyaWFibGVzCmBgYHtyfQp4IDwtIDMKeSA8LSAyCmBgYAojIEltcHJlc2nDs24gZGUgcmVzdWx0YWRvcwpgYGB7cn0KeAp5CmBgYAojIE9wZXJhY2lvbmVzIGFyaXRtZXRpY2FzCmBgYHtyfQpzdW1hIDwtIHggKyB5CnN1bWEKCnJlc3RhIDwtIHggLSB5CnJlc3RhCgptdWx0aXBsaWNhY2lvbiA8LSB4ICogeQptdWx0aXBsaWNhY2lvbgoKZGl2aXNpb24gPC0geCAvIHkKZGl2aXNpb24KCmRpdmlzaW9uX2VudGVyYSA8LSB4ICUvJSB5CmRpdmlzaW9uX2VudGVyYQoKcmVzaWR1byA8LSB4ICUlIHkKcmVzaWR1bwoKcG90ZW5jaWEgPC0geCAqKiAyCnBvdGVuY2lhCmBgYAojIEZ1bmNpb25lcyBtYXRlbWF0aWNhcwpgYGB7cn0KcmFpel9jdWFkcmFkYSA8LSBzcXJ0KHgpCnJhaXpfY3VhZHJhZGEKCnJhaXpfY3ViaWNhIDwtIHggKiogKDEvMykKcmFpel9jdWJpY2EKCmV4cG9uZW5jaWFsIDwtIGV4cCgxKQpleHBvbmVuY2lhbAoKYWJzb2x1dG8gPC0gYWJzKHgpCmFic29sdXRvCgpzaWdubyA8LSBzaWduKHgpCnNpZ25vCgpyZWRvbmRlb19hcnJpYmEgPC0gY2VpbGluZyAoeC95KQpyZWRvbmRlb19hcnJpYmEKCnJlZG9uZGVvX2FiYWpvIDwtIGZsb29yICh4L3kpCnJlZG9uZGVvX2FiYWpvCgp0cnVuY2FyIDwtIHRydW5jICh4L3kpCnRydW5jYXIKYGBgCiMgQ29uc3RhbnRlcwpgYGB7cn0KcGkKcmFkaW8gPC0gNQoKYXJlYV9jaXJjdWxvIDwtIHBpICogcmFkaW8qKjIKYXJlYV9jaXJjdWxvCmBgYAojIFZlY3RvcmVzCmBgYHtyfQphIDwtIGMoMSwyLDMsNCw1KQphCgpub21icmUgPC0gYygiSm9zZSIsIkFuYSIsIkp1YW4iKQpub21icmUKCmxvbmdpdHVkIDwtIGxlbmd0aCAoYSkKbG9uZ2l0dWQKCmxvbmdpdHVkX25vbWJyZSA8LSBsZW5ndGgobm9tYnJlKQpsb25naXR1ZF9ub21icmUKCnByb21lZGlvIDwtIG1lYW4oYSkKcHJvbWVkaW8KCnJlc3VtZW4gPC0gc3VtbWFyeShhKQpyZXN1bWVuCgpvcmRlbl9hc2NlbmRlbnRlIDwtIHNvcnQoYSkKb3JkZW5fYXNjZW5kZW50ZQoKb3JkZW5fZGVzY2VuZGVudGUgPC0gc29ydChhLCBkZWNyZWFzaW5nPVRSVUUpCm9yZGVuX2Rlc2NlbmRlbnRlCgpiIDwtIGMoMSwyLDMsNCw1KQpiCgpzdW1hX3ZlY3RvcmVzIDwtIGEgKyBiCnN1bWFfdmVjdG9yZXMKCnBsb3QoYSxiLG1haW49IlZlbnRhcyBUb3RhbGVzIix4bGFiPSJTZW1hbmEiLHlsYWI9Ik1pbGxvbmVzIGRlIERvbGFyZXMiKQpgYGAKCiMgRWplcmNpY2lvIDEKYGBge3J9CnggPC0gYygiQmV0byIsIlBhYmxvIiwgIk9zY2FyIiwgIkZlZGUiLCJJa2VyIikKeSA8LSBjKDE4NywxNzAsMTc3LDE4MiwxOTApCnogPC0gYyg4Nyw2Miw4Niw3Niw5MCkKCgoKZGYgPC0gZGF0YS5mcmFtZSh4LHkseikKCmRmJElNWCAgPC0gei8oeSp5KQpkZgpzdW1tYXJ5KGRmKQpwbG90ICh5LHopCgpgYGAKCiMgQ29uY2x1c2lvbmVzCioqUioqIGVzIHVuIGxlbmd1YWplIGRlIHByb2dyYW1hY2nDs24gdXRpbCBwYXJhIHJlYWxpemFyIGNhbGN1bG9zLCBwcmluY2lwYWxtZW50ZSBlc3RhZMOtc3RpY29zLCB5IGZvcm1hIHBhcnRlIGRlIGxhcyBoZXJyYW1pZW50YXMgZGVsICpCaWcgRGF0YSouICAKCipSIFN0dWRpbyogZXMgZWwgZW50b3JubyBlbiBkb25kZSBzZSBwdWVkZW4gcHJvZ3JhbWFyICoqUioqLCB5IGdyYWNpYXMgYSBxdWUgdGFtYmnDqW4gYXF1w60gc2UgcHVlZGUgcHJvZ3JhbWFyICpQeXRob24qLCBlbiBqdWxpbyBkZWwgMjAyMywgc2UgYW51bmNpw7Mgc3UgbnVldm8gbm9tYnJlLCAqKlBvc2l0KiouICAKCkVuIGVzdGEgaW50cm9kdWNjacOzbiwgbG8gcXVlIGxsYW1hIGxhIGF0ZW5jacOzbiBlcyBsYSBjb25zdGFudGUgYXBhcmljacOzbiBkZSBhbGVydGFzIG8gZXJyb3JlcyBlbiBlbCBwcm9ncmFtYSwgbG9zIGN1YWxlcyBlbmNvbnRyYW1vcyBxdWUgcHJpbmNpcGFsbWVudGUgc2UgZGViZW4gYSBxdWUgbGEgdmVyc2nDs24gZGUgKipSKiogbm8gZXMgbGEgbWFzIHJlY2llbnRlLCBhIGxhIGZhbHRhIGRlIGluc3RhbGFjacOzbiBkZSBwYXF1ZXRlcyBvIGxsYW1hciBhIGxhcyBsaWJyZXLDrWFzLCBwcm9ibGVtYXMgZGUgZXNjcml0dXJhICgqdHlwb3MqKSB5IGxvcyBtdWNob3MgYXJndW1lbnRvcyBxdWUgdGllbmVuIGxhcyBmdW5jaW9uZXMuICAKClNpIGRlc2RlIHVuIGluaWNpbyBwcm9ncmFtYW1vcyBkZSBmb3JtYSBlc3RydWN0dXJhZGEsIGRpc2NpcGxpbmFkYSB5IG1ldGljdWxvc2EsIHBvZGVtb3MgcHJldmVlciBtdWNoYXMgZGUgbGFzIGFsZXJ0YXMgbyBlcnJvcmVzIHkgYXNpIG9idGVuZHJlbW9zIGxvcyBtdWNob3MgYmVuZWZpY2lvcyBkZSBsYSBwcm9ncmFtYWNpw7NuIGVuICoqUioqLCBjb21vIGxvcyBwcm9uw7NzdGljb3MgZGUgcHJlZGljY2nDs24uCgoK