valentint / rrcov Goto Github PK

pca_cov <- rrcov::PcaCov(x = data)
sd <- rrcov::predict(object = pca_cov, newdata = new_data, type = "sd") # "sd" for score distances
od <- rrcov::predict(object = pca_cov, newdata = new_data, type = "od") # "od" for orthogonal distances

pca_cov <- rrcov::PcaCov(x = data, x.test = new_data)
sd <- pca_cov@test$sd
od <- pca_cov@test$od

pca_cov <- rrcov::PcaCov(x = data)
distances <- rrcov::pca.distances(obj = pca_cov, newdata = new_data)
sd <- distances@sd
od <- distances@od