simSum {smdc}R Documentation

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).

Author(s)

Masaaki TAKADA

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

[Package smdc version 0.0.2 Index]