# Inverse transform data back to original scale
X <- matrix(rnorm(100), 10, 10)
preproc <- center()
fitted_preproc <- fit(preproc, X)
X_transformed <- transform(fitted_preproc, X)
X_reconstructed <- inverse_transform(fitted_preproc, X_transformed)
# X and X_reconstructed should be approximately equal
all.equal(X, X_reconstructed)
Run the code above in your browser using DataLab