Try this:

prob.xm <- (table(xm)/length(xm))[match(xm, sort(unique(xm)))]

Jean


Jim Silverton wrote on 08/24/2011 02:31:05 PM:

> Hi all,
> I have a vector xm say:  xm = c(1,2,3,4,5,5,5,6,6)
> 
> I want to return a vector with the corresponding probabilities based on 
the
> amount of times the numbers occurred. For example, I should get the
> following vector for xm:
> prob.xm = c(1/9, 1/9, 1/9, 1/9, 3/9, 3/9, 3/9, 2/9, 2/9)
> Any help greatly appreciated.
> 
> -- 
> Thanks,
> Jim.

	[[alternative HTML version deleted]]

