Added the R codes and images of the first assignment