smdc (version 0.0.2)

uniform: Uniformation of Two Similarity Matrice's Row Numbers.

Description

This function uniforms the row number of two similarity matrices according to each row names.

Usage

uniform(matrix1, matrix2)

Arguments

matrix1

Similarity matrix.

matrix2

Similarity matrix.

Value

List of two uniformed similarity matrices.

Examples

## The function is currently defined as
function (matrix1, matrix2) 
{
    words <- unique(rbind(matrix(rownames(matrix1)), matrix(rownames(matrix2))))
    words <- words[order(words)]
    exMatrix1 <- matrix(0, nrow = length(words), ncol = ncol(matrix1))
    exMatrix2 <- matrix(0, nrow = length(words), ncol = ncol(matrix2))
    rownames(exMatrix1) <- words
    rownames(exMatrix2) <- words
    colnames(exMatrix1) <- colnames(matrix1)
    colnames(exMatrix2) <- colnames(matrix2)
    for (word in rownames(matrix1)) {
        exMatrix1[word, ] <- matrix1[word, ]
    }
    for (word in rownames(matrix2)) {
        exMatrix2[word, ] <- matrix2[word, ]
    }
    return(list(exMatrix1, exMatrix2))
  }