#Asignar una variable x <- 3 y <- 2
#Imprimir el resultado x y
#Operaciones basicas suma <- x + y suma
#Resta -, Multiplicacion *, Division /
division_entera <- x %/% y division_entera
redondear_arriba <- ceiling(x/y) redondear_arriba
redondear_abajo <- floor(x/y) redondear_abajo
residuo <- x %% y residuo
potencia <- x ** 2 potencia
raiz <- x ** (1/2) raiz
exponencial <- exp(1) exponencial
absoluto <- abs(x) absoluto
signo <- sign(x) signo
#Constantes pi radio <- 10 area_circulo <- pi * radio ^ 2 area_circulo
#Vectores a <- c(1,2,3,4,5) a
b <- c(1:100) b
c <- seq(1, 100, by = 0.5) c
d <- rep(0, times = 40) d
nombres <- c(“Raul”, “Juan”, “Ana”, “Diego”, “Ricardo”) nombres
edad <- c(20, 25, 10, 20, 30) edad
tabla <- data.frame(nombres,edad) tabla
summary(tabla) str(tabla)
#para llamar la columna de una tabla tabla$edad
tabla\(meses <- tabla\)edad*12 tabla$meses tabla
#Ejercicio 1 #Generar una tabla con el nombre de los pacientes, su peso #su IMC y su Clasificacion.
altura <- c(1.70, 1.72, 1.80, 1.75, 1.99) peso <- c(50, 70, 80, 100,340)
tabla <- data.frame(tabla,altura,peso) tabla
tabla\(imc <- tabla\)peso /
tabla\(altura**2
tabla
tabla\)clasificacion <- ifelse(tabla\(imc<18.5, "Bajo peso",
ifelse(tabla\)imc<=24.9,
“Normal”, ifelse(tabla$imc<=29.9, “Sobrepeso”, “Obesidad”)))
tabla
#Continuacion de vectores longitud <- length(a) longitud
orden_ascendente <- sort(tabla$imc) orden_ascendente
orden_descendente <- sort(tabla$imc) orden_descendente
#Graficar plot(altura,peso,main=“Grafica de Altura y Peso”,xlab=“altura”,ylab=“peso”)