inst/doc/introduction.R

In CoraBai/roller: Simulates rolling an object

## ---- echo = FALSE, message = FALSE--------------------------------------
knitr::opts_chunk$set(collapse = T, comment = "#>")
library("roller")

## ------------------------------------------------------------------------
defaultdevice <- device()
defaultdevice

## ------------------------------------------------------------------------
loaded <- device(sides = c(1, 2), prob = c(0.8, 0.2))
loaded

## ------------------------------------------------------------------------
roll100 <- roll(defaultdevice, times = 100)
roll100

## ------------------------------------------------------------------------
summary.rolls(roll100)

## ---- fig.show='hold'----------------------------------------------------
plot(roll100)