aufrank

(defrecord Node [^Float activation neighbors])

(def k (Node. 0.2 '(kaet)))
(def ae (Node. 0.2 '(kaet)))
(def t (Node. 0.2 '(kaet)))
(def kaet
  (Node. 0.2 '(k ae t cat)))
(def cat (Node. 0.2 '(kaet)))

(map #(:activation %) (:neighbors kaet))

aufrank

Day job:  Cognitive science post-doc

Favorite Python project:  PsychoPy https://github.com/psychopy/psychopy

Favorite Conference:  International Workshop on Language Production

Python Experience Level:  Intermediate

aufrank

[diff]
	tool = chdiff

[difftool]
	prompt = false

[difftool "chdiff"]
	cmd = /usr/bin/env chdiff "$LOCAL" "$REMOTE"

aufrank

library(rms)
library(ggplot2)
ddiamonds <- datadist(diamonds)
options(datadist = "ddiamonds")
fit.ols <- ols(price ~ carat * cut, diamonds)

## can specify a range on a continuous predictor 
Predict(fit.ols, carat = seq(2,4,.25))

## can specify a single level for a categorical predictor

aufrank

(defun mark-line (&optional arg)
  (interactive "p")
  (beginning-of-line)
  (let ((here (point)))
    (dotimes (i arg)
      (end-of-line))
    (set-mark (point))
    (goto-char here)))

(defun mark-sentence (&optional arg)

aufrank

 '(ido-auto-merge-work-directories-length 0)
 '(ido-cannot-complete-command (quote ido-exit-minibuffer))
 '(ido-decorations (quote ("{" "}" "," ",..." "[" "]" " [No match]" " [Matched]" " [Not readable]" " [Too big]" " [Confirm]")))
 '(ido-enable-flex-matching t)
 '(ido-ignore-files (quote ("\\`CVS/" "\\`#" "\\`.#" "\\`\\.\\./" "\\`\\./" "\\`\\.DS_Store" "\\`\\.localized")))
 '(ido-mode (quote both) nil (ido))
 '(ido-use-filename-at-point nil)
 '(ido-use-virtual-buffers t)

aufrank

#!/bin/sh

# The job of git-flush is to recompactify your repository to be as small
# as possible, by dropping all reflogs, stashes, and other cruft that may
# be bloating your pack files.

git for-each-ref --format="%(refname)" refs/original/ | \
  xargs -n 1 git update-ref -d

git reflog expire --expire=0 --all

aufrank

(defun epom-insinuate-todochiku ()
  "Use the notification functions from todochiku.el."
  (mapc (lambda (args)
          (let ((hook (car args))
                (message (nth 1 args))
                (icon (nth 2 args))
                (old-function (nth 3 args)))
            (epom-add-todochiku-hook hook message icon)
            (epom-remove-hook hook old-function)))
        '((epom-start-pom-hook

aufrank

# shows things that might be invisibly messing up a script, like DOS
# line endings
cat -vet file

aufrank

# add in your .bashrc
# http://henrik.nyh.se/2008/12/git-dirty-prompt
# http://www.simplisticcomplexity.com/2008/03/13/show-your-git-branch-name-in-your-prompt/
# http://blog.cyberion.net/2009/01/improved-bash-prompt-for-git-usage.html
#   username@Machine ~/dev/dir[master]$   # clean working directory
#   username@Machine ~/dev/dir[master⚡]$  # dirty working directory
#
# I've made the following ajustements:
#   - Use of plumbing, that should be faster than git status porcelain.
#   - Don't show my repo as dirty if it has files unknown from the index (I always have).