Skip to content

Instantly share code, notes, and snippets.

View gtuckerkellogg's full-sized avatar

Greg Tucker-Kellogg gtuckerkellogg

View GitHub Profile

(defun my/org-export-ignoreheadings-hook (backend) “My backend aware export preprocess hook.” (save-excursion (let* ((tag “ignoreheading”)) (org-map-entries (lambda () (delete-region (point-at-bol) (point-at-eol))) (concat “:” tag “:”))) ))

(setq org-export-before-processing-hook ‘my/org-export-ignoreheadings-hook)

(setq org-latex-classes
`(("memoir-article"
(,@ (concat "\\documentclass[11pt,article,oneside,a4paper,x11names]{memoir}\n"
"% -- DEFAULT PACKAGES \n[DEFAULT-PACKAGES]\n"
"% -- PACKAGES \n[PACKAGES]\n"
"% -- EXTRA \n[EXTRA]\n"
"\\counterwithout{section}{chapter}\n"
))
("\\section{%s}" . "\\section*{%s}")
("\\subsection{%s}" . "\\subsection*{%s}")
\documentclass[a4paper,10pt]{article}
\usepackage[english]{babel}
\usepackage{blindtext}
\usepackage {ifluatex}
\ifluatex
\usepackage {fontspec}
\fi
\usepackage[letterspace=500]{microtype}
\begin{document}
\begin{minipage}{3.7cm}

LSM2241 Lecture 5 feedback

front matter

require(tm)
source("code/tmt.R")
require(plyr)
require(Rstem)
require(wordcloud)
ans.good <- tolower(clean(as.character(unlist(feedback[feedback$average < 65 ,6]))))
ans.good <- removePunctuation(removeWords(ans.good,stopwords()))
#ans.good <- removeWords(ans.good,c("lecture","lectures"))
ans.good <- ans.good[!is.na(ans.good)]
ans.good <- ans.good[sapply(ans.good,ans.lengths) > 8 ]
# TrueCrypt 7.1 is incompatible with Homebrew, largely because it
# hardcodes some osxfuse libs in /usr/local/lib. A tedious solutions
# was outlined in
# https://github.com/mxcl/homebrew/pull/10183#commitcomment-1425634,
# which I've modified ever so slightly
MV="/bin/mv -f"
RM="/bin/rm"
#+TITLE: iKNOW alternative block
#+AUTHOR: Greg Tucker-Kellogg
#+EMAIL: [email protected]
#+DATE: 2012-09-09 Sun
#+DESCRIPTION:
#+KEYWORDS:
#+LANGUAGE: en
#+OPTIONS: H:3 num:t toc:t \n:nil @:t ::t |:t ^:t -:t f:t *:t <:t
#+OPTIONS: TeX:t LaTeX:t skip:nil d:nil todo:t pri:nil tags:not-in-toc
#+INFOJS_OPT: view:nil toc:nil ltoc:t mouse:underline buttons:0 path:http://orgmode.org/org-info.js

This is not what I was expecting. How can I get rid of the parentheses and the quotations?

c("x","y","z")
#+RESULTS:
@gtuckerkellogg
gtuckerkellogg / journal.org[*Org Src CAPTURE-journal.org[ R ]*]
Created August 25, 2012 07:12
Generate bar plot of databases in NAR annual issue
dblink <- "https://docs.google.com/spreadsheet/pub?key=0Amd94LRhVxVWdElNYVdHblVLRjZKR1lwaFFFZHVyWUE&single=true&gid=0&output=csv"
require(RCurl)
myCsv <- getURL(dblink)
dbs <- read.csv(textConnection(myCsv))
library(ggplot2)
names(dbs) <- c("Year","Databases")
dbs[[1]] <- as.factor(dbs[[1]])
p <- qplot(x=Year,y=Databases,data=dbs,geom="bar",fill="gray")
p + theme_bw() + opts(axis.text.x = theme_text(angle=90, hjust=1.2, size=16),
axis.title.x=theme_text(size=16),
require(RCurl)
myCsv <- getURL(dblink)
dbs <- read.csv(textConnection(myCsv))
library(ggplot2)
names(dbs) <- c("Year","Databases")
dbs[[1]] <- as.factor(dbs[[1]])
p <- qplot(x=Year,y=Databases,data=dbs,geom="bar",fill="gray")
p + theme_bw() + opts(axis.text.x = theme_text(angle=90, hjust=1.2, size=16),
axis.title.x=theme_text(size=16),
axis.title.y=theme_text(size=16,angle=90),