# LABOTARIO DIRIGIDO 1 - PREGUNTA 6
# *********************************
x <- 0:4
x
# se cuenta los valores existentes en el vector x
sum(!is.na(x))
# se concatena el vector c con una modificación del
# vector c que excluye elementos de este mismo
a <- c(x, x[-(1:length(x))])
# al último elemento del vector x se le divide por la cantidad de elementos
# de x (como si fuera una frecuencia relativa del ultimo elemento)
x[length(x) + 1]/length(x)
# se calcula la cantidad de valores en x que son mayores que la media de x
sum(x > mean(x))