deangiberson

#!/bin/bash
convert $1 -morphology Convolve DoG:15,100,0 -negate -normalize -blur 0x1 -channel RBG -level 60%,91%,0.1 $2

deangiberson

/**
 * Circular Tooltip (SO)
 * http://stackoverflow.com/q/13132864/1397351
 */
* { margin: 0; padding: 0; }
body {
	overflow: hidden;
	background: url(http://theearlcarlson.com/experiments/amTooltip/img/bg.jpg);
}
/* generic styles for button & circular menu */

deangiberson

function MonitorAssignment( F, names, valNames, E )
% MonitorAssignment( F, names, valNames, E ) - Pretty prints all the 
%   marginals for an assignment
%
%   F contains the struct array of factors
%   names contains the variable names
%   valNames contains the assignment names for each variable, 
%    as seen in SAMIAM
%   E is an N-by-2 cell array, each row being a variable/value pair. 
%     Variables are in the first column and values are in the second column.

deangiberson

(defun* get-closest-pathname (&optional (file "Makefile"))
  "Determine the pathname of the first instance of FILE starting from the
current directory towards root. This may not do the correct thing in presence
of links. If it does not find FILE, then it shall return the name of FILE in
the current directory, suitable for creation"
  (let ((root (expand-file-name "/")))
    (expand-file-name file
                      (loop
                       for d = default-directory
                       then (expand-file-name ".." d)

deangiberson

# A simple approach to visually-weighted regression plots, with Zelig

doInstall <- TRUE  # Change to FALSE if you don't want packages installed.
toInstall <- c("ggplot2", "reshape2", "Zelig")
if(doInstall){install.packages(toInstall, repos = "http://cran.us.r-project.org")}
lapply(toInstall, library, character.only = TRUE)

# Generate some data:
nn <- 1000
myData <- data.frame(X = rnorm(nn),