Try this:
matrix(sample(dsize, nrolls * ndice, replace = FALSE), nrolls, ndice)
On Mon, Feb 2, 2009 at 12:39 PM, Joe Hughes <joe.hug...@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
>
> ______________________________________________
> R-help@r-project.org mailing list
> https://stat.ethz.ch/mailman/listinfo/r-help
> PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
> and provide commented, minimal, self-contained, reproducible code.
>
______________________________________________
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.
