exp added
some changes
code works, first exp, r plots, tex pres