New to R

Try this:

matrix(sample(dsize, nrolls * ndice, replace = FALSE), nrolls, ndice)

On Mon, Feb 2, 2009 at 12:39 PM, Joe Hughes  
<joe.hughes at earthlink.net> wrote:

Hello All,

      A colleague of mine started working with R and out of  
curiosity I did
some research on the language.  Very nice.  In my opinion this is  
one of the
best languages I've found for getting tasks I'm interested in  
done.  I wrote
this simple die roller and was curious to know if it is R enough.

##############################################################################
#
# Input:
#   die_size - 4, 6, 8, 10, 20
#   number_of_dice - How many dice to roll
#   number_of_rolls - How many times to roll the dice
#
# Output:
#    rolls - The array holding the values of the dice
#
##############################################################################
#
function(die_size, number_of_dice, number_of_rolls)
{
      rolls <- array(0, dim=c(number_of_rolls, number_of_dice))

      for (i in 1:number_of_rolls)
      {
              rolls[i,] <- sample(die_size, number_of_dice,  
replace=TRUE)
      }

      return(rolls)
}

Any thoughts on this function?  Is there a better way of doing it  
in R?  Can
you tell I used to play AD&D?

Thanks,
Joe