Navigation Menu

Skip to content

Instantly share code, notes, and snippets.

@isomorphisms
isomorphisms / Sokal.md
Last active August 29, 2015 14:27
Social Text editors' response to Alan Sokal's prank [my excerpt from http://linguafranca.mirror.theinfo.org/9607/mst.html]

Sokal took too much for granted in his account of his prank. Indeed, his claim---that our publication of his article proves that something is rotten in the state of cultural studies---is as wobbly as the article itself.

… [I]t has been many years since [we] published … [general] debate about postmodern theory…. [W]e read it more as an act of good faith of the sort that might be worth encouraging than as a set of arguments with which we agreed.

Having talked to the (real) Sokal subsequently, we believe that … the [critiques] he intended to air are, at this point, rather well known to [our side]. Indeed, they have been going the rounds … since the first postmodern … critiques of positivism appeared over thirty-five years ago.… Nor are these critiques unfamiliar to folks who have long [debated] the direction of the Left, where positivism has had a long and healthy life. At this point in time, we have a vestigial stake in these critiques and debates, but much less of an interest than Sokal supposes. …[H]e appea

https://twitter.com/Amber_Coffman/status/419635162230423552
#include <stdio.h>
int main()
{
char c;
while ( (c = getchar()) != EOF) {
putchar(c);
}
return 0;
}
@isomorphisms
isomorphisms / rev.R
Created August 3, 2015 17:42
compute on the language 1
require(magrittr)
substitute(ver)
substitute(ver) %>% as.character
substitute(ver) %>% as.character %>% strsplit(NULL)
substitute(ver) %>% as.character %>% strsplit(NULL) %>% unlist
substitute(ver) %>% as.character %>% strsplit(NULL) %>% unlist %>% rev
substitute(ver) %>% as.character %>% strsplit(NULL) %>% unlist %>% rev %>% paste(collapse='')
substitute(ver) %>% as.character %>% strsplit(NULL) %>% unlist %>% rev %>% paste(collapse='') %>% do.call(args=list(1:5))
@isomorphisms
isomorphisms / cov.xts.Rmd
Last active August 29, 2015 14:25
cov.xts
#####TO DO: write a more reasonable S3 `cov.xts` and `cor.xts`
require(quantmod)
getSymbols(c('WOOD','CUT')) #timber ETF's
# File src/library/stats/R/lm.R
# Part of the R package, http://www.R-project.org
#
# Copyright (C) 1995-2014 The R Core Team
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.
#
@isomorphisms
isomorphisms / 9000D.md
Last active February 9, 2018 04:52
high-dimensional hacks
@isomorphisms
isomorphisms / some.xts
Last active August 29, 2015 14:17
rolling random sample merging `car::some` with `xts`
function(data, n=10, ...) {
NROW(data) -> nr
sample.int(nr-n,1) -> start
start + n -> end
pull <- start:end
data[pull, ,drop=FALSE]
}
@isomorphisms
isomorphisms / Abel-Ruffini.R
Last active August 29, 2015 14:17
Galois / commutators / Abel-Ruffini / Boas Katz / Vladimir I. Arnol'd
#start with six random coefficients for the quintic + a constant
start <- complex( modulus=1+rnorm(6,sd=.1), argument=1:6 )
twiddler <- function(x) complex(modulus=1, argument=x)
#there’s some bogus R nonsense about c() and list() coming…
swirl <- list(start)
#twiddle the 6 inputs around
for (j in 1:326/8) { swirl <- c( swirl, list( start + c(0,-8*twiddler(j)*j,0,8*twiddler(j)*j,0,0) ) ) }
@isomorphisms
isomorphisms / .bash_aliases
Last active March 9, 2019 02:40
Bash aliases
alias del='gvfs-trash'
alias rm='rm -i'
alias mv='mv -i'
alias ack='ack-grep'
alias g='surfraw google'
alias wk='surfraw wikipedia'
alias def='surfraw google define:'
alias u='surfraw google unicode'
alias n='w3m http://ncatlab.org/nlab/search?query='
alias pdfcat='pdftotext'