x <- 3
y <- 2
x y
suma <- x + y suma
resta <- x - y resta
multiplicacion <- x * y multiplicacion
division <- x/y division
division_entera <- x %/% y division_entera
residuo <- x %% y residuo
potencia <- x ** 2 potencia
raiz_cuadrada <- sqrt(x) raiz_cuadrada
raiz_cubica <- x ** (1/3) raiz_cubica
exponencial <- exp(1) exponencial
absoluto <- abs(x) absoluto
signo <- sign(x) signo
redondeo_arriba <- ceiling (x/y) redondeo_arriba
redondeo_abajo <- floor(x) redondeo_abajo
truncar <- trunc(x/y) truncar
#Constantes pi radio <- 5 area_circulo <- pi * radio**2 area_circulo
a <- c(1,2,3,4,5) a
nombre <- c(“Jose”, “Ana”, “Juan”) nombre
longitud <- length(a) longitud
longitud_nombre <- length(nombre) longitud_nombre
promedio <- mean(a) promedio
resumen <- summary(a) resumen
orden_ascendente <- sort(a) orden_ascendente
orden_descendente <- sort(a, decreasing = TRUE) orden_descendente
?sort
b <- c(1,2,3,4,5) b
suma_vectores <- a + b suma_vectores
plot(a,b, main=“Ventas totales”, xlab = “Semana”, ylab = “Millones de USD”)
nombres <- c(“Toño”, “Paulette”, “Fabiana”, “Carolina”, “Osvaldo”) altura <- c(1.90, 1.65, 1.58, 1.63, 1.75) peso <- c(83, 56, 56, 56, 65) df$imc <- peso/(altura*altura)
df <- data.frame(nombres, altura, peso, imc) summary(df)
plot(altura, peso, main = “Ejercicio 1”, xlab = “Altura”, ylab = “Peso” )