worked on report, did jpeg outputs in r