Create experiment1.r

extracting stats from