Commit 24e34748 authored by sgummidipundi's avatar sgummidipundi
Browse files

Change threshold for upper CI and action

parent eba629e0
......@@ -101,9 +101,9 @@ cell.spec.ci.or <- function(x, round.val)
{
mod_val <- c(mod_val, "< 0.001")
}
else if(value > 100000)
else if(value > 10000)
{
mod_val <- c(mod_val, formatC(value, format = "e", digits = 2))
mod_val <- c(mod_val, "> 10,000")
}
else
{
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment