# conta le occorrenze di valori diversi in un vettore
#
# GdA 3/3/09
#----------------------------------------------------

conta.occorrenze <- function(x) {
  cl <- sort(unique(x))
  nr <- integer()
  for (i in c(1:length(cl))) {
    nr[i] = length(r[r==cl[i]])
  }
  return(cbind(cl,nr))
}

#- esempio di uso (usare comandi commentati)
# r <- rgeom(1000,0.25)
# gr <- conta.occorrenze(r)
# barplot(gr[,2], names=gr[,1])

#------------------------------------------------------------------
# in realta' la funzione di R table() fa proprio questo 'mestiere'
# (ma, attenzione: non e' una matrice ma on oggetto `table')
# a proposito: per calcolare la moda di un campione:
#  names(sort(-table(r)))[1]    # att. non funziona se multimodale
#
# (per trasformare table in matrix: as. matrix)