Description Usage Arguments Value See Also Examples
This function computes all pairwise modified RV-coefficients between the matrices that are stored in the DataList object
1 | computeRVmat(DataList = DataList, dist = TRUE, verbose = TRUE)
|
DataList |
a list with N matrices |
dist |
boolean, if TRUE a distance matrix is returned, if FALSE a similarity matrix is returned |
verbose |
if TRUE a progress bar is printed to the console |
a NxN similarity matrix or a dist object (dependening on the dist argument)
1 2 3 4 5 6 7 8 9 10 11 12 13 14 | Mat <- matrix(rnorm(1000), 100)
SVD <- svd(Mat)
X <- vector(mode = 'list', length = 10)
for(i in 1:5){
X[[i]] <- SVD$u[,-i] %*% diag(SVD$d[-i]) %*% t(SVD$v[,-i])
}
X[[6]] <- matrix(rnorm(1000, mean = 0), 100)
SVD <- svd(X[[6]])
for(i in 6:10){
X[[i]] <- SVD$u[,-(i-5)] %*% diag(SVD$d[-(i-5)]) %*% t(SVD$v[,-(i-5)])
}
RVmat <- computeRVmat(DataList = X, dist = FALSE, verbose = TRUE)
heatmap(RVmat)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.