##for 100x10 data matrix X,
## lying (mostly) in the subspace defined by the first 2 unit vectors,
## projects data into 1 dimension.
X <- matrix(c(runif(100*2, -10, 10), rep(0,100*8)),nrow=100) +
matrix(c(rep(0,100*2),rnorm(100*8,0,0.1)),ncol=10)
myl1pca <- l1pca(X)
##projects data into 2 dimensions.
myl1pca <- l1pca(X, projDim=2, center=FALSE,
tolerance=0.00001, iterations=20)
## plot first two scores
plot(myl1pca$scores)
Run the code above in your browser using DataLab