powered by
W.QR(U, lambda)
D the number of latent factors
Q the orthogonal matrix of the W = QR matrix decomposition
R the upper triangular matrix of the W = QR matrix decomposition
res <- drbats.simul(N = 5, P = 100, t.range = c(5, 100), breaks = 8) res.pca <- pca.Deville(res$X, res$t.simul, t.range = c(5, 100), breaks = 8) Wres.pca <- W.QR(res.pca$U, res.pca$lambda) Wres.pca
Run the code above in your browser using DataLab