If you are interested in rolling dice with R (as opposed to using this as a simple test case to start writing your own programs), then you may want to look at the "dice" function from the TeachingDemos package. The core line in this function is basically the same as Gabor's suggestion, but with the added option of weighting the dice (you don't like how I graded your exam? I am happy to let these computerized dice regrade it for you :-). There is also an option to plot the results (for 6-sided dice).
There is also the plot.rgl.die and roll.rgl.die functions in the same package that give an animated rolling of the die (I really need to rewrite it to get a better animation, the coin flip works ok as is). Hope this helps, -- Gregory (Greg) L. Snow Ph.D. Statistical Data Center Intermountain Healthcare greg.s...@imail.org 801.408.8111 > -----Original Message----- > From: r-help-boun...@r-project.org [mailto:r-help-boun...@r- > project.org] On Behalf Of Joe Hughes > Sent: Monday, February 02, 2009 10:40 AM > To: R-help@r-project.org > Subject: [R] New to R > > 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.
