R/dieroll.R

In aicon08/TestProject: Test Case for Class

Defines functions dieroll

Documented in dieroll

#Roll of a 6 sided die

dieroll<-function()
{
  return(sample(c(1,2,3,4,5,6),1))
}