jwbowers

getCI <- function(B, muH0, sdH0, N) {
    getM <- function(orgDV, idx) {
        bsM   <- mean(orgDV[idx])                       # M*
        bsS2M <- (((N-1) / N) * var(orgDV[idx])) / N    # S^2*(M)
        c(bsM, bsS2M)
    }

    DV  <- rnorm(N, muH0, sdH0)            # simulated data: original sample
    M   <- mean(DV)                        # M from original sample
    S2M <- (((N-1)/N) * var(DV)) / N       # S^2(M) from original sample

jwbowers

## First do the unix account setup http://wiki.dreamhost.com/Unix_account_setup
cd ${HOME}
# create the first level directories (and log/setup)
mkdir -pv soft run www log log/setup backup data
# create the second level directories within run (our own FHS)
for subdir in bin etc include lib man share
do
  mkdir -pv run/${subdir}
done
# symlink so that man pages stay all in the same place

jwbowers

(eval-when-compile
  (require 'color-theme))

(defun color-theme-solarized (mode)
  "Color theme by Ethan Schoonover, created 2011-03-24.
Ported to Emacs by Greg Pfeil, http://ethanschoonover.com/solarized."
  (interactive "Slight or dark? ")
  (let ((base03  "#002b36")
        (base02  "#073642")
        (base01  "#586e75")