## Load data
data("iris")
## Compute principal components analysis
X <- pca(iris, scale = TRUE, sup_row = 5:10)
## Get row principal coordinates
head(get_coordinates(X, margin = 1, principal = TRUE))
## Get row standard coordinates
head(get_coordinates(X, margin = 1, principal = FALSE))
## Tidy principal coordinates
head(tidy(X, margin = 1))
head(tidy(X, margin = 2))
head(augment(X, margin = 1, axes = c(1, 2)))
head(augment(X, margin = 2, axes = c(1, 2)))
Run the code above in your browser using DataLab