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

Description Usage Arguments Value Author(s) Examples

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

1	uniform(matrix1, matrix2)

`matrix1`	Similarity matrix.
`matrix2`	Similarity matrix.

List of two uniformed similarity matrices.

Masaaki TAKADA

## 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))
  }