Asignación de variables

x <- 3
y <- 2

Impresión de resulados

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

Operaciones aritméticas

suma <- x+y
suma
## [1] 5
resta <- x-y
resta
## [1] 1
multiplicacion <- y*x
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
b<- c(1,2,3,4,5)
b[3]
## [1] 3
sum(a,b) #total
## [1] 30
a + b #por columna
## [1]  2  4  6  8 10
nombres <- c("Jose", "Pancho", 33)
nombres
## [1] "Jose"   "Pancho" "33"
length(a)
## [1] 5
length(nombres)
## [1] 3
summary(a)
##    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

Gráficas

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

Ejercicio 1

df <- data.frame(Nombre = c('Anna', 'Nancy', 'Humberto', "Lucía", "Miranda"), Altura = c(1.67, 1.67, 1.80, 1.60, 1.42), Peso = c(56, 75, 92, 65, 43))
df$IMC <- c(df$Peso/df$Altura**2)
df
##     Nombre Altura Peso      IMC
## 1     Anna   1.67   56 20.07960
## 2    Nancy   1.67   75 26.89232
## 3 Humberto   1.80   92 28.39506
## 4    Lucía   1.60   65 25.39062
## 5  Miranda   1.42   43 21.32513
summary(df)
##     Nombre              Altura           Peso           IMC       
##  Length:5           Min.   :1.420   Min.   :43.0   Min.   :20.08  
##  Class :character   1st Qu.:1.600   1st Qu.:56.0   1st Qu.:21.33  
##  Mode  :character   Median :1.670   Median :65.0   Median :25.39  
##                     Mean   :1.632   Mean   :66.2   Mean   :24.42  
##                     3rd Qu.:1.670   3rd Qu.:75.0   3rd Qu.:26.89  
##                     Max.   :1.800   Max.   :92.0   Max.   :28.40
plot(df$Altura, df$Peso, main="Estamos chaparros y gordos")

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 me llama la atención es que RStudio pueda correr desde el entorno Anaconda para usar menor memoria en mi equipo de cómputo. A la vez, me interesó su catálogo expansivo de librerías para la depuración y tratamiento de datos y análisis estadístico.

Si desde un inicio programamos de forma estructurada, disciplinada y meticulosa, podemos preveer muchas de las aletas o errores y así obtendremos los muchos beneficios de la programación en R, como los pronósticos de predicción.

LS0tCnRpdGxlOiAiQ29tYW5kb3MgQmFzaWNvcyIKYXV0aG9yOiAiQW5uYSBEdXLDoW4gQTAxMjg1Njc0IgpkYXRlOiAiMjAyNC0wMi0xNSIKb3V0cHV0OiAKICBodG1sX2RvY3VtZW50OgogICAgdG9jOiBUUlVFICN0YWJsYSBkZSBjb250ZW5pZG9zLCB0aWVuZSBoeXBlcmxpbmtzCiAgICB0b2NfZmxvYXQ6IFRSVUUgI3NlIHB1ZWRlIGRlc3BsZWdhcgogICAgY29kZV9kb3dubG9hZDogVFJVRSAjc2UgcHVlZGUgZGVzY2FyZ2FyIGVsIGPDs2RpZ28KLS0tCgohW10oL1VzZXJzL2FubmFkdXJhbi9MaWJyYXJ5L0Nsb3VkU3RvcmFnZS9PbmVEcml2ZS1JbnN0aXR1dG9UZWNub2xvZ2ljb3lkZUVzdHVkaW9zU3VwZXJpb3Jlc2RlTW9udGVycmV5LzRUTyBTRU0vTWFuaXB1bGFjacOzbiBkZSBkYXRvcy9Sc3R1ZGlvL1NhbnJpbyBIZWxsbyBLaXR0eS5wbmcpCgojIEFzaWduYWNpw7NuIGRlIHZhcmlhYmxlcwpgYGB7cn0KeCA8LSAzCnkgPC0gMgpgYGAKCiMgSW1wcmVzacOzbiBkZSByZXN1bGFkb3MKYGBge3J9CngKeQpgYGAKCiMgT3BlcmFjaW9uZXMgYXJpdG3DqXRpY2FzCmBgYHtyfQpzdW1hIDwtIHgreQpzdW1hCgpyZXN0YSA8LSB4LXkKcmVzdGEKCm11bHRpcGxpY2FjaW9uIDwtIHkqeAptdWx0aXBsaWNhY2lvbgoKZGl2aXNpb24gPC0geC95CmRpdmlzaW9uCgpkaXZpc2lvbl9lbnRlcmEgPC0geCUvJXkKZGl2aXNpb25fZW50ZXJhCgpyZXNpZHVvIDwtIHglJXkKcmVzaWR1bwoKcG90ZW5jaWEgPC0geCoqMgpwb3RlbmNpYQpgYGAKCiMgRnVuY2lvbmVzIE1hdGVtw6F0aWNhcwpgYGB7cn0KcmFpel9jdWFkcmFkYSA8LSBzcXJ0KHgpCnJhaXpfY3VhZHJhZGEKCnJhaXpfY3ViaWNhIDwtIHgqKigxLzMpCnJhaXpfY3ViaWNhCgpleHBvbmVuY2lhbCA8LSBleHAoMSkKZXhwb25lbmNpYWwKCmFic29sdXRvIDwtIGFicyh4KQphYnNvbHV0bwoKc2lnbm8gPC0gc2lnbih4KQpzaWdubwoKcmVkb25kZW9fYXJyaWJhIDwtIGNlaWxpbmcoeC95KQpyZWRvbmRlb19hcnJpYmEKCnJlZG9uZGVvX2FiYWpvIDwtIGZsb29yKHgveSkKcmVkb25kZW9fYWJham8KCnRydW5jYXIgPC0gdHJ1bmMoeC95KQp0cnVuY2FyCmBgYAoKIyBDb25zdGFudGVzCmBgYHtyfQpwaQpyYWRpbyA8LSA1CmFyZWFfY2lyY3VsbyA8LSBwaSpyYWRpbyoqMgphcmVhX2NpcmN1bG8KYGBgCgojIFZlY3RvcmVzCmBgYHtyfQphPC0gYygxLDIsMyw0LDUpCmEKCmI8LSBjKDEsMiwzLDQsNSkKYlszXQoKc3VtKGEsYikgI3RvdGFsCmEgKyBiICNwb3IgY29sdW1uYQoKbm9tYnJlcyA8LSBjKCJKb3NlIiwgIlBhbmNobyIsIDMzKQpub21icmVzCgpsZW5ndGgoYSkKbGVuZ3RoKG5vbWJyZXMpCnN1bW1hcnkoYSkKCm9yZGVuX2FzY2VuZGVudGUgPC0gc29ydChhKQpvcmRlbl9hc2NlbmRlbnRlCgpvcmRlbl9kZXNjZW5kZW50ZSA8LSBzb3J0KGEsIGRlY3JlYXNpbmcgPSBUUlVFKQpvcmRlbl9kZXNjZW5kZW50ZQoKYGBgCgojIEdyw6FmaWNhcwpgYGB7cn0KcGxvdChhLGIsIG1haW4gPSAiVmVudGFzIFRvdGFsZXMiLCB4bGFiID0gIlNlbWFuYSIsIHlsYWIgPSAiTWlsbG9uZXMgZGUgVVNEIikKYGBgCgojIEVqZXJjaWNpbyAxIApgYGB7cn0KZGYgPC0gZGF0YS5mcmFtZShOb21icmUgPSBjKCdBbm5hJywgJ05hbmN5JywgJ0h1bWJlcnRvJywgIkx1Y8OtYSIsICJNaXJhbmRhIiksIEFsdHVyYSA9IGMoMS42NywgMS42NywgMS44MCwgMS42MCwgMS40MiksIFBlc28gPSBjKDU2LCA3NSwgOTIsIDY1LCA0MykpCmRmJElNQyA8LSBjKGRmJFBlc28vZGYkQWx0dXJhKioyKQpkZgoKc3VtbWFyeShkZikKCnBsb3QoZGYkQWx0dXJhLCBkZiRQZXNvLCBtYWluPSJFc3RhbW9zIGNoYXBhcnJvcyB5IGdvcmRvcyIpCmBgYAoKIyBDb25jbHVzaW9uZXMKKipSKiogZXMgdW4gbGVuZ3VhamUgZGUgcHJvZ3JhbWFjacOzbiDDunRpbCBwYXJhIHJlYWxpemFyIGPDoWxjdWxvcywgcHJpbmNpcGFsbWVudGUgZXN0YWTDrXN0aWNvcywgeSBmb3JtYSBwYXJ0ZSBkZSBsYXMgaGVycmFtaWVudGFzIGRlbCAqQmlnIERhdGEqLiAgCgoqUiBTdHVkaW8qIGVzIGVsIGVudG9ybm8gZW4gZG9uZGUgc2UgcHVlZGUgcHJvZ3JhbWFyICoqUioqLCB5IGdyYWNpYXMgYSBxdWUgdGFtYmnDqW4gYXF1w60gc2UgcHVlZGUgcHJvZ3JhbWFyICoqUHl0aG9uKiosIGVuIGp1bGlvIGRlbCAyMDIzIHNlIGFudW5jacOzIHN1IG51ZXZvIG5vbWJyZTogKipQb3NpdCoqLiAgCgpFbiBlc3RhIGludHJvZHVjY2nDs24sIGxvIHF1ZSBtZSBsbGFtYSBsYSBhdGVuY2nDs24gZXMgcXVlICpSU3R1ZGlvKiBwdWVkYSBjb3JyZXIgZGVzZGUgZWwgZW50b3JubyAqKkFuYWNvbmRhKiogcGFyYSB1c2FyIG1lbm9yIG1lbW9yaWEgZW4gbWkgZXF1aXBvIGRlIGPDs21wdXRvLiBBIGxhIHZleiwgbWUgaW50ZXJlc8OzIHN1IGNhdMOhbG9nbyBleHBhbnNpdm8gZGUgbGlicmVyw61hcyBwYXJhIGxhIGRlcHVyYWNpw7NuIHkgdHJhdGFtaWVudG8gZGUgZGF0b3MgeSBhbsOhbGlzaXMgZXN0YWTDrXN0aWNvLgoKU2kgZGVzZGUgdW4gaW5pY2lvIHByb2dyYW1hbW9zIGRlIGZvcm1hIGVzdHJ1Y3R1cmFkYSwgZGlzY2lwbGluYWRhIHkgbWV0aWN1bG9zYSwgcG9kZW1vcyBwcmV2ZWVyIG11Y2hhcyBkZSBsYXMgYWxldGFzIG8gZXJyb3JlcyB5IGFzw60gb2J0ZW5kcmVtb3MgbG9zIG11Y2hvcyBiZW5lZmljaW9zIGRlIGxhIHByb2dyYW1hY2nDs24gZW4gKlIqLCBjb21vIGxvcyBwcm9uw7NzdGljb3MgZGUgcHJlZGljY2nDs24u