util.R


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24

# util.R
#
# Assorted utilities.

# Creates a directory at given path, optionally logging the action.
# If it already exists, the directory is not created.
dir.create.safe <- function(path, log=T) {
  if (!dir.exists(path)) {
    if (log) {
      loginfo("Creating directory: %s", path)
    }

    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)
}