R/prepanel.dice.R

"prepanel.dice" <-
function(x,y){
  xx <- ceiling(sqrt(length(x)))
  yy <- ceiling( length(x)/xx )
  return(list(ylim=c(-0.1,yy+0.1),xlim=c(-0.1,xx+0.1)) )
}

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.