jrnold

snippet for
	for (${1:var} in ${2:start}:${3:end}) {
	  ${0}
	}

snippet if
	if (${1:condition}) {
	  ${0}
	}

jrnold

eng_printfile <- function(options) {
  code <- paste(readLines(options$engine.opts$file), collapse = "\n")
  options$engine <- options$engine.opts$lang
  knitr::engine_output(options, code, '')
}
knitr::knit_engines$set(printfile = eng_printfile)

jrnold

list_of_stuff <-
  list(a = rnorm(100),
       b = rnorm(100))

with(list_of_stuff, plot(a, b))

jrnold

#' CS&SS/SOC/STAT 221 Install Script
#'
#' Install R Commander and necessary packages and data to be
#' used in CS&SS/SOC/STAT 221.
#'

is_installed <- function(pkg) {
  is.element(pkg, installed.packages()[,1])
}

jrnold

intall.packages("devtools")
devtools::install_github(c("jrnold/bps5data", "jrnold/bps6data"))

jrnold

# Treebank Tokenizer in R
# 
# Code is a port of the NLTK python and sed scripts:
# - http://www.nltk.org/_modules/nltk/tokenize/treebank.html#TreebankWordTokenizer
# - http://www.cis.upenn.edu/~treebank/tokenizer.sed
library("stringr")
library("tokenizers")
library("microbenchmark")

.CONTRACTIONS2 <-

jrnold

http://en.wikipedia.org/wiki/States_Rights_Gist

jrnold

// Local Level model in Stan
// parameterized using Matt's Trick
data {
  int n;
  vector[n] y;
  real<lower=0> theta1_mean;
  real<lower=0> theta1_sd;
}
parameters {
  real<lower=0> sigma_v;

jrnold

/* 
A file for testing Stan syntax highlighting. 

It is not a real model and will not compile
*/
# also a comment
// also a comment
functions {
  void f1(void a, real b) {
    return 1 / a;

jrnold

define(function(require, exports, module) {

var oop = require("../lib/oop");
var DocCommentHighlightRules = require("./doc_comment_highlight_rules").DocCommentHighlightRules;
var TextHighlightRules = require("./text_highlight_rules").TextHighlightRules;


var StanHighlightRules = function() {

    var keywords = (