mediana_home <- function(x){
  
  # calcola la lunghezza del vettore
  n <- length(x)
  # ordino il vettore
  x_ord <- sort(x)
  
  # calcolo la mediana
  if((n %% 2) != 0){
    # se n è dispari: il valore alla pos. (n + 1) / 2
    out <- x_ord[(n + 1) / 2]
  }
  else{
    # se n è pari: 
    #   la media dei valori alle pos. n/2 e alla pos. successiva
    out <- (x_ord[n / 2] + x_ord[(n / 2 + 1)]) / 2
  }
  
  # restituisco in output la mediana
  return(out)    
}
