practica4

#Crear un vector de 20 nombres
nombres=c("a","b","c","d","e","f","g","h","i","j","k","l","m","n","o","p","q","r","s","t")

#Crear un vector de 20 elementos que contegan edades entre 17 y 30
edades=sample(17:30,size=20,replace = TRUE)


#Crear un data.frame con los nombres y las edades
Datos = data.frame(nombres, edades)
Datos

##    nombres edades
## 1        a     29
## 2        b     24
## 3        c     17
## 4        d     27
## 5        e     23
## 6        f     28
## 7        g     30
## 8        h     23
## 9        i     29
## 10       j     21
## 11       k     29
## 12       l     29
## 13       m     18
## 14       n     30
## 15       o     28
## 16       p     27
## 17       q     18
## 18       r     18
## 19       s     24
## 20       t     18

#Determinar media, máximos y mínimos de las edades
mean(edades)

## [1] 24.5

max(edades)

## [1] 30

min(edades)

## [1] 17

#Cual es la pesona que tiene mas edad?
nombres[which.max(Datos[,2])]

## [1] "g"

# Cual es la persona que tiene menos edad?
nombres[which.min(Datos[,2])]

## [1] "c"

# Visualizar los datos plot()
plot(Datos)

#Crear el archivo markdown
#Enviar enlace por este medio