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 matematicas

raiz_cuadrada <- sqrt(x)
raiz_cuadrada
## [1] 1.732051
raiz_cubica <- x %% (1/3)
raiz_cubica
## [1] 1.665335e-16
exponencial1 <- exp (1)
exponencial1
## [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_descentente <- sort(a,decreasing=TRUE)
orden_descentente
## [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

Grafica

plot(a, b, main="Ventas Totales", xlab="Semana", ylab="Millones de dólares")

Ejercicio 1

# Definición de vectores con valores numéricos
nombre <- c("Alma", "Karla", "Adrian", "Maria", "Alex")
peso <- c(55, 53, 56, 59, 56) 
altura <- c(1.66, 1.76, 1.64, 1.61, 1.62) 

# Creación de un data frame con los vectores anteriores
df <- data.frame(nombre, peso, altura)

# Cálculo del IMC y adición al data frame
# IMC = peso (kg) / altura (m)^2
df$IMC <- peso / (altura * altura)

# Impresión del data frame con la columna IMC añadida
df
##   nombre peso altura      IMC
## 1   Alma   55   1.66 19.95936
## 2  Karla   53   1.76 17.11002
## 3 Adrian   56   1.64 20.82094
## 4  Maria   59   1.61 22.76147
## 5   Alex   56   1.62 21.33821
# Resumen estadístico del data frame
summary(df)
##     nombre               peso          altura           IMC       
##  Length:5           Min.   :53.0   Min.   :1.610   Min.   :17.11  
##  Class :character   1st Qu.:55.0   1st Qu.:1.620   1st Qu.:19.96  
##  Mode  :character   Median :56.0   Median :1.640   Median :20.82  
##                     Mean   :55.8   Mean   :1.658   Mean   :20.40  
##                     3rd Qu.:56.0   3rd Qu.:1.660   3rd Qu.:21.34  
##                     Max.   :59.0   Max.   :1.760   Max.   :22.76
# Los datos muestran que el grupo tiene pesos y alturas similares, con un Índice de Masa Corporal (IMC) generalmente saludable para todos.
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 programar python, en julio del 2023 se anunció su nuevo nombre: Posit.

En esta introducción, lo que 1lama 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 1lamar a las librerías, problemas de escritura (typost) 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 predicción.

LS0tDQp0aXRsZTogIkNvbWFuZG9zIELDoXNpY29zIg0KYXV0aG9yOiAiQWxtYSBTYW50aWFnbyAtIEEwMDgzNjYzNiINCmRhdGU6ICIyMDI0LTAyLTE1Ig0Kb3V0cHV0OiANCiBodG1sX2RvY3VtZW50Og0KICAgdG9jOiBUUlVFDQogICB0b2NfZmxvYXQ6IFRSVUUNCiAgIGNvZGVfZG93bmxvYWQ6IFRSVUUNCiAgIA0KLS0tDQohW10oQzpcXFVzZXJzXFxpdm9uZVxcRG93bmxvYWRzXFxNQVRFUy5KUEcpDQoNCiMgQXNpZ25hY2nDs24gZGUgdmFyaWFibGVzDQpgYGB7cn0NCnggPC0gMw0KeSA8LSAyDQpgYGANCg0KIyBJbXByZXNpw7NuIGRlIHJlc3VsdGFkb3MNCmBgYHtyfQ0KeA0KeQ0KYGBgICAgICAgIA0KDQojIE9wZXJhY2lvbmVzIEFyaXRtw6l0aWNhcw0KYGBge3J9DQpzdW1hIDwtIHggKyB5DQpzdW1hIA0KDQpyZXN0YSA8LSB4IC0geSANCnJlc3RhDQoNCm11bHRpcGxpY2FjaW9uIDwtIHgqeQ0KbXVsdGlwbGljYWNpb24NCg0KZGl2aXNpb24gPC0geC95DQpkaXZpc2lvbiANCg0KZGl2aXNpb25fZW50ZXJhICA8LSB4ICUvJSB5DQpkaXZpc2lvbl9lbnRlcmENCg0KcmVzaWR1byA8LSB4JSV5DQpyZXNpZHVvDQoNCnBvdGVuY2lhIDwtIHggXiAyDQpwb3RlbmNpYQ0KYGBgDQoNCiMgRnVuY2lvbmVzIG1hdGVtYXRpY2FzDQpgYGB7cn0NCnJhaXpfY3VhZHJhZGEgPC0gc3FydCh4KQ0KcmFpel9jdWFkcmFkYQ0KDQpyYWl6X2N1YmljYSA8LSB4ICUlICgxLzMpDQpyYWl6X2N1YmljYQ0KDQpleHBvbmVuY2lhbDEgPC0gZXhwICgxKQ0KZXhwb25lbmNpYWwxDQoNCmFic29sdXRvIDwtIGFicyh4KQ0KYWJzb2x1dG8NCg0Kc2lnbm8gPC1zaWduKHgpDQpzaWdubw0KDQpyZWRvbmRlb19hcnJpYmEgPC0gY2VpbGluZyAoeC95KQ0KcmVkb25kZW9fYXJyaWJhDQoNCnJlZG9uZGVvX2FiYWpvIDwtIGZsb29yICh4L3kpDQpyZWRvbmRlb19hYmFqbw0KDQp0cnVuY2FyICA8LSB0cnVuYyh4L3kpDQp0cnVuY2FyDQpgYGANCg0KIyBDb25zdGFudGVzDQpgYGB7cn0NCnBpDQpyYWRpbyA8LTUgDQphcmVhX2NpcmN1bG8gPC0gcGkgKiByYWRpbyAqKjINCmFyZWFfY2lyY3Vsbw0KYGBgDQoNCiMgVmVjdG9yZXMNCmBgYHtyfQ0KYSA8LSBjKDEsMiwzLDQsNSkNCmENCg0Kbm9tYnJlIDwtIGMoIkpvc2UiLCAiQW5hIiwgIkp1YW4iKQ0Kbm9tYnJlDQoNCmxvbmdpdHVkIDwtIGxlbmd0aChhKQ0KbG9uZ2l0dWQNCg0KbG9uZ2l0dWRfbm9tYnJlIDwtIGxlbmd0aCAobm9tYnJlKQ0KbG9uZ2l0dWRfbm9tYnJlDQoNCnByb21lZGlvIDwtIG1lYW4oYSkNCnByb21lZGlvIA0KDQpyZXN1bWVuIDwtIHN1bW1hcnkoYSkNCnJlc3VtZW4NCm9yZGVuX2FzY2VuZGVudGUgPC0gc29ydChhKQ0Kb3JkZW5fYXNjZW5kZW50ZQ0KDQpvcmRlbl9kZXNjZW50ZW50ZSA8LSBzb3J0KGEsZGVjcmVhc2luZz1UUlVFKQ0Kb3JkZW5fZGVzY2VudGVudGUNCg0KP3NvcnQNCg0KYjwtIGMoMSwyLDMsNCw1KQ0KYg0KDQpzdW1hX3ZlY3RvcmVzIDwtIGErYiANCnN1bWFfdmVjdG9yZXMNCmBgYA0KDQojIEdyYWZpY2ENCmBgYHtyfQ0KcGxvdChhLCBiLCBtYWluPSJWZW50YXMgVG90YWxlcyIsIHhsYWI9IlNlbWFuYSIsIHlsYWI9Ik1pbGxvbmVzIGRlIGTDs2xhcmVzIikNCmBgYA0KDQojIEVqZXJjaWNpbyAxIA0KDQpgYGB7cn0NCiMgRGVmaW5pY2nDs24gZGUgdmVjdG9yZXMgY29uIHZhbG9yZXMgbnVtw6lyaWNvcw0Kbm9tYnJlIDwtIGMoIkFsbWEiLCAiS2FybGEiLCAiQWRyaWFuIiwgIk1hcmlhIiwgIkFsZXgiKQ0KcGVzbyA8LSBjKDU1LCA1MywgNTYsIDU5LCA1NikgDQphbHR1cmEgPC0gYygxLjY2LCAxLjc2LCAxLjY0LCAxLjYxLCAxLjYyKSANCg0KIyBDcmVhY2nDs24gZGUgdW4gZGF0YSBmcmFtZSBjb24gbG9zIHZlY3RvcmVzIGFudGVyaW9yZXMNCmRmIDwtIGRhdGEuZnJhbWUobm9tYnJlLCBwZXNvLCBhbHR1cmEpDQoNCiMgQ8OhbGN1bG8gZGVsIElNQyB5IGFkaWNpw7NuIGFsIGRhdGEgZnJhbWUNCiMgSU1DID0gcGVzbyAoa2cpIC8gYWx0dXJhIChtKV4yDQpkZiRJTUMgPC0gcGVzbyAvIChhbHR1cmEgKiBhbHR1cmEpDQoNCiMgSW1wcmVzacOzbiBkZWwgZGF0YSBmcmFtZSBjb24gbGEgY29sdW1uYSBJTUMgYcOxYWRpZGENCmRmDQoNCiMgUmVzdW1lbiBlc3RhZMOtc3RpY28gZGVsIGRhdGEgZnJhbWUNCnN1bW1hcnkoZGYpDQoNCiMgTG9zIGRhdG9zIG11ZXN0cmFuIHF1ZSBlbCBncnVwbyB0aWVuZSBwZXNvcyB5IGFsdHVyYXMgc2ltaWxhcmVzLCBjb24gdW4gw41uZGljZSBkZSBNYXNhIENvcnBvcmFsIChJTUMpIGdlbmVyYWxtZW50ZSBzYWx1ZGFibGUgcGFyYSB0b2Rvcy4NCnBsb3QoYWx0dXJhLCBwZXNvKQ0KYGBgDQoNCiMgQ29uY2x1c2lvbmVzIA0KKlIqIGVzIHVuIGxlbmd1YWplIGRlIHByb2dyYW1hY2nDs24gw7p0aWwgcGFyYSByZWFsaXphciBjw6FsY3Vsb3MsICBwcmluY2lwYWxtZW50ZSBlc3RhZMOtc3RpY29zLCB5IGZvcm1hIHBhcnRlIGRlIGxhcyBoZXJyYW1pZW50YXMgZGVsICpCaWcgRGF0YSouDQoNCipSIFN0dWRpbyogZXMgZWwgZW50b3JubyBlbiBkb25kZSBzZSBwdWVkZSBwcm9ncmFtYXIgKipSKiosIHkgZ3JhY2lhcyBhIHF1ZSB0YW1iacOpbiBhcXVpIHNlIHB1ZWRlIHByb2dyYW1hciAqKnB5dGhvbioqLCBlbiBqdWxpbyBkZWwgMjAyMyBzZSBhbnVuY2nDsyBzdSBudWV2byBub21icmU6ICoqUG9zaXQqKi4NCg0KRW4gZXN0YSBpbnRyb2R1Y2Npw7NuLCBsbyBxdWUgMWxhbWEgbGEgYXRlbmNpw7NuIGVzOiBsYSBjb25zdGFudGUgYXBhcmljacOzbiBkZSBhbGVydGFzIG8gZXJyb3JlcyBlbiBlbCBwcm9ncmFtYSwgbG9zIGN1YWxlcyBlbmNvbnRyYW1vcyBxdWUgcHJpbmNpcGFsbWVudGUgc2UgZGViZW4gYSBxdWUgbGEgdmVyc2nDs24gZGUgKipSKiogbm8gZXMgbGEgbcOhcyByZWNpZW50ZSwgYSBsYSBmYWx0YSBkZSBpbnN0YWxhY2nDs24gZGUgcGFxdWV0ZXMgbyAxbGFtYXIgYSBsYXMgbGlicmVyw61hcywgcHJvYmxlbWFzIGRlIGVzY3JpdHVyYSAoKnR5cG9zdCopIHkgbG9zIG11Y2hvcyBhcmd1bWVudG9zIHF1ZSB0aWVuZW4gbGFzIGZ1bmNpb25lcy4NCg0KU2kgZGVzZGUgdW4gaW5pY2lvIHByb2dyYW1hbW9zIGRlIGZvcm1hIGVzdHJ1Y3R1cmFkYSwgZGlzY2lwbGluYWRhIHkgbWV0aWN1bG9zYSwgcG9kZW1vcyBwcmV2ZWVyIG11Y2hhcyBkZSBsYXMgYWxlcnRhcyBvIGVycm9yZXMgeSBhc8OtIG9idGVuZHJlbW9zIGxvcyBtdWNob3MgYmVuZWZpY2lvcyBkZSBsYSBwcm9ncmFtYWNpw7NuIGVuICpSKiwgY29tbyBsb3MgcHJvbsOzc3RpY29zIGRlIHByZWRpY2Npw7NuLg0KDQo=