Create Image Compression with the SVD in R.md