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