R/draw_i.R

In binomialcftp: Generates binomial random numbers via the coupling from the past algorithm

Defines functions draw_i

Documented in draw_i

draw_i <-
function() {
  E=runif(1)
  L=1
  if(E<0.5){L=-1}
  result <- L
  return(result)
}

Try the binomialcftp package in your browser