Displaying 1 result from an estimated 1 matches for "clipupper".
Did you mean:
clipper
2009 Mar 21
1
Forestplot () box size question
...xlow=0, xhigh, digitsize,
...)
{
require("grid") || stop("`grid' package not 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)
clip...