Displaying 1 result from an estimated 1 matches for "cliplow".
Did you mean:
clipplot
2009 Mar 21
1
Forestplot () box size question
...found")
require("rmeta") || stop("`rmeta' package not found")
drawNormalCI <- function(LL, OR, UL, size)
{
size = 0.75 * size
clipupper <- convertX(unit(UL, "native"), "npc", valueOnly = TRUE) > 1
cliplower <- convertX(unit(LL, "native"), "npc", valueOnly = TRUE) < 0
box <- convertX(unit(OR, "native"), "npc", valueOnly = TRUE)
clipbox <- box < 0 || box > 1
if (clipupper || cliplower)
{
ends &l...