# John Carpenter Themes

I have been playing with Lilypond a little more, and here are some themes that I have transcribed. They are all from John Carpenter movies: the first is the theme from “Halloween”, which is an interesting 5/4 time piano riff; the second is the synth theme from “Escape From New York”, and the final is the ending credits music of “The Thing” (known as “Humanity Part II” on the soundtrack album). The last one is a bit messy as I couldnt get Lilypond to hold the ties across multiple bars properly.

carpenter.pdf

This is still not 100% finished – there are some omissions. Plus, my transcription may be incorrect in places.

Here is the PDF:

carpenter.pdf

And the Lilypond source:

carpenter

# UseR 2009 Presentation and London R User Group News

Last week I presented a short talk at the 2009 UseR conference. The conference was the usual mix of varied topics (even more varied than usual this year) and a lot of interesting discussions.

Here are the slides.

Incidentally, Mango Solutions have set up a website for the London R user group meetings here: http://www.londonr.org/

# Compiling The kdb/R interface on Win32

I have been playing with the kdb/R interface from kx.com, and had some problems installing with Cygwin gcc. It may be possible to get this to work with Cygwin gcc + a Win32 threads library, but in the meantime I installed MinGW, and it works perfectly. Here are the steps (basically as per the kx docs):

2. gcc -c base.c -I. -I "${R_HOME}/include/" 3. gcc -Wl,--export-all-symbols -shared -o qserver.dll c.o base.o${r -HOME}/bin/R.dll -lws2_32
The resulting qserver.dll can be loaded via dyn.load(), and then (just using the qserver.R supplied by kx) from within R:
source("qserver.R") conn < - open_connection("server", 12345) result <- execute(conn, "select avg bid by sym from fx_quote") x <- as.data.frame(mapply(FUN=c, result)) > head(x, 10) V1 V2 1 AUD= 0.792402880224811 2 AUD=D2 0.791632149468651 3 AUD=EBS 0.790402776387278 4 AUDCHF=R 0.85955071021153 5 AUDJPY=R 75.0707755671935 6 BRL= 1.97194091379422 7 CAD= 1.15980648929715 8 CAD=D2 1.15962545479939 9 CAD=EBS 1.14104373919176 10 CADJPY=R 81.6389284332255 
 echo "foo,bar" | awk '{x="'"date +%Y%M%d%S%N"'"; printf "%s,%s\n",x,\$0 }'