Added r script to analyse results