diff options
Diffstat (limited to 'util.R')
-rw-r--r-- | util.R | 9 |
1 files changed, 9 insertions, 0 deletions
@@ -13,3 +13,12 @@ dir.create.safe <- function(path, log=T) { dir.create(path) } } + +# Confidence interval stat summary +ci.fun <- function(d) { + test <- t.test(d) + ci <- test$conf.int + m <- as.double(test$estimate) + + data.frame(ymin=ci[1], ymax=ci[2], y=m) +} |