added 4 pngs and 4 R scripts