technocrat

from collections import defaultdict
def str_md(lexicon,key, value):
    """Generic append key, value to lexicon"""
    lexicon.setdefault(key,value)

# Desired sort order
complist = ['Red', 'Apple', 'Green', 'Tea', 'Purple', 'Haze']
# Dictionary order
alphalist = sorted(complist)
# Create empty dictionary

technocrat

x <- c("dplyr", "ggmap", "ggplot2", "RColorBrewer", "rgdal", "classInt", "RCurl",  "grid","gridExtra")
lapply(x, library, character.only = TRUE)

no_ylab = ylab("") 
no_xlab = xlab("")

plain_theme = theme(axis.text=element_blank()) + theme(panel.background = element_blank(), panel.grid = element_blank(), axis.ticks = element_blank())

remove.farflung = function(.df) {
	subset(.df, 

technocrat

technocrat

intervals = function(.df, ...){
	argList = match.call(expand.dots=FALSE)$... 
	for(i in 1:length(argList)){
		colName <- argList[[i]]
		series_colName = eval(substitute(colName), envir=.df, enclos=parent.frame())
		min <- min(series_colName)
		max <- max(series_colName)
		diff <- max - min
		std <- sd(series_colName)
		equal.interval <- seq(min, max, by = diff/6)

technocrat

x = c("ggplot2", "classInt", "dplyr", "rgdal", "maptools", "mapproj", "rgeos", "RCurl")
lapply(x, library, character.only = TRUE)
intervals = function(.df, ...){
	argList = match.call(expand.dots=FALSE)$... 
	for(i in 1:length(argList)){
		colName <- argList[[i]]
		series_colName = eval(substitute(colName), envir=.df, enclos=parent.frame())
		min <- min(series_colName)
		max <- max(series_colName)
		diff <- max - min

technocrat

> ls(pattern = 'all')
[1] "allid"  "allpct" "allpop"
> objs <- ls(pattern = 'all')
> str(objs)
 chr [1:3] "allid" "allpct" "allpop"
> class(objs)
[1] "character"
> mode(objs)
[1] "character"
> typeof(objs)

technocrat

import nltk
from nltk.chunk import *
from nltk.chunk.util import *
from nltk.chunk.regexp import *
from nltk import Tree

cp = nltk.RegexpParser('CHUNK: {<NN> <VB> <IN> <NN>}')
bucket = []
brown = nltk.corpus.brown
for sent in brown.tagged_sents():

technocrat

-- readyaml.hs demonstration
{-# LANGUAGE OverloadedStrings #-}  -- yaml
import Control.Applicative
import Data.Yaml 
import Data.Maybe (fromJust)

data ReadData = ReadData { stripComments     :: Bool -- these are constructors
                           , stripLable      :: Bool
                           , zeroDot         :: Bool
                           , justifyLeft     :: Bool

technocrat

import           Control.Monad.IO.Class (liftIO)
import           Control.Monad.Trans.Resource
import           Data.Conduit
import qualified Data.Conduit.Binary    as CB
import qualified Data.Conduit.List      as CL
import qualified Data.Conduit.Text      as CT

 
main :: IO ()
main = runResourceT

technocrat

# KJVurl.py
# convert a list of verse citations, one to a line in the form 'Judges 2:2' into markdown formatted links to the corresponding verse in an online service
# this example depends on a correspondence of the url to the verse by simple substitution of a hyphen for each blank or colon
# for iOS7 pythonista, due to reliance on clipboard module

import re
import clipboard

# site whose citation scheme will be usef
baseref = "http://www.kingjamesbibleonline.org/"