if (FALSE) {
data <- data.table(matrix(rgamma(500 * 3, 2), ncol = 3))
preprocessed <- vaeac_preprocess_data(data)
preprocessed$data_preprocessed
postprocessed <- vaeac_postprocess_data(preprocessed$data_preprocessed, preprocessed)
postprocessed
all.equal(data, postprocessed)
}
Run the code above in your browser using DataLab