x <- 3
y <- 2
x
## [1] 3
y
## [1] 2
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
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
pi
## [1] 3.141593
radio <- 5
area_circulo <- pi * radio**2
area_circulo
## [1] 78.53982
a <- c(1,2,3,4,5)
a
## [1] 1 2 3 4 5
nombre <- c("Jose", "Ana", "Juan", "Kevin", "Toño")
nombre
## [1] "Jose" "Ana" "Juan" "Kevin" "Toño"
longitud <- length(a)
longitud
## [1] 5
longitud_nombre <- length(nombre)
longitud_nombre
## [1] 5
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
plot(a,b,main = "Ventas Totales", xlab = "Semana", ylab = "Millones de dólares")
Nombres <- c("Jose", "Ana", "Juan", "Kevin", "Toño")
Altura <- c(1.75, 1.65, 1.58, 1.82, 1.90)
Peso <- c(78,56,71,93,83)
imc <- Peso/Altura
df <- data.frame(Nombres, Altura, Peso, imc)
resumen <- summary(df)
resumen
## Nombres Altura Peso imc
## Length:5 Min. :1.58 Min. :56.0 Min. :33.94
## Class :character 1st Qu.:1.65 1st Qu.:71.0 1st Qu.:43.68
## Mode :character Median :1.75 Median :78.0 Median :44.57
## Mean :1.74 Mean :76.2 Mean :43.65
## 3rd Qu.:1.82 3rd Qu.:83.0 3rd Qu.:44.94
## Max. :1.90 Max. :93.0 Max. :51.10
plot(Altura,Peso, main = "Altura y Peso", xlab = "Altura", ylab = "Peso")
summary(df)
## Nombres Altura Peso imc
## Length:5 Min. :1.58 Min. :56.0 Min. :33.94
## Class :character 1st Qu.:1.65 1st Qu.:71.0 1st Qu.:43.68
## Mode :character Median :1.75 Median :78.0 Median :44.57
## Mean :1.74 Mean :76.2 Mean :43.65
## 3rd Qu.:1.82 3rd Qu.:83.0 3rd Qu.:44.94
## Max. :1.90 Max. :93.0 Max. :51.10
# Estamos Fit
A través de operaciones aritméticas, funciones matemáticas, manipulación de vectores y visualización gráfica, se demuestra la versatilidad y poder analítico de R. La inclusión de constantes como pi y la aplicación en cálculos adicionales proporciona una comprensión sólida de conceptos fundamentales. El ejercicio práctico del IMC refuerza la aplicabilidad del conocimiento adquirido, destacando la capacidad de R para análisis de datos más complejos y su utilidad en escenarios del mundo real.