swh:1:snp:3aec91c51d538d62f3f51f6a0af59fe452f330ab
Tip revision: 7fd3759a82efec68108f707415410ada425b5242 authored by Zhu Wang on 09 March 2024, 20:10:02 UTC
version 0.4-2.25
version 0.4-2.25
Tip revision: 7fd3759
error.bars.R
error.bars <-
function(x, up, lo, width = 0.02, ...)
{
xlim <- range(x)
ci <- diff(xlim) * width
segments(x, up, x, lo, ...)
segments(x - ci, up, x + ci, up, ...)
segments(x - ci, lo, x + ci, lo, ...)
range(up, lo)
}