# 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
división <- x/y
división
## [1] 1.5
división_entera <- x %/% y 
división_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)


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", "Anna", "Juan")
nombre
## [1] "Jose" "Anna" "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
## starting httpd help server ... done
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
#Gráficas
plot(a,b, main="Ventas Totales", xlab="Semana", ylab="Millones de USD")

plot
## function (x, y, ...) 
## UseMethod("plot")
## <bytecode: 0x000001324db31800>
## <environment: namespace:base>
#Ejercicio 1: Actividad en clase
df <- data.frame(Nombre = c('Ana', 'Lu', 'Pepe', 'Juan', 'Vale'), Peso <- c(48,52,60,56,70) , Altura <- c(1.48,1.52,1.60,1.56,1.70), IMC= Peso/Altura**2) 
df
##   Nombre Peso....c.48..52..60..56..70. Altura....c.1.48..1.52..1.6..1.56..1.7.
## 1    Ana                            48                                    1.48
## 2     Lu                            52                                    1.52
## 3   Pepe                            60                                    1.60
## 4   Juan                            56                                    1.56
## 5   Vale                            70                                    1.70
##        IMC
## 1 21.91381
## 2 22.50693
## 3 23.43750
## 4 23.01118
## 5 24.22145
summary(df)
##     Nombre          Peso....c.48..52..60..56..70.
##  Length:5           Min.   :48.0                 
##  Class :character   1st Qu.:52.0                 
##  Mode  :character   Median :56.0                 
##                     Mean   :57.2                 
##                     3rd Qu.:60.0                 
##                     Max.   :70.0                 
##  Altura....c.1.48..1.52..1.6..1.56..1.7.      IMC       
##  Min.   :1.480                           Min.   :21.91  
##  1st Qu.:1.520                           1st Qu.:22.51  
##  Median :1.560                           Median :23.01  
##  Mean   :1.572                           Mean   :23.02  
##  3rd Qu.:1.600                           3rd Qu.:23.44  
##  Max.   :1.700                           Max.   :24.22
#21,9
#22,5
#23,4
#23
#24,2
#Estamos muy bien
plot(Altura,Peso)

#Conclusiones R es un lenguaje de programación útil para realizar cálculos, principalmente estad´siticos, y forma parte de las herramientas del Big Bata.

R Studio es el entorno en donde se puede programar R y gracias a que tambien 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 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 predicción

En la actividad previa tuve la oportunidad de aprender operaciones básicas que estaré utilizando a lo largo del curso, como suma, resta, multiplicación o raíces cuadradas. Esto lo hicimos con el fin de facilitar el desarrollo de las próximas actividades. Luego, realicé un ejercicio con el que pude llegar a la conclusión de que las personas de mi muestra tienen un buen IMC, considerando que según el “Center for Disease Control and Prevention” un IMC entre 18.5 y 24.9 es el rango de peso normal o saludable y en mi muestra todos están dentro del rango, teniendo en promedio un IMC de 23, por lo que se podría decir que están muy bien en cuánto a salud, basándonos sólo en dos factores, el peso y la altura.

LS0tDQp0aXRsZTogIkNvbWFuZG9zIGLDoXNpY29zIg0KYXV0aG9yOiAiUmFmYWVsbGEgUMOpcmV6IEZsb3JlcyINCmRhdGU6ICIyMDI0LTAzLTA5Ig0Kb3V0cHV0OiANCiAgaHRtbF9kb2N1bWVudDogDQogICAgdG9jOiBUUlVFDQogICAgdG9jX2Zsb2F0OiBUUlVFDQogICAgY29kZV9kb3dubG9hZDogVFJVRQ0KICAgIHRoZW1lOiBjb3Ntbw0KLS0tDQohW10oQzpcXFVzZXJzXFxqbXBvMlxcRG93bmxvYWRzXFxNZW1lIGNvbWFuZG9zIGLDoXNpY29zLmpwZykNCg0KYGBge3J9DQojIEFzaWduYWNpw7NuIGRlIHZhcmlhYmxlcw0KeDwtIDMNCnk8LSAyDQpgYGANCg0KYGBge3J9DQojSW1wcmVzacOzbiBkZSByZXN1bHRhZG9zDQp4DQp5DQpgYGANCg0KDQpgYGB7cn0NCiNPcGVyYWNpb25lcyBhcml0bcOpdGljYXMNCnN1bWEgPC0geCArIHkNCnN1bWENCg0KcmVzdGEgPC0geCAteSANCnJlc3RhDQoNCm11bHRpcGxpY2FjaW9uIDwtIHggKiB5DQptdWx0aXBsaWNhY2lvbg0KDQpkaXZpc2nDs24gPC0geC95DQpkaXZpc2nDs24NCg0KZGl2aXNpw7NuX2VudGVyYSA8LSB4ICUvJSB5IA0KZGl2aXNpw7NuX2VudGVyYQ0KDQpyZXNpZHVvIDwtIHggJSUgeSANCnJlc2lkdW8NCg0KcG90ZW5jaWEgPC0geCAqKiAyDQpwb3RlbmNpYQ0KYGBgDQoNCg0KYGBge3J9DQojRnVuY2lvbmVzIG1hdGVtw6F0aWNhcw0KcmFpel9jdWFkcmFkYSA8LSBzcXJ0KHgpDQpyYWl6X2N1YWRyYWRhDQoNCnJhaXpfY3ViaWNhIDwtIHggKiooMS8zKQ0KcmFpel9jdWJpY2ENCg0KZXhwb25lbmNpYWwgPC0gZXhwKDEpDQoNCg0KYWJzb2x1dG8gPC0gYWJzKHgpDQphYnNvbHV0bw0KDQpzaWdubyA8LSBzaWduKHgpDQpzaWdubw0KDQpyZWRvbmRlb19hcnJpYmEgPC0gY2VpbGluZyAoeC95KQ0KcmVkb25kZW9fYXJyaWJhDQoNCnJlZG9uZGVvX2FiYWpvIDwtIGZsb29yKHgveSkNCnJlZG9uZGVvX2FiYWpvDQoNCnRydW5jYXIgPC0gdHJ1bmMoeC95KQ0KdHJ1bmNhcg0KYGBgDQoNCg0KYGBge3J9DQojQ29uc3RhbnRlcw0KcGkgDQpyYWRpbyA8LSA1DQphcmVhX2NpcmN1bG8gPC0gcGkqcmFkaW8qKjINCmFyZWFfY2lyY3Vsbw0KYGBgDQoNCg0KYGBge3J9DQojVmVjdG9yZXMNCmE8LSBjKDEsMiwzLDQsNSkNCmENCg0Kbm9tYnJlIDwtYygiSm9zZSIsICJBbm5hIiwgIkp1YW4iKQ0Kbm9tYnJlDQoNCmxvbmdpdHVkIDwtIGxlbmd0aChhKQ0KbG9uZ2l0dWQgDQoNCmxvbmdpdHVkX25vbWJyZSA8LSBsZW5ndGgobm9tYnJlKQ0KbG9uZ2l0dWRfbm9tYnJlDQoNCnByb21lZGlvIDwtIG1lYW4oYSkNCnByb21lZGlvDQoNCnJlc3VtZW48LSBzdW1tYXJ5KGEpDQpyZXN1bWVuDQoNCm9yZGVuX2FzY2VuZGVudGUgPC0gc29ydChhKQ0Kb3JkZW5fYXNjZW5kZW50ZQ0KDQpvcmRlbl9kZXNjZW5kZW50ZTwtIHNvcnQoYSwgZGVjcmVhc2luZz1UUlVFKQ0Kb3JkZW5fZGVzY2VuZGVudGUNCg0KP3NvcnQNCmI8LSBjKDEsMiwzLDQsNSkNCmINCg0Kc3VtYV92ZWN0b3JlczwtYStiDQpzdW1hX3ZlY3RvcmVzDQpgYGANCg0KDQpgYGB7cn0NCiNHcsOhZmljYXMNCnBsb3QoYSxiLCBtYWluPSJWZW50YXMgVG90YWxlcyIsIHhsYWI9IlNlbWFuYSIsIHlsYWI9Ik1pbGxvbmVzIGRlIFVTRCIpDQpwbG90DQpgYGANCg0KDQpgYGB7cn0NCiNFamVyY2ljaW8gMTogQWN0aXZpZGFkIGVuIGNsYXNlDQpkZiA8LSBkYXRhLmZyYW1lKE5vbWJyZSA9IGMoJ0FuYScsICdMdScsICdQZXBlJywgJ0p1YW4nLCAnVmFsZScpLCBQZXNvIDwtIGMoNDgsNTIsNjAsNTYsNzApICwgQWx0dXJhIDwtIGMoMS40OCwxLjUyLDEuNjAsMS41NiwxLjcwKSwgSU1DPSBQZXNvL0FsdHVyYSoqMikgDQpkZg0Kc3VtbWFyeShkZikNCg0KIzIxLDkNCiMyMiw1DQojMjMsNA0KIzIzDQojMjQsMg0KDQpgYGANCg0KYGBge3J9DQojRXN0YW1vcyBtdXkgYmllbg0KcGxvdChBbHR1cmEsUGVzbykNCmBgYA0KDQoNCiNDb25jbHVzaW9uZXMNCipSKiBlcyB1biBsZW5ndWFqZSBkZSBwcm9ncmFtYWNpw7NuIMO6dGlsIHBhcmEgcmVhbGl6YXIgY8OhbGN1bG9zLCBwcmluY2lwYWxtZW50ZSBlc3RhZMK0c2l0aWNvcywgeSBmb3JtYSBwYXJ0ZSBkZSBsYXMgaGVycmFtaWVudGFzIGRlbCAqQmlnIEJhdGEqLg0KDQpSIFN0dWRpbyBlcyBlbCBlbnRvcm5vIGVuIGRvbmRlIHNlIHB1ZWRlIHByb2dyYW1hciAqUiogeSBncmFjaWFzIGEgcXVlIHRhbWJpZW4gYXF1w60gc2UgcHVlZGUgcHJvZ3JhbWFyICpQeXRob24sIGVuIGp1bGlvIGRlbCAyMDIzIHNlIGFudW5jacOzIHN1IG51ZXZvIG5vbWJyZTogKipQb3NpdCoNCg0KRW4gZXN0YSBpbnRyb2R1Y2Npw7NuLCBsbyBxdWUgbGxhbWEgbGEgYXRlbmNpw7NuIGVzIGxhIGNvbnN0YW50ZSBhcGFyaWNpw7NuIGRlIGFsZXJ0YXMgbyBlcnJvcmVzIGVuIGVsIHByb2dyYW1hLCBsb3MgY3VhbGVzIGVuY29udHJhbW9zIHF1ZSBwcmluY2lwYWxtZW50ZSBzZSBkZWJlbiBhIHF1ZSBsYSB2ZXJzacOzbiBkZSAqUiogbm8gZXMgbGEgbcOhcyByZWNpZW50ZSwgYSBsYSBmYWx0YSBkZSBpbnN0YWxhY2nDs24gZGUgcGFxdWV0ZXMgbyBsbGFtYXIgYSBsYXMgbGlicmVyw61hcywgcHJvYmxlbWFzIGRlIGVzY3JpdHVyYSAodHlwb3MpIHkgbG9zIG11Y2hvcyBhcmd1bWVudG9zIHF1ZSB0aWVuZW4gbGFzIGZ1bmNpb25lcy4NCg0KU2kgZGVzZGUgdW4gaW5pY2lvIHByb2dyYW1hbW9zIGRlIGZvcm1hIGVzdHJ1Y3R1cmFkYSwgZGlzY2lwbGluYWRhIHkgbWV0aWN1bG9zYSwgcG9kZW1vcyBwcmV2ZWVyIG11Y2hhcyBkZSBsYXMgYWxlcnRhcyBvIGVycm9yZXMgeSBhc8OtIG9idGVuZHJlbW9zIGxvcyBtdWNob3MgYmVuZWZpY2lvcyBkZSBsYSBwcm9ncmFtYWNpw7NuIGVuICpSKiwgY29tbyBsb3MgcHJvbsOzc3RpY29zwqBkZcKgcHJlZGljY2nDs24NCg0KRW4gbGEgYWN0aXZpZGFkIHByZXZpYSB0dXZlIGxhIG9wb3J0dW5pZGFkIGRlIGFwcmVuZGVyIG9wZXJhY2lvbmVzIGLDoXNpY2FzIHF1ZSBlc3RhcsOpIHV0aWxpemFuZG8gYSBsbyBsYXJnbyBkZWwgY3Vyc28sIGNvbW8gc3VtYSwgcmVzdGEsIG11bHRpcGxpY2FjacOzbiBvIHJhw61jZXMgY3VhZHJhZGFzLiBFc3RvIGxvIGhpY2ltb3MgY29uIGVsIGZpbiBkZSBmYWNpbGl0YXIgZWwgZGVzYXJyb2xsbyBkZSBsYXMgcHLDs3hpbWFzIGFjdGl2aWRhZGVzLiBMdWVnbywgcmVhbGljw6kgdW4gZWplcmNpY2lvIGNvbiBlbCBxdWUgcHVkZSBsbGVnYXIgYSBsYSBjb25jbHVzacOzbiBkZSBxdWUgbGFzIHBlcnNvbmFzIGRlIG1pIG11ZXN0cmEgdGllbmVuIHVuIGJ1ZW4gSU1DLCBjb25zaWRlcmFuZG8gcXVlIHNlZ8O6biBlbCAiQ2VudGVyIGZvciBEaXNlYXNlIENvbnRyb2wgYW5kIFByZXZlbnRpb24iIHVuIElNQyBlbnRyZSAxOC41IHkgMjQuOSBlcyBlbCByYW5nbyBkZSBwZXNvIG5vcm1hbCBvIHNhbHVkYWJsZSB5IGVuIG1pIG11ZXN0cmEgdG9kb3MgZXN0w6FuIGRlbnRybyBkZWwgcmFuZ28sIHRlbmllbmRvIGVuIHByb21lZGlvIHVuIElNQyBkZSAyMywgcG9yIGxvIHF1ZSBzZSBwb2Ryw61hIGRlY2lyIHF1ZSBlc3TDoW4gbXV5IGJpZW4gZW4gY3XDoW50byBhIHNhbHVkLCBiYXPDoW5kb25vcyBzw7NsbyBlbiBkb3MgZmFjdG9yZXMsIGVsIHBlc28geSBsYSBhbHR1cmEuIA==