# 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)