Re: [R] Is there a quick way to count the number of times each element in a vector appears?

2007-03-06 Thread Alberto Monteiro
Dylan Arena wrote: I'm writing a function that calculates the probability of different outcomes of dice rolls (e.g., the sum of the highest three rolls of five six-sided dice). You know there are simpler ways to do this, don't you? Alberto Monteiro

Re: [R] Is there a quick way to count the number of times each element in a vector appears?

2007-03-06 Thread José Rafael Ferrer Paris
El lun, 05-03-2007 a las 22:16 -0800, Dylan Arena escribió: So here is my question in a nutshell: Does anyone have ideas for how I might efficiently process a matrix like that returned by a call to combinations(n, r, rep=TRUE) to determine the number of repetitions of each element in each row

[R] Is there a quick way to count the number of times each element in a vector appears?

2007-03-05 Thread Dylan Arena
Hi there, I'm writing a function that calculates the probability of different outcomes of dice rolls (e.g., the sum of the highest three rolls of five six-sided dice). I'm using the combinations function from the gtools package, which is great: it gives me a matrix with all of the possible

Re: [R] Is there a quick way to count the number of times each element in a vector appears?

2007-03-05 Thread Benilton Carvalho
is this what you mean? tmp - combinations(3, 3, rep=TRUE) colSums(apply(tmp, 1, duplicated))+1 b On Mar 6, 2007, at 1:16 AM, Dylan Arena wrote: Hi there, I'm writing a function that calculates the probability of different outcomes of dice rolls (e.g., the sum of the highest three rolls of

Re: [R] Is there a quick way to count the number of times each element in a vector appears?

2007-03-05 Thread Benilton Carvalho
sorry, i forgot to mention that you will need an extra test |-) tmp - combinations(3, 3, rep=TRUE) out - colSums(apply(tmp, 1, duplicated))+1 out[out == 1] - 0 but now, re-reading your message, you say (..) want to count the number of times each element appears in each arrangement (...)