R/flip.rgl.coin.R

Defines functions flip.rgl.coin

Documented in flip.rgl.coin

flip.rgl.coin <- function(side=sample(2,1), steps=150) {

  for (i in seq(0,(5+side)*180, length=steps*(5+side)) ){
    rgl::rgl.viewpoint(i,0)
  }
  return(side)
}

Try the TeachingDemos package in your browser

Any scripts or data that you put into this service are public.

TeachingDemos documentation built on April 2, 2020, 3:01 a.m.