Skip to content

Instantly share code, notes, and snippets.

View adamwespiser's full-sized avatar

Adam Wespiser adamwespiser

90 followers · 70 following
View GitHub Profile
@adamwespiser
adamwespiser / updateSite.hs
Created December 18, 2019 12:45
Build script for blog, Haskell version
#!/usr/bin/env stack
{- stack script
--compile
--copy-bins
--resolver lts-14.17
--install-ghc
--package turtle
--package text
--package foldl
--package async
@adamwespiser
adamwespiser / freshfox_macos
Created August 23, 2019 21:39
#!/bin/sh -e
alias firefox=/Applications/Firefox.app/Contents/MacOS/firefox
DIR="${XDG_CACHE_HOME:-$HOME/.cache}"
mkdir -p -- "$DIR"
TEMP="$(mktemp -d -- "$DIR/firefox-XXXXXX")"
trap "rm -rf -- '$TEMP'" INT TERM EXIT
firefox -profile "$TEMP" -no-remote "$@"
@adamwespiser
adamwespiser / conf intervals for point-wise prediction
Last active October 18, 2018 03:49
#https://stats.stackexchange.com/questions/29044/plotting-confidence-intervals-for-the-predicted-probabilities-from-a-logistic-re
library(tidyverse)
library(magrittr)
set.seed(1234)
# create fake data on gambling. Does prob win depend on bid size?
mydat <- data.frame(
@adamwespiser
adamwespiser / theme_publish.R
Created July 9, 2012 17:30
ggplot2 publication theme
# execute the following code to create a theme_publish object
# for example, ggplot(mtcars,aes(mpg,hp,size=wt))+geom_point()+theme_publish()
# note: for discrete colored data, use gray scale:
# > palette(gray(0:3 / 3))
# > greys <- palette()
@adamwespiser
adamwespiser / free-mtl-notes
Last active February 4, 2018 21:54
A comparison of performance between Free Monad and mtl transformers
Objective: A comparison of performance between Free Monad and mtl transformers
```Haskell
Free f a = { unFree :: f (Free f a) }
```
http://softwareengineering.stackexchange.com/questions/242795/what-is-the-free-monad-interpreter-pattern
# construction of free monad via individual functions
http://www.atamo.com/articles/free-monads-wont-detox-your-colon/
@adamwespiser
adamwespiser / log-reg-posterior.R
Created January 31, 2018 06:49
Bayesian Log Reg: What is the difference between the expected pr(y==1| model) and pr(pr==1| model)[calc w/ expectation of beta] ?
library(rstan)
library(dplyr)
options(mc.cores = parallel::detectCores())
rstan_options(auto_write = TRUE)
seed_sim = 1234
set.seed(seed_sim)
# set up data
N = 4000
@adamwespiser
adamwespiser / first_script.sh
Last active July 1, 2017 16:04
Ubuntu command line into
#!/bin/bash
echo "current dir"
ls ./
echo
echo "Root directory"
ls /
@adamwespiser
adamwespiser / keybase.md
Created February 9, 2017 23:08

Keybase proof

I hereby claim:

  • I am adamwespiser on github.
  • I am adamwespiser (https://keybase.io/adamwespiser) on keybase.
  • I have a public key ASDvVfiszzMDEZN4nTBPDJakWg9yqyuwpGloZCblP3xQigo

To claim this, I am signing this object:

@adamwespiser
adamwespiser / notes.md
Last active January 22, 2016 06:27
Mandelbrot Set in Haskell
@adamwespiser
adamwespiser / bwt_unOptimized
Last active January 8, 2016 08:39
Burrows Wheeler Tranformation
(ns bwt.lib)
(defn pTest [ys]
(sort-by #(second %) (map vector (range) ys)))
(defn p [ys]
(map second (sort-by #(first %)
(map list ys (range)))))
(defn recon[s index]
(let [l (vec (map first (sort-by #(second %) (map conj (bwt.lib/pTest s)(range)))))