smdc (version 0.0.2)

simSum: Summary of Document Similarity

Description

This function summarize the calculation of similarity.

Usage

simSum(sim)

Arguments

sim

Similarity matrix.

Value

List of similar documents to each documents. The number of list equals to ncol(sim).

Examples

## The function is currently defined as
function (sim) 
{
    results <- rep(0, ncol(sim))
    names(results) <- colnames(sim)
    scores <- rep(0, ncol(sim))
    for (i in 1:ncol(sim)) {
        scores[i] <- max(sim[, i])
        results[i] <- rownames(sim)[which.max(sim[, i])]
    }
    summary <- as.list(NULL, length = nrow(sim))
    for (i in 1:nrow(sim)) {
        cond <- results == rownames(sim)[i]
        summary[[i]] <- names(which(cond[order(-scores)]))
    }
    names(summary) <- rownames(sim)
    return(summary)
  }