# NOT RUN {
library(RMLPCA)
data(data_clean)
data(data_error_b)
data(sds_b)
# data that you will usually have on hands
data_noisy <- data_clean + data_error_b
# run mlpca_b with rank p = 2
results <- RMLPCA::mlpca_b(
X = data_noisy,
Xsd = sds_b,
p = 2
)
# estimated clean dataset
data_cleaned_mlpca <- results$U %*% results$S %*% t(results$V)
# }
Run the code above in your browser using DataLab