examples/20111117-muuttoliike.R: cleaned code