if (FALSE) {
ir <- loadDataSet("Iris")
ir.drr <- embed(ir, "DRR", ndim = ndims(ir))
ir.pca <- embed(ir, "PCA", ndim = ndims(ir))
rmse <- data.frame(
rmse_drr = reconstruction_error(ir.drr),
rmse_pca = reconstruction_error(ir.pca)
)
matplot(rmse, type = "l")
plot(ir)
plot(ir.drr)
plot(ir.pca)
}
Run the code above in your browser using DataLab