mja

# http://henrik.nyh.se/2008/12/git-dirty-prompt
# http://www.simplisticcomplexity.com/2008/03/13/show-your-git-branch-name-in-your-prompt/
# 
# boosty likes it like that:
#   ~/dev/dir[master]$   # clean working directory
#   ~/dev/dir[master⚡]$  # dirty working directory

function parse_git_dirty {
  [[ $(git status 2> /dev/null | tail -n1) != "nothing to commit (working directory clean)" ]] && echo "⚡"
}

mja

 *** caught bus error ***
address 0x8, cause 'non-existent physical address'

Traceback:
 1: .C("MCMCglmm", as.double(data$MCMC_y), as.double(data$MCMC_y.additional),     as.double(data$MCMC_liab), as.integer(mvtype), as.integer(length(data$MCMC_y)),     as.integer(X@i), as.integer(X@p), as.double(X@x), as.integer(X@Dim),     as.integer(length(X@x)), as.integer(Z@i), as.integer(Z@p),     as.double(Z@x), as.integer(Z@Dim), as.integer(length(Z@x)),     as.integer(A@i), as.integer(A@p), as.double(A@x), as.integer(A@Dim),     as.integer(length(A@x)), as.double(MSsd), as.integer(id -         1), as.integer(dam - 1), as.integer(sire - 1), as.integer(PedDim),     as.integer(Aterm), as.integer(nfl), as.integer(nrl), as.integer(update),     as.integer(split - 1), as.integer(c(nG, nR)), as.double(GRinv),     as.double(GRvpP), as.double(GRnpP), as.integer(nitt), as.integer(thin),     as.integer(burnin), as.integer(c(pr, pl)), as.double(Loc),     as.double(Var), as.double(PLiab), as.integer(data$MCMC_family.names),  

mja

survey_id
1

mja

require 'uri'

ARGV.first.split.each do |f|
	article = URI.parse(f)
	article.host = article.host + ".ezproxy.YOUR-INSTITUTION"
	puts article.to_s
end

mja

# Options for ggplot + opts(...)
# These don't seem to be documented on the web. Listed here for reference.

# list current setting
theme_get()

# Make a plot
g <- ggplot(...)

# Print the plot with options

mja

7/15/10 3:28:32 PM	Papers[35823]	Error saving context after finish import2: Error Domain=NSCocoaErrorDomain Code=133020 UserInfo=0x190937c0 "Could not merge changes." | Info: {
    conflictList =     (
                {
            cachedRow =             {
                name = "cross-culture";
                parent = <null>;
                predicateData = <62706c69 73743030 d4010203 040508e3 e4542474 6f705824 6f626a65 63747358 24766572 73696f6e 59246172 63686976 6572d106 0754726f 6f748001 af103809 0a11171a 1f273132 343c4045 464b4f55 5a5b6068 6d72777c 7d818485 888b8d92 969b9ea2 a7acadb1 b4b5b8b9 bdc4c7cb d0d5d6da dde0e155 246e756c 6cd30b0c 0d0e0f10 5f10174e 53436f6d 706f756e 64507265 64696361 74655479 70655f10 0f4e5353 75627072 65646963 61746573 5624636c 61737310 01800280 1fd2120d 13165a4e 532e6f62 6a656374 73a21415 80038020 801ed30b 0c0d0e18 10800480 1fd2120d 1b16a21c 1d800580 16801ed4 20210d22 23242526 5f10114e 53526967 68744578 70726573 73696f6e 5f10104e 534c6566 74457870 72657373 696f6e5f 10134e53 507

mja

f <- function(a, b,...) {
    as.list(match.call()[-1])
}

# > f(x, y, c=z)
# $a
# x
#
# $b
# y

mja

mja

library(coda)

# data from Beaumont MA, Balding DJ 2004 Molecular Ecology, 13: 969-980
fst <- read.table("http://gist.github.com/raw/641378/020f716d2b96643201653eb62f7ee9387bebc136/fst.out")

# Turn the parameter for the first loci into an MCMC object
g6pd <- mcmc(fst[,2])

# print summary info
summary(g6pd)

mja

do.call('+', list(1, 2))