Skip to content

Instantly share code, notes, and snippets.

function colors = pal_hue(n, s, v)
% Generates a palette of n evenly spaced colors with default settings
% similar to R's scales::pal_hue().
% s is the saturation (default 0.75), v is the value (brightness, default 0.95).
% The hue component varies from 0 to 1.
if nargin < 2
s = 0.75; % Default saturation
end
if nargin < 3
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 / bin_op.R
Created March 21, 2015 15:35
Swirl R Programming Script Answers
"%p%" <- function(left, right){
paste(left, right)
}
@seankross
seankross / README.md
Last active April 28, 2023 16:55
Get TTS working in R with Reticulate on M1 or M2 MacOS

Make sure homebrew is all up to date.

Make sure you have venv working, I think it just comes with python3.

Start a brand new RStudio project and open it in RStudio.

In the terminal:

python -m venv .venv
@seankross
seankross / init.md
Created February 5, 2014 18:26
Initializing GitHub repository

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
@seankross
seankross / Sieve of Eratosthenes.R
Last active October 20, 2022 17:09
Counting primes using the Sieve of Eratosthenes in 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 / Update Fork.md
Last active August 9, 2022 18:06
Update a Github Fork from the Original Repo

Taken from here

Add remonte branch:

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

Verify:

git remote

@seankross
seankross / Histograms in R
Last active April 29, 2022 19:27
Making a histogram in R
# Assuming you have a file called Workbook2.csv on your desktop
Workbook2 <- read.table("~/Desktop/Workbook2.csv", quote="\"")
colors = c("red", "yellow", "green", "violet", "orange")
hist(Workbook2$V1, main = "Title", xlab = "X-axis", ylab = "Y-axis", col = colors)
@seankross
seankross / install_ffmpeg_ubuntu.sh
Last active May 14, 2020 16:48 — forked from xdamman/install_ffmpeg_ubuntu.sh
Install latest ffmpeg on ubuntu 12.04 or 14.04
#!/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 November 11, 2012 01:25
Live R Coding with Cohen
# Cohen
setwd("~/Desktop/R")
source("~/Desktop/R/floridaModel.R")
floridaModel('F','GM',c(11,8,2011),c(11,8,2012))