# Load iris dataset and select the first four columns
data(iris)
X <- iris[, 1:4]
# Compute SVD using the base method and 3 components
fit <- svd_wrapper(X, ncomp = 3, preproc = center(), method = "base")
Run the code above in your browser using DataLab