R/simple.fancy.stripchart.R

##' function to make a fancier stripchart
##'
##' @param l data
##' @return NULL
##'
##' @export
"simple.fancy.stripchart" <-
  function(l) {
    stripchart(l,pch=1,group.names=names(l))
    n = length(l)
    for(i in 1:n) {
      abline(i,0,lty=3)
      points(mean(l[[i]]),i-.5/n,pch=17,cex=2)
    }
  }

Try the UsingR package in your browser

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

UsingR documentation built on May 2, 2018, 1:03 a.m.