This gist shows how to create a GIF screencast using only free OS X tools: QuickTime, ffmpeg, and gifsicle.
To capture the video (filesize: 19MB), using the free "QuickTime Player" application:
| # OSX for Hackers (Mavericks/Yosemite) | |
| # | |
| # Source: https://gist.github.com/brandonb927/3195465 | |
| #!/bin/sh | |
| # Some things taken from here | |
| # https://github.com/mathiasbynens/dotfiles/blob/master/.osx | |
| # Ask for the administrator password upfront |
| doInstall <- TRUE | |
| toInstall <- c("ggplot2") | |
| if(doInstall){install.packages(toInstall, repos = "http://cran.us.r-project.org")} | |
| lapply(toInstall, library, character.only = TRUE) | |
| ANES <- read.csv("http://www.oberlin.edu/faculty/cdesante/assets/downloads/ANES.csv") | |
| ANES <- ANES[ANES$year == 2008, -c(1, 11, 17)] # Limit to just 2008 respondents, | |
| head(ANES) # remove some non-helpful variables | |
| # Fit several models with the same DV: |
| rm(list=ls()) | |
| # Load required libraries | |
| library(RCurl) | |
| library(stringr) | |
| library(tm) | |
| library(wordcloud) | |
| library(RColorBrewer) | |
| library(twitteR) | |
| library(streamR) |
| setwd("~/Dropbox/Tourism/Rdata") | |
| rm(list=ls()) | |
| # Libraries ==================================================================== | |
| library("plyr") | |
| library("reshape2") | |
| # Start Merge ================================================================== | |
| # See the following | |
| # [1] http://goo.gl/9IojH8 | |
| # [2] http://goo.gl/IP1wa9 |
| setwd("~/Dropbox/Tourism/csv") | |
| rm(list=ls()) | |
| # Libraries ==================================================================== | |
| library("plyr") | |
| library("reshape2") | |
| library("zoo") | |
| # Functions ==================================================================== | |
| # Delete incomplete cases | |
| # http://stackoverflow.com/a/11258247 |
| # Load "github" library | |
| library("github") | |
| # Load github oauth | |
| # load("~/my_oauth/my_oauth_github") | |
| # Get starred by user emraher | |
| starred.by.emrah <- get.repositories.starred.by.user("emraher") | |
| # Find index of "rgithub" |