file.choose() # 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)
redondeo_abajo
## [1] 3
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
?sort

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

nombres <- c("Toño", "Paulette", "Fabiana", "Carolina", "Osvaldo")
altura <- c(1.90, 1.65,  1.58, 1.63, 1.75)
peso <- c(83, 56, 56, 56, 65)
imc <- peso/(altura*altura)

df <- data.frame(nombres, altura, peso, imc)
summary(df)
##    nombres              altura           peso           imc       
##  Length:5           Min.   :1.580   Min.   :56.0   Min.   :20.57  
##  Class :character   1st Qu.:1.630   1st Qu.:56.0   1st Qu.:21.08  
##  Mode  :character   Median :1.650   Median :56.0   Median :21.22  
##                     Mean   :1.702   Mean   :63.2   Mean   :21.66  
##                     3rd Qu.:1.750   3rd Qu.:65.0   3rd Qu.:22.43  
##                     Max.   :1.900   Max.   :83.0   Max.   :22.99
plot(altura, peso, main = "Ejercicio 1", xlab = "Altura", ylab = "Peso" )

Conclusiones

R Es un lenguaje de programación utiles 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 aqui también 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 producción.

LS0tCnRpdGxlOiAiQ29tYW5kb3MgYsOhc2ljb3MiCmF1dGhvcjogIlBhdWxldHRlIE10eiAgIEEwMTc0NzUzNSIKZGF0ZTogIjIwMjQtMDItMTUiCm91dHB1dDogCiAgaHRtbF9kb2N1bWVudDogCiAgICB0b2M6IFRSVUUKICAgIHRvY19mbG9hdDogVFJVRQogICAgY29kZV9kb3dubG9hZDogVFJVRSAKLS0tCmZpbGUuY2hvb3NlKCkKIVtdKC9Vc2Vycy9wYXVsZXR0ZW0uYS4vRGVza3RvcC9NYW5pcHVsYWNpb8yBbiBkZSBkYXRvcyBmZWIvY2IgQ2hpY28ucG5nKQojIEFzaWduYWNpw7NuIGRlIHZhcmlhYmxlcwpgYGB7cn0KeCA8LSAzCgp5IDwtIDIKYGBgCiMgSW1wcmVzacOzbiBkZSByZXN1bHRhZG9zCmBgYHtyfQp4CnkKCmBgYAojIE9wZXJhY2lvbmVzIGFyaXRtw6l0aWNhcwpgYGB7cn0Kc3VtYSA8LSB4ICsgeQpzdW1hCgpyZXN0YSA8LSB4IC0geQpyZXN0YQoKbXVsdGlwbGljYWNpb24gPC0geCAqIHkKbXVsdGlwbGljYWNpb24KCmRpdmlzaW9uIDwtIHgveQpkaXZpc2lvbgoKZGl2aXNpb25fZW50ZXJhIDwtIHggJS8lIHkKZGl2aXNpb25fZW50ZXJhCgpyZXNpZHVvIDwtIHggJSUgeQpyZXNpZHVvCgpwb3RlbmNpYSA8LSB4ICoqIDIKcG90ZW5jaWEKCmBgYAojIEZ1bmNpb25lcyBtYXRlbcOhdGljYXMKYGBge3J9CnJhaXpfY3VhZHJhZGEgPC0gc3FydCh4KQpyYWl6X2N1YWRyYWRhCgpyYWl6X2N1YmljYSA8LSB4ICoqICgxLzMpCnJhaXpfY3ViaWNhCgpleHBvbmVuY2lhbCA8LSBleHAoMSkKZXhwb25lbmNpYWwKCmFic29sdXRvIDwtIGFicyh4KQphYnNvbHV0bwoKc2lnbm8gPC0gc2lnbih4KQpzaWdubwoKcmVkb25kZW9fYXJyaWJhIDwtIGNlaWxpbmcgKHgveSkKcmVkb25kZW9fYXJyaWJhCgpyZWRvbmRlb19hYmFqbyA8LSBmbG9vcih4KQpyZWRvbmRlb19hYmFqbwoKdHJ1bmNhciA8LSB0cnVuYyh4L3kpCnRydW5jYXIKCiNDb25zdGFudGVzCnBpCnJhZGlvIDwtIDUKYXJlYV9jaXJjdWxvIDwtIHBpICogcmFkaW8qKjIKYXJlYV9jaXJjdWxvCgojIFZlY3RvcmVzCmEgPC0gYygxLDIsMyw0LDUpCmEKCm5vbWJyZSA8LSBjKCJKb3NlIiwgIkFuYSIsICJKdWFuIikKbm9tYnJlCgpsb25naXR1ZCA8LSBsZW5ndGgoYSkKbG9uZ2l0dWQKCmxvbmdpdHVkX25vbWJyZSA8LSBsZW5ndGgobm9tYnJlKQpsb25naXR1ZF9ub21icmUKCnByb21lZGlvIDwtIG1lYW4oYSkKcHJvbWVkaW8KCnJlc3VtZW4gPC0gc3VtbWFyeShhKQpyZXN1bWVuCgpvcmRlbl9hc2NlbmRlbnRlIDwtIHNvcnQoYSkKb3JkZW5fYXNjZW5kZW50ZQoKb3JkZW5fZGVzY2VuZGVudGUgPC0gc29ydChhLCBkZWNyZWFzaW5nID0gVFJVRSkKb3JkZW5fZGVzY2VuZGVudGUKCj9zb3J0CgpiIDwtIGMoMSwyLDMsNCw1KQpiCgpzdW1hX3ZlY3RvcmVzIDwtIGEgKyBiCnN1bWFfdmVjdG9yZXMKCnBsb3QoYSxiLCBtYWluPSJWZW50YXMgdG90YWxlcyIsIHhsYWIgPSAiU2VtYW5hIiwgeWxhYiA9ICJNaWxsb25lcyBkZSBVU0QiKQoKYGBgCiMgRWplcmNpY2lvIDEKYGBge3J9Cm5vbWJyZXMgPC0gYygiVG/DsW8iLCAiUGF1bGV0dGUiLCAiRmFiaWFuYSIsICJDYXJvbGluYSIsICJPc3ZhbGRvIikKYWx0dXJhIDwtIGMoMS45MCwgMS42NSwgIDEuNTgsIDEuNjMsIDEuNzUpCnBlc28gPC0gYyg4MywgNTYsIDU2LCA1NiwgNjUpCmltYyA8LSBwZXNvLyhhbHR1cmEqYWx0dXJhKQoKZGYgPC0gZGF0YS5mcmFtZShub21icmVzLCBhbHR1cmEsIHBlc28sIGltYykKc3VtbWFyeShkZikKCnBsb3QoYWx0dXJhLCBwZXNvLCBtYWluID0gIkVqZXJjaWNpbyAxIiwgeGxhYiA9ICJBbHR1cmEiLCB5bGFiID0gIlBlc28iICkKYGBgCgojIENvbmNsdXNpb25lcyAKCipSKiBFcyB1biBsZW5ndWFqZSBkZSBwcm9ncmFtYWNpw7NuIHV0aWxlcyBwYXJhIHJlYWxpemFyIGPDoWxjdWxvcywgcHJpbmNpcGFsbWVudGUgZXN0YWTDrXN0aWNvcywgeSBmb3JtYSBwYXJ0ZSBkZSBsYXMgaGVycmFtaWVudGFzIGRlbCAqKkJpZyBEYXRhKiouICAKCipSIFN0dWRpbyogZXMgZWwgZW50b3JubyBlbiBkb25kZSBzZSBwdWVkZSBwcm9ncmFtYXIgKipSKiosIHkgZ3JhY2lhcyBhIHF1ZSBhcXVpIHRhbWJpw6luIHNlIHB1ZWRlIHByb2dyYW1hciAqKlB5dGhvbioqLCBlbiBqdWxpbyBkZWwgMjAyMyBzZSBhbnVuY2nDsyBzdSBudWV2byBub21icmU6ICoqUG9zaXQqKi4KCkVuIGVzdGEgaW50cm9kdWNjacOzbiBsbyBxdWUgbGxhbWEgbGEgYXRlbmNpw7NuIGVzIGxhIGNvbnN0YW50ZSBhcGFyaWNpw7NuIGRlIGFsZXJ0YXMgbyBlcnJvcmVzIGVuIGVsIHByb2dyYW1hLCBsb3MgY3VhbGVzIGVuY29udHJhbW9zIHF1ZSBwcmluY2lwYWxtZW50ZSBzZSBkZWJlbiBhIHF1ZSBsYSB2ZXJzacOzbiBkZSAqKlIqKiBubyBlcyBsYSBtw6FzIHJlY2llbnRlLCBhIGxhIGZhbHRhIGRlIGluc3RhbGFjacOzbiBkZSBwYXF1ZXRlcyBvIGxsYW1hciBhIGxhcyBsaWJyZXLDrWFzLCBwcm9ibGVtYXMgZGUgZXNjcml0dXJhICgqdHlwb3MqKSB5IGxvcyBtdWNob3MgYXJndW1lbnRvcyBxdWUgdGllbmVuIGxhcyBmdW5jaW9uZXMuCgpTaSBkZXNkZSB1biBpbmljaW8gcHJvZ3JhbWFtb3MgZGUgZm9ybWEgZXN0cnVjdHVyYWRhLCBkaXNjaXBsaW5hZGEgeSBtZXRpY3Vsb3NhLCBwb2RlbW9zIHByZXZlZXIgbXVjaGFzIGRlIGxhcyBhbGVydGFzIG8gZXJyb3JlcyB5IGFzw60gb2J0ZW5kcmVtb3MgbG9zIG11Y2hvcyBiZW5lZmljaW9zIGRlIGxhIHByb2dyYW1hY2nDs24gZW4gKlIqLCBjb21vIGxvcyBwcm9uw7NzdGljb3MgZGUgcHJvZHVjY2nDs24uIAoKCg==