R/plotForwSim.r

Defines functions plotForwSim

Documented in plotForwSim

plotForwSim <- function(fs,xlab="Number of additional batches per group",ylab="Expected increase in True Positives",col='gray',lty=1,...) {
  sel <- fs$simid==min(fs$simid)
  plot(fs$time[sel],fs$summary[sel],xlab=xlab,ylab=ylab,type='l',col=col,lty=lty,...)
  for (i in (min(fs$simid)+1):max(fs$simid)) {
    sel <- fs$simid==i
    lines(fs$time[sel],fs$summary[sel],col=col,lty=lty)
  }
}

Try the gaga package in your browser

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

gaga documentation built on May 2, 2018, 3:35 a.m.