Nothing
###
### R routines for the R package dlnm (c)
#
fci <-
function(ci, x, high, low, ci.arg, plot.arg, noeff=NULL) {
#
################################################################################
#
if(ci=="area") {
polygon.arg <- modifyList(list(col=grey(0.9),border=NA),ci.arg)
polygon.arg <- modifyList(polygon.arg,
list(x=c(x,rev(x)),y=c(high,rev(low))))
do.call(polygon,polygon.arg)
} else if(ci=="bars") {
range <- diff(range(x))/300
segments.arg <- modifyList(ci.arg,list(x0=x,y0=high,x1=x,y1=low))
do.call(segments,segments.arg)
segments.arg <- modifyList(segments.arg,list(x0=x-range,y0=high,
x1=x+range,y1=high))
do.call(segments,segments.arg)
segments.arg <- modifyList(segments.arg,list(x0=x-range,y0=low,
x1=x+range,y1=low))
do.call(segments,segments.arg)
} else if(ci=="lines") {
lines.arg <- list(lty=2)
if(!is.null(plot.arg$col)) lines.arg$col <- plot.arg$col
lines.arg <- modifyList(lines.arg,ci.arg)
lines.arg <- modifyList(lines.arg,list(x=x,y=high))
do.call(lines,lines.arg)
lines.arg <- modifyList(lines.arg,list(x=x,y=low))
do.call(lines,lines.arg)
}
if(!is.null(noeff)) abline(h=noeff)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.