keithshep

#!/usr/bin/perl
use strict;
use warnings;

my $status_output = `svn status @ARGV`;
my @split_status_lines = split(/\n/, $status_output);

foreach(@split_status_lines)
{
    if($_ =~ /^M.{5}\s+(.*)$/)

keithshep

#!/usr/bin/ruby -w

################################################################################
# Created By: Keith Sheppard (keith.sheppard@jax.org)
# Modification History:
#   July 7, 2008: Initial revision created to run the liftover utility on
#   the CGD (cgd.jax.org) imputed SNP data in comma-separated format
# 
# This is a ruby script for running liftover to map SNPs in a source
# comma-separated file to a destination file using a different NCBI genome

keithshep

#!/usr/bin/Rscript

library("animation")

# reformat a directory full of R source files
tidy.all <- function(inDir = NULL, outDir = NULL, ...) {
    if (is.null(inDir) || is.na(outDir))
        stop("inDir can't be null or NA")
    if (!file.info(inDir)$isdir)
        stop("inDir must be a directory")