Skip to content

Instantly share code, notes, and snippets.

@seankross
seankross / bin_op.R
Created Mar 21, 2015
Swirl R Programming Script Answers
View bin_op.R
"%p%" <- function(left, right){
paste(left, right)
}
@seankross
seankross / init.md
Created Feb 5, 2014
Initializing GitHub repository
View init.md

Create a new repository on the command line

touch README.md
git init
git add README.md
git commit -m "first commit"
git remote add origin https://github.com/seankross/womp.git
git push -u origin master
View mtcars.csv
model mpg cyl disp hp drat wt qsec vs am gear carb
Mazda RX4 21 6 160 110 3.9 2.62 16.46 0 1 4 4
Mazda RX4 Wag 21 6 160 110 3.9 2.875 17.02 0 1 4 4
Datsun 710 22.8 4 108 93 3.85 2.32 18.61 1 1 4 1
Hornet 4 Drive 21.4 6 258 110 3.08 3.215 19.44 1 0 3 1
Hornet Sportabout 18.7 8 360 175 3.15 3.44 17.02 0 0 3 2
Valiant 18.1 6 225 105 2.76 3.46 20.22 1 0 3 1
Duster 360 14.3 8 360 245 3.21 3.57 15.84 0 0 3 4
Merc 240D 24.4 4 146.7 62 3.69 3.19 20 1 0 4 2
Merc 230 22.8 4 140.8 95 3.92 3.15 22.9 1 0 4 2
@seankross
seankross / Sieve of Eratosthenes.R
Last active May 24, 2020
Counting primes using the Sieve of Eratosthenes in R
View Sieve of Eratosthenes.R
# The Sieve of Eratosthenes
# Given a number greater than zero this function will return a list of primes between 2 and the number given as argument.
sieveOfEratosthenes <- function(num){
values <- rep(TRUE, num)
values[1] <- FALSE
prev.prime <- 2
for(i in prev.prime:sqrt(num)){
values[seq.int(2 * prev.prime, num, prev.prime)] <- FALSE
prev.prime <- prev.prime + min(which(values[(prev.prime + 1) : num]))
@seankross
seankross / install_ffmpeg_ubuntu.sh
Last active May 14, 2020 — forked from xdamman/install_ffmpeg_ubuntu.sh
Install latest ffmpeg on ubuntu 12.04 or 14.04
View install_ffmpeg_ubuntu.sh
#!/bin/bash
# Bash script to install latest version of ffmpeg and its dependencies on Ubuntu 12.04 or 14.04
# Inspired from https://gist.github.com/faleev/3435377
# Remove any existing packages:
sudo apt-get -y remove ffmpeg x264 libav-tools libvpx-dev libx264-dev
# Get the dependencies (Ubuntu Server or headless users):
sudo apt-get update
@seankross
seankross / Session 1
Created Nov 11, 2012
Live R Coding with Cohen
View Session 1
# Cohen
setwd("~/Desktop/R")
source("~/Desktop/R/floridaModel.R")
floridaModel('F','GM',c(11,8,2011),c(11,8,2012))
@seankross
seankross / Update Fork.md
Last active Aug 13, 2019
Update a Github Fork from the Original Repo
View Update Fork.md

Taken from here

Add remonte branch:

git remote add --track master mleung git://github.com/mleung/feather.git

Verify:

git remote

View tweet_dumper.py
#!/usr/bin/env python
# encoding: utf-8
import tweepy #https://github.com/tweepy/tweepy
import csv
#Twitter API credentials
consumer_key = ""
consumer_secret = ""
access_key = ""
@seankross
seankross / jazz.txt
Created May 18, 2018
Jazz Toni Morrison
View jazz.txt
From "Jazz" by Toni Morrison
It's nice when grown people whisper to each other under the covers. Their
ecstasy is more leaf-sigh than bray and the body is the vehicle, not the point.
They reach, grown people, for something beyond, way beyond and way, way down
underneath tissue. They are remembering while they whisper the carnival dolls
they won and the Baltimore boats they never sailed on. The pears they let hang
on the limb because if they plucked them, they would be gone from there and who
else would see that ripeness if they took it away for themselves? How could
anybody passing by see them and imagine for themselves what the flavor would
View sounds.r
# Script to help understanding of S3 object-oriented programming
# in R using classes and methods
# Constructor functions for various classes of animal
pig <- function() structure(list(), class=c("pig", "animal"))
dog <- function() structure(list(), class=c("dog", "animal"))
cat <- function() structure(list(), class=c("cat", "animal"))
makeSound <- function(x) UseMethod("makeSound")
You can’t perform that action at this time.