R/error.bars.R

In gamsel: Fit Regularization Path for Generalized Additive Models

Defines functions error.bars

Documented in error.bars

error.bars <-
function(x, upper, lower, width = 0.02, ...)
{
	xlim <- range(x)
	barw <- diff(xlim) * width
	segments(x, upper, x, lower, ...)
	segments(x - barw, upper, x + barw, upper, ...)
	segments(x - barw, lower, x + barw, lower, ...)
	range(upper, lower)
}

Try the gamsel package in your browser