
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/y)
redondeo_abajo
## [1] 1
truncar= trunc(x/y)
truncar
## [1] 1
Constantes
pi
## [1] 3.141593
radio= 5
area= pi*radio**2
area
## [1] 78.53982
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
Gráficas
plot(a,b, main= "Ventas totales", xlab= "semana", ylab="Millones de pesos")

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")

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