nombre <- c(“Juan”, “Mary”, “Rubén”,“Paty”, “Jorge”, “Luis”, “Olga”, “Verónica”, “Mimí”, “Karina”, “Alejandro”, “Maite”, “Arleth”, “Antonio”, “Sarah”) edad <- c(40, 26, 56, 70, 3, 17, 23, 45, 34, 28, 40, 33, 20, 36, 42) genero <- c(‘M’, ‘F’, ‘M’, ‘F’, ‘M’, ‘M’, ‘F’, ‘F’, ‘F’, ‘F’,‘M’, ‘F’, ‘F’, ‘M’, ‘F’) sueldo <- c(5400.90, 6800.50, 34200.20, 68400.40, 23500.90, 32900, 23550.90, 25800.20, 20500.40, 21800.20, 32000.23, 40231, 32587.20, 23522, 56352.31) edocivil <- c(‘S’, ‘C’, ‘V’, ‘D’, ‘V’, ‘S’, ‘C’, ‘V’, ‘D’, ‘V’, ‘V’, ‘D’, ‘V’,‘S’, ‘C’)
personas <- data.frame(nombre, edad, genero, sueldo, edocivil)
personas\(nombre #todos los valores de nombres personas\)genero
personas[5,] personas[6, ] personas[c(7,8), c(1,3,4)]
personas[which.max(personas$sueldo),] personas[which.min(personas$sueldo),] personas[which.max(personas$edad),] personas[which.min(personas$edad),]
paste(“El promedio de edad es:”, mean(personas\(edad)) paste("El promedio de los sueldos es: ", mean(personas\)sueldo))
#Determinar rango de persona por sueldo
mediaEdad <- mean(edad) cuales <- which(personas$edad >= mediaEdad)
cuales <- which(personas\(sueldo >= 22000 & personas\)sueldo <= 28000) personas[cuales, ] # Todos sus campos