webbedfeet

data(mtcars)

bl <- mtcars %>%
  nest(-cyl) %>%
  mutate(mod = map(data, ~lm(mpg~wt, data=.) %>% tidy()) %>%
  mutate(mod = map(mod, ~setNames(., paste('mymod', names(.), sep='_')))) %>%
  select(-data) %>%
  unnest()

webbedfeet

# To put a particular character _ after the 10th position in a string

gsub('^([a-z]{10})([a-z]+)','\\1_\\2', x)

# or

library(stringr)
str_replace(x, '^([a-z]{10})([a-z]+]','\\1_\\2')

webbedfeet

whichfn <- function(fun){
  require(stringr)
  str_match(capture.output(environment(fun)),'namespace:(\\w+)')[,2]
}

webbedfeet

#’ Create a Kaplan-Meier plot using ggplot2
#’
#’ @param sfit a \code{\link[survival]{survfit}} object
#’ @param returns logical: if \code{TRUE}, return an ggplot object
#’ @param xlabs x-axis label
#’ @param ylabs y-axis label
#’ @param ystratalabs The strata labels. \code{Default = levels(summary(sfit)$strata)}
#’ @param ystrataname The legend name. Default = “Strata”
#’ @param timeby numeric: control the granularity along the time-axis
#’ @param main plot title

webbedfeet

credplot.gg <- function(d){
  # d is a data frame with 4 columns
  # d$x gives variable names
  # d$y gives center point
  # d$ylo gives lower limits
  # d$yhi gives upper limits
  require(ggplot2)
  p <- ggplot(d, aes(x=x, y=y, ymin=ylo, ymax=yhi))+
    geom_pointrange()+

webbedfeet

library(dplyr)
library(RPostgreSQL)
library(httr)
library(Lahman)
library(ggplot2)

# connect to the db
con <- src_postgres(dbname="harlan", host="localhost", user="harlan")

# upload the Batting db

webbedfeet

#source MASTER
setwd("~/your/working/directory") #insert your working directory

#load libraries
library(rgdal)
library(maptools)
library(maps)
library(ggplot2)
library(plyr)
library(grid)

webbedfeet

doInstall <- TRUE
toInstall <- c("XML", "maps", "ggplot2", "sp")
if(doInstall){install.packages(toInstall, repos = "http://cran.us.r-project.org")}
lapply(toInstall, library, character.only = TRUE)

myURL <- "http://en.wikipedia.org/wiki/United_States_presidential_election,_2012"

allTables <- readHTMLTable(myURL)
str(allTables)  # Look at the allTables object to find the specific table we want
stateTable <- allTables[[14]]  # We want the 14th table in the list (maybe 13th?)

webbedfeet

SLIDES := $(patsubst %.md,%.md.slides.pdf,$(wildcard *.md))
HANDOUTS := $(patsubst %.md,%.md.handout.pdf,$(wildcard *.md))

all : $(SLIDES) $(HANDOUTS)

%.md.slides.pdf : %.md
	pandoc $^ -t beamer --slide-level 2 -o $@

%.md.handout.pdf : %.md
	pandoc $^ -t beamer --slide-level 2 -V handout -o $@ 

webbedfeet

import comtypes.client

def PPTtoPDF(inputFileName, outputFileName, formatType = 32):
    powerpoint = comtypes.client.CreateObject("Powerpoint.Application")
    powerpoint.Visible = 1

    if outputFileName[-3:] != 'pdf':
        outputFileName = outputFileName + ".pdf"
    deck = powerpoint.Presentations.Open(inputFileName)
    deck.SaveAs(outputFileName, formatType) # formatType = 32 for ppt to pdf