Plot4.R

This code makes the fouth code of the assignment