Update Image Compression with the SVD in R.md