Add analysis R file and a magic script to do and analysis swf file