Added R scripts that create png files for assignment 1