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_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_descendente <- sort (a, decreasing = TRUE)
orden_descendente
## [1] 5 4 3 2 1
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
plot(a,b,main="Ventas Totales",xlab="Semana",ylab="Milliones de USD")

Ejercicio1

nombres <- c ("Diego", "Toño", "AnaPau", "María", "Osvaldo")
altura <- c (1.52, 1.90, 1.50, 1.65, 1.73)
peso <- c(64, 80, 55, 50, 65)
imc <- peso/altura**2

df <- data.frame(nombres, altura, peso, imc)

df
##   nombres altura peso      imc
## 1   Diego   1.52   64 27.70083
## 2    Toño   1.90   80 22.16066
## 3  AnaPau   1.50   55 24.44444
## 4   María   1.65   50 18.36547
## 5 Osvaldo   1.73   65 21.71807
summary(df)
##    nombres              altura          peso           imc       
##  Length:5           Min.   :1.50   Min.   :50.0   Min.   :18.37  
##  Class :character   1st Qu.:1.52   1st Qu.:55.0   1st Qu.:21.72  
##  Mode  :character   Median :1.65   Median :64.0   Median :22.16  
##                     Mean   :1.66   Mean   :62.8   Mean   :22.88  
##                     3rd Qu.:1.73   3rd Qu.:65.0   3rd Qu.:24.44  
##                     Max.   :1.90   Max.   :80.0   Max.   :27.70
plot(altura,peso,main="Gráfica",xlab="Altura",ylab="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 fracias a que también aquí se puede programar en Phyton, 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 el Ejercicio 1, 3 de los 5 estudiantes están dentro del IMC óptimo para la edad. Esto porque el IMC evalúa la relación entre peso y altura, si se tiene más peso en relación a la altura, se saldrá del IMC óptimo y viceversa. Esto se observa gracias al dataframe que muestra peso y altura de los 5 estudiantes y el cálculo del IMC. Consultando en la web se sabe que el IMC óptimo para personas de nuestra edad es de 19 a 24, hay uno que tiene menos y otro que tiene más.

LS0tCnRpdGxlOiAiQ29tYW5kb3MgQsOhc2ljb3MiCmF1dGhvcjogIk9zdmFsZG8gVGVsbG8gLSBBMDEyODU2NDIiCmRhdGU6ICIyMDI0LTAyLTE1IgpvdXRwdXQ6IAogIGh0bWxfZG9jdW1lbnQ6CiAgICB0b2M6IFRSVUUKICAgIHRvY19mbG9hdDogVFJVRQogICAgY29kZV9kb3dubG9hZDogVFJVRQotLS0KCiFbXSgvVXNlcnMvb3N2YWxkb3RlbGxvL0Rlc2t0b3AvVEVDL01hbmlwdWxhY2lvzIFuIGRlIGRhdG9zLzI1NjBweC1SU3R1ZGlvX2xvZ29fZmxhdC5zdmctMDEucG5nKQoKIyBBc2lnbmFjacOzbiBkZSB2YXJpYWJsZXMKYGBge3J9CnggPC0gMwp5IDwtIDIKYGBgCgojIEltcHJlc2nDs24gZGUgcmVzdWx0YWRvcwpgYGB7cn0KeAp5CmBgYAoKIyBPcGVyYWNpb25lcyBhcml0bcOpdGljYXMKYGBge3J9CnN1bWEgPC0geCt5CnN1bWEKCnJlc3RhIDwtIHgteQpyZXN0YQoKbXVsdGlwbGljYWNpb24gPC0geCp5Cm11bHRpcGxpY2FjaW9uCgpkaXZpc2lvbiA8LSB4L3kKZGl2aXNpb24KCmRpdmlzaW9uX2VudGVyYSA8LSB4JS8leQpkaXZpc2lvbl9lbnRlcmEKCnJlc2lkdW8gPC0geCUleQpyZXNpZHVvCgpwb3RlbmNpYSA8LSB4XjIKcG90ZW5jaWEKYGBgCgojIEZ1bmNpb25lcyBtYXRlbcOhdGljYXMKYGBge3J9CnJhaXpfY3VhZHJhZGEgPC0gc3FydCh4KQpyYWl6X2N1YWRyYWRhCgpyYWl6X2N1YmljYSA8LSB4KiooMS8zKQpyYWl6X2N1YmljYQoKZXhwb25lbmNpYWwgPC0gZXhwKDEpCmV4cG9uZW5jaWFsCgphYnNvbHV0byA8LSBhYnMgKHgpCmFic29sdXRvCgpzaWdubyA8LSBzaWduKHgpCnNpZ25vCgpyZWRvbmRlb19hcnJpYmEgPC0gY2VpbGluZyAoeC95KQpyZWRvbmRlb19hcnJpYmEKCnJlZG9uZGVvX2FiYWpvIDwtIGZsb29yICh4L3kpCnJlZG9uZGVvX2FiYWpvCgp0cnVuY2FyIDwtIHRydW5jKHgveSkKdHJ1bmNhcgpgYGAKCiMgQ29uc3RhbnRlcwpgYGB7cn0KcGkKCnJhZGlvIDwtIDUKCmFyZWFfY2lyY3VsbyA8LSBwaSogcmFkaW8qKjIKYXJlYV9jaXJjdWxvCmBgYAoKI1ZlY3RvcmVzCmBgYHtyfQphIDwtIGMgKDEsMiwzLDQsNSkKYQoKbm9tYnJlIDwtIGMgKCJKb3NlIiwgIkFuYSIgLCAiSnVhbiIpCm5vbWJyZQoKbG9uZ2l0dWQgPC0gbGVuZ3RoKGEpCmxvbmdpdHVkCgpsb25naXR1ZF9ub21icmUgPC0gbGVuZ3RoKG5vbWJyZSkKbG9uZ2l0dWRfbm9tYnJlCgpwcm9tZWRpbyA8LSBtZWFuIChhKQpwcm9tZWRpbwoKcmVzdW1lbiA8LSBzdW1tYXJ5KGEpCnJlc3VtZW4KCm9yZGVuX2FzY2VuZGVudGUgPC0gc29ydChhKQpvcmRlbl9hc2NlbmRlbnRlCgpvcmRlbl9kZXNjZW5kZW50ZSA8LSBzb3J0IChhLCBkZWNyZWFzaW5nID0gVFJVRSkKb3JkZW5fZGVzY2VuZGVudGUKCmIgPC0gYygxLDIsMyw0LDUpCmIKCnN1bWFfdmVjdG9yZXMgPC0gYSArIGIKc3VtYV92ZWN0b3JlcwoKcGxvdChhLGIsbWFpbj0iVmVudGFzIFRvdGFsZXMiLHhsYWI9IlNlbWFuYSIseWxhYj0iTWlsbGlvbmVzIGRlIFVTRCIpCmBgYAoKIyBFamVyY2ljaW8xCmBgYHtyfQpub21icmVzIDwtIGMgKCJEaWVnbyIsICJUb8OxbyIsICJBbmFQYXUiLCAiTWFyw61hIiwgIk9zdmFsZG8iKQphbHR1cmEgPC0gYyAoMS41MiwgMS45MCwgMS41MCwgMS42NSwgMS43MykKcGVzbyA8LSBjKDY0LCA4MCwgNTUsIDUwLCA2NSkKaW1jIDwtIHBlc28vYWx0dXJhKioyCgpkZiA8LSBkYXRhLmZyYW1lKG5vbWJyZXMsIGFsdHVyYSwgcGVzbywgaW1jKQoKZGYKc3VtbWFyeShkZikKcGxvdChhbHR1cmEscGVzbyxtYWluPSJHcsOhZmljYSIseGxhYj0iQWx0dXJhIix5bGFiPSJQZXNvIikKYGBgCgojIENvbmNsdXNpb25lcwoqKlIqKiBlcyB1biBsZW5ndWFqZSBkZSBwcm9ncmFtYWNpw7NuIMO6dGlsIHBhcmEgcmVhbGl6YXIgY8OhbGN1bG9zLCBwcmluY2lwYWxtZW50ZSBlc3RhZMOtc3RpY29zLCB5IGZvcm1hIHBhcnRlIGRlIGxhcyBoZXJyYW1pZW50YXMgZGVsICpCaWcgRGF0YSoKCipSIFN0dWRpbyogZXMgZWwgZW50b3JubyBlbiBkb25kZSBzZSBwdWVkZSBwcm9ncmFtYXIgKipSKiogeSBmcmFjaWFzIGEgcXVlIHRhbWJpw6luIGFxdcOtICBzZSBwdWVkZSBwcm9ncmFtYXIgZW4gKipQaHl0b24qKiwgZW4ganVsaW8gZGVsIDIwMjMgc2UgYW51bmNpw7Mgc3UgbnVldm8gbm9tYnJlOiAqKlBvc2l0KiouCgpFbiBlc3RhIGludHJvZHVjY2nDs24sIGxvIHF1ZSBsbGFtYSBsYSBhdGVuY2nDs24gZXMgbGEgY29uc3RhbnRlIGFwYXJpY2nDs24gZGUgYWxlcnRhcyBvIGVycm9yZXMgZW4gZWwgcHJvZ3JhbWEsIGxvcyBjdWFsZXMgZW5jb250cmFtb3MgcXVlIHByaW5jaXBhbG1lbnRlIHNlIGRlYmVuIGEgcXVlIGxhIHZlcnNpw7NuIGRlICoqUioqIG5vIGVzIGxhIG3DoXMgcmVjaWVudGUsIGEgbGEgZmFsdGEgZGUgaW5zdGFsYWNpw7NuIGRlIHBhcXVldGVzIG8gbGxhbWFyIGEgbGFzIGxpYnJlcsOtYXMsIHByb2JsZW1hcyBkZSBlc2NyaXR1cmEgKCp0eXBvcyopIHkgbG9zIG11Y2hvcyBhcmd1bWVudG9zIHF1ZSB0aWVuZW4gbGFzIGZ1bmNpb25lcy4KClNpIGRlc2RlIHVuIGluaWNpbyBwcm9ncmFtYW1vcyBkZSBmb3JtYSBlc3RydWN0dXJhZGEsIGRpc2NpcGxpbmFkYSB5IG1ldGljdWxvc2EsIHBvZGVtb3MgcHJldmVlciBtdWNoYXMgZGUgbGFzIGFsZXJ0YXMgbyBlcnJvcmVzIHkgYXPDrSBvYnRlbmRyZW1vcyBsb3MgbXVjaG9zIGJlbmVmaWNpb3MgZGUgbGEgcHJvZ3JhbWFjacOzbiBlbiAqUiosIGNvbW8gbG9zIHByb27Ds3N0aWNvcyBkZSBwcmVkaWNjacOzbi4KCkVuIGVsIEVqZXJjaWNpbyAxLCAzIGRlIGxvcyA1IGVzdHVkaWFudGVzIGVzdMOhbiBkZW50cm8gZGVsIElNQyDDs3B0aW1vIHBhcmEgbGEgZWRhZC4gRXN0byBwb3JxdWUgZWwgSU1DIGV2YWzDumEgbGEgcmVsYWNpw7NuIGVudHJlIHBlc28geSBhbHR1cmEsIHNpIHNlIHRpZW5lIG3DoXMgcGVzbyBlbiByZWxhY2nDs24gYSBsYSBhbHR1cmEsIHNlIHNhbGRyw6EgZGVsIElNQyDDs3B0aW1vIHkgdmljZXZlcnNhLiBFc3RvIHNlIG9ic2VydmEgZ3JhY2lhcyBhbCBkYXRhZnJhbWUgcXVlIG11ZXN0cmEgcGVzbyB5IGFsdHVyYSBkZSBsb3MgNSBlc3R1ZGlhbnRlcyB5IGVsIGPDoWxjdWxvIGRlbCBJTUMuIENvbnN1bHRhbmRvIGVuIGxhIHdlYiBzZSBzYWJlIHF1ZSBlbCBJTUMgw7NwdGltbyBwYXJhIHBlcnNvbmFzIGRlIG51ZXN0cmEgZWRhZCBlcyBkZSAxOSBhIDI0LCBoYXkgdW5vIHF1ZSB0aWVuZSBtZW5vcyB5IG90cm8gcXVlIHRpZW5lIG3DoXMuCgoKCgoKCgoK