October 2017
Beginner to intermediate
572 pages
26h 1m
English
Perform the following steps to compress an image with SVD:
> install.packages("bmp")
> library(bmp)
> lenna = read.bmp("lena512.bmp")
> lenna = t(lenna)[,nrow(lenna):1]
> image(lenna)

> lenna.svd = svd(scale(lenna)) > plot(lenna.svd$d^2/sum(lenna.svd$d^2), type="l", xlab=" Singularvector", ...
Read now
Unlock full access