kleinschmidt

;; reftex in markdown mode

;; if this isn't already set in your .emacs
(setq reftex-default-bibliography '("/path/to/library.bib"))

;; define markdown citation formats
(defvar markdown-cite-format)
(setq markdown-cite-format
      '(
        (?\C-m . "[@%l]")

kleinschmidt

---
title: "You kids play nice now"
output:
    html_document:
        keep_md: true
        md_extensions: +implicit_figures
        pandoc_args:
        - --filter
        - pandoc-fignos
references:

kleinschmidt

#!/bin/bash
# drop this in .git/hooks/, and chmod +x .git/hooks/pre-push

# store current branch
cur_branch=$(git rev-parse --abbrev-ref HEAD)
if [[ $cur_branch == "gh-pages" ]]
then
    # bail out if we're trying to push the gh-pages branch (to prevent infinite loop)
    exit 0
else

kleinschmidt

library(dplyr)
data.frame(a=factor(c('10', '20', '30', '40'))) %>% 
  mutate(b=as.character(a)) %>% 
  rowwise() %>% 
  mutate(c=as.character(a)) %>% 
  str

kleinschmidt

{
  "accessKey": "your access key",
  "secretKey": "your secret key"
}

kleinschmidt

using Stats, Distributions, Gadfly

import Gadfly.ElementOrFunction

# First add a method to the basic Gadfly.plot function for QQPair types (generated by Distributions.qqbuild())
Gadfly.plot(qq::QQPair, elements::ElementOrFunction...) = Gadfly.plot(x=qq.qx, y=qq.qy, Geom.point, Theme(highlight_width=0px), elements...)

# Now some shorthand functions
qqplot(x, y, elements::ElementOrFunction...) = Gadfly.plot(qqbuild(x, y), elements...)
qqnorm(x, elements::ElementOrFunction...) = qqplot(Normal(), x, Guide.xlabel("Theoretical Normal quantiles"), Guide.ylabel("Observed quantiles"), elements...)

kleinschmidt

kleinschmidt

<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE plist PUBLIC "-//Apple Computer//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
<plist version="1.0">
<dict>
    <key>Label</key>
    <string>auto-clean-mendeley-library</string>
    <key>ProgramArguments</key>
    <array>
        <string>/Users/dkleinschmidt/Documents/papers/clean-library-auto.sh</string>
    </array>

kleinschmidt

#!/bin/bash

# Author: Dave Kleinschmidt
#
#!/bin/bash

# Author: Dave Kleinschmidt
#
# concatenate all *.results files in the directory, printing one line
# per unique assignment id (first encountered). NOTE: the header isn't

kleinschmidt

mod.to.table <- function(mod.all=NA, prednames=NA, pred_name_subs=NA, file="",
                         coefs=as.data.frame(summary(mod.all)@coefs),
                         ...) {
  if (is.na(prednames)) {
    if (is.na(pred_name_subs)) {
      prednames <- row.names(coefs)
    } else {
      prednames <- str_replace_multi(row.names(coefs), pred_name_subs, replace.all=T)
    }
  }