1 Asignación de variables

x=3
y=2

2 Impresión de resultados

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

3 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

4 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

5 Constantes

pi
## [1] 3.141593
radio= 5
area= pi*radio**2
area
## [1] 78.53982

6 Vectores

a= c(1,2,3,4,5)
a
## [1] 1 2 3 4 5
nombre= c("Juan", "Jose", "Ana")
nombre
## [1] "Juan" "Jose" "Ana"
longitud= length(nombre)
longitud
## [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
extracto=b[3]
extracto
## [1] 3
suma_vectores= a+b
suma_vectores
## [1]  2  4  6  8 10

7 Gráficas

plot(a,b, main= "Ventas totales", xlab= "semana", ylab="Millones de pesos")

8 Ejercicio 1

nombre= c("Juan", "Pedro", "Jose", "Maria", "Rodrigo")
peso= c(54, 65, 60, 67, 70)
altura= c(1.60, 1.70, 1.65, 1.75, 1.80)
df= data.frame(nombre, peso, altura)

Indice_Masa_Corporal= peso/(altura*altura)
Indice_Masa_Corporal
## [1] 21.09375 22.49135 22.03857 21.87755 21.60494
df
##    nombre peso altura
## 1    Juan   54   1.60
## 2   Pedro   65   1.70
## 3    Jose   60   1.65
## 4   Maria   67   1.75
## 5 Rodrigo   70   1.80
summary(df)
##     nombre               peso          altura    
##  Length:5           Min.   :54.0   Min.   :1.60  
##  Class :character   1st Qu.:60.0   1st Qu.:1.65  
##  Mode  :character   Median :65.0   Median :1.70  
##                     Mean   :63.2   Mean   :1.70  
##                     3rd Qu.:67.0   3rd Qu.:1.75  
##                     Max.   :70.0   Max.   :1.80
#Peso promedio 68, altura promedio 1,64

plot(altura, peso, main="Altura y Peso", xlab= "Altura", ylab="Peso", col="purple")

9 Conclusiones

R Es un lenguaje de programación útil ára realizar cálculos, principlamente 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 llama la atención, es la constante aparición de alertas o errores en el programa, los cuales encontramos que principalemnte 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 librerias, 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.

LS0tDQp0aXRsZTogIlByw6FjdGljYSBVbm8iDQphdXRob3I6ICJPdmVkIFJ1aXotQTAxMTc0NDM1Ig0KZGF0ZTogIjIwMjQtMDItMTUiDQpvdXRwdXQ6DQogIGh0bWxfZG9jdW1lbnQ6DQogICAgdG9jOiBUUlVFIA0KICAgIHRvY19mbG9hdDogVFJVRQ0KICAgIGNvZGVfZG93bmxvYWQ6IFRSVUUNCiAgICB0aGVtZTogY29zbW8NCiAgICBudW1iZXJfc2VjdGlvbnM6IHRydWUNCmVkaXRvcl9zOiANCiAgY2h1bmtfb3V0cHV0X3R5cGU6IGNvbnNvbGUNCmVkaXRvcl9vcHRpb25zOiANCiAgY2h1bmtfb3V0cHV0X3R5cGU6IGNvbnNvbGUNCi0tLQ0KDQohW10oXFxVc2Vyc1xcV2luZG93cyAxMFxcRG93bmxvYWRzXFxpbWFnZXMtXzJfLnBuZykNCg0KIyBBc2lnbmFjacOzbiBkZSB2YXJpYWJsZXMNCmBgYHtyfQ0KeD0zDQp5PTINCg0KYGBgDQojIEltcHJlc2nDs24gZGUgcmVzdWx0YWRvcw0KYGBge3J9DQp4DQp5DQpgYGANCiMgT3BlcmFjaW9uZXMgYXJpdG3DqXRpY2FzDQpgYGB7cn0NCnN1bWE9IHgreQ0Kc3VtYQ0KDQpyZXN0YT0geC15DQpyZXN0YQ0KDQptdWx0aXBsaWNhY2lvbj0geCp5DQptdWx0aXBsaWNhY2lvbg0KDQpkaXZpc2lvbj0geC95DQpkaXZpc2lvbg0KDQpkaXZpc2lvbl9lbnRlcmE9IHglLyV5DQpkaXZpc2lvbl9lbnRlcmENCg0KcmVzaWR1bz0geCUleQ0KcmVzaWR1bw0KDQpwb3RlbmNpYT0geCoqMg0KcG90ZW5jaWENCg0KYGBgDQojIEZ1bmNpb25lcyBtYXRlbcOhdGljYXMNCg0KYGBge3J9DQpyYWl6X2N1YWRyYWRhPSBzcXJ0KHgpDQpyYWl6X2N1YWRyYWRhDQoNCnJhaXpfY3ViaWNhPSB4KiooMS8zKQ0KcmFpel9jdWJpY2ENCg0KZXhwb25lbmNpYWw9IGV4cCgxKQ0KZXhwb25lbmNpYWwNCg0KYWJzb2x1dG89IGFicyh4KQ0KYWJzb2x1dG8NCg0Kc2lnbm89IHNpZ24oeCkNCnNpZ25vDQoNCnJlZG9uZGVvX2FycmliYT0gY2VpbGluZyh4L3kpDQpyZWRvbmRlb19hcnJpYmENCg0KcmVkb25kZW9fYWJham89IGZsb29yKHgveSkNCnJlZG9uZGVvX2FiYWpvDQoNCnRydW5jYXI9IHRydW5jKHgveSkNCnRydW5jYXINCmBgYA0KDQojIENvbnN0YW50ZXMNCg0KYGBge3J9DQpwaQ0KcmFkaW89IDUNCmFyZWE9IHBpKnJhZGlvKioyDQphcmVhDQpgYGANCg0KIyBWZWN0b3Jlcw0KYGBge3J9DQphPSBjKDEsMiwzLDQsNSkNCmENCg0Kbm9tYnJlPSBjKCJKdWFuIiwgIkpvc2UiLCAiQW5hIikNCm5vbWJyZQ0KDQpsb25naXR1ZD0gbGVuZ3RoKG5vbWJyZSkNCmxvbmdpdHVkDQoNCnByb21lZGlvPSBtZWFuKGEpDQpwcm9tZWRpbw0KDQpyZXN1bWVuPSBzdW1tYXJ5KGEpDQpyZXN1bWVuDQoNCm9yZGVuX2FzY2VuZGVudGU9IHNvcnQoYSkNCm9yZGVuX2FzY2VuZGVudGUNCg0Kb3JkZW5fZGVzY2VuZGVudGU9IHNvcnQoYSwgZGVjcmVhc2luZz1UUlVFKQ0Kb3JkZW5fZGVzY2VuZGVudGUNCg0KIyA/c29ydA0KDQpiPWMoMSwyLDMsNCw1KQ0KYg0KDQpleHRyYWN0bz1iWzNdDQpleHRyYWN0bw0KDQpzdW1hX3ZlY3RvcmVzPSBhK2INCnN1bWFfdmVjdG9yZXMNCg0KYGBgDQoNCiMgR3LDoWZpY2FzIA0KDQpgYGB7cn0NCnBsb3QoYSxiLCBtYWluPSAiVmVudGFzIHRvdGFsZXMiLCB4bGFiPSAic2VtYW5hIiwgeWxhYj0iTWlsbG9uZXMgZGUgcGVzb3MiKQ0KYGBgDQoNCiMgRWplcmNpY2lvIDENCg0KYGBge3J9DQpub21icmU9IGMoIkp1YW4iLCAiUGVkcm8iLCAiSm9zZSIsICJNYXJpYSIsICJSb2RyaWdvIikNCnBlc289IGMoNTQsIDY1LCA2MCwgNjcsIDcwKQ0KYWx0dXJhPSBjKDEuNjAsIDEuNzAsIDEuNjUsIDEuNzUsIDEuODApDQpkZj0gZGF0YS5mcmFtZShub21icmUsIHBlc28sIGFsdHVyYSkNCg0KSW5kaWNlX01hc2FfQ29ycG9yYWw9IHBlc28vKGFsdHVyYSphbHR1cmEpDQpJbmRpY2VfTWFzYV9Db3Jwb3JhbA0KDQpkZg0Kc3VtbWFyeShkZikNCiNQZXNvIHByb21lZGlvIDY4LCBhbHR1cmEgcHJvbWVkaW8gMSw2NA0KDQpwbG90KGFsdHVyYSwgcGVzbywgbWFpbj0iQWx0dXJhIHkgUGVzbyIsIHhsYWI9ICJBbHR1cmEiLCB5bGFiPSJQZXNvIiwgY29sPSJwdXJwbGUiKQ0KYGBgDQoNCiMgQ29uY2x1c2lvbmVzDQoNCioqUioqIEVzIHVuIGxlbmd1YWplIGRlIHByb2dyYW1hY2nDs24gw7p0aWwgw6FyYSByZWFsaXphciBjw6FsY3Vsb3MsIHByaW5jaXBsYW1lbnRlIGVzdGFkw61zdGljb3MsIHkgZm9ybWEgcGFydGUgZGUgbGFzIGhlcnJhbWllbnRhcyBkZWwgKkJpZyBkYXRhKi4gIA0KDQoqUiBzdHVkaW8qIGVzIGVsIGVudG9ybm8gZW4gZG9uZGUgc2UgcHVlZGUgcHJvZ3JhbWFyICoqUioqLCB5IGdyYWNpYXMgYSBxdWUgdGFtYmnDqW4gYXF1w60gc2UgcHVlZGUgcHJvZ3JhbWFyICoqUHl0aG9uKiosIGVuIGp1bGlvIGRlbCAyMDIzIHNlIGFudW5jacOzIHN1IG51ZXZvIG5vbWJyZTogKipQb3NpdCoqDQoNCkVuIGVzdGEgaW50cm9kdWNjacOzbiBsbyBxdWUgbGxhbWEgbGEgYXRlbmNpw7NuLCBlcyBsYSBjb25zdGFudGUgYXBhcmljacOzbiBkZSBhbGVydGFzIG8gZXJyb3JlcyBlbiBlbCBwcm9ncmFtYSwgbG9zIGN1YWxlcyBlbmNvbnRyYW1vcyBxdWUgcHJpbmNpcGFsZW1udGUgYSBxdWUgbGEgdmVyc2nDs24gZGUgKipSKiogbm8gZXMgbGEgbcOhcyByZWNpZW50ZSwgYSBsYSBmYWx0YSBkZSBpbnN0YWxhY2nDs24gZGUgcGFxdWV0ZXMgbyBsbGFtYXIgYSBsYXMgbGlicmVyaWFzLCBwcm9ibGVtYXMgZGUgZXNjcml0dXJhICgqVHlwb3MqKSB5IGxvcyBtdWNob3MgYXJndW1lbnRvcyBxdWUgdGllbmVuIGxhcyBmdW5jaW9uZXMuICANCg0KU2kgZGVzZGUgdW4gaW5pY2lvIHByb2dyYW1hbW9zIGRlIGZvcm1hIGVzdHJ1Y3R1cmFkYSwgZGlzY2lwbGluYWRhIHkgbWV0aWN1bG9zYSwgcG9kZW1vcyBwcmV2ZWVyIG11Y2hhcyBkZSBsYXMgYWxlcnRhcyBvIGVycm9yZXMgeSBhc8OtIG9idGVuZHJlbW9zIGxvcyBtdWNob3MgYmVuZWZpY2lvcyBkZSBsYSBwcm9ncmFtYWNpw7NuIGVuICpSKiwgY29tbyBsb3MgcHJvbsOzc3RpY29zIGRlIHByZWRpY2Npw7NuLiAgDQoNCg0KDQoNCg==