gen_cocit_corpuslist: Generate Co-Citations Corpuslist
In mfinst/TM-CoCit-Support-FM: What the package does (short line)

Description Usage Arguments Value Author(s) Examples

Generates a List of Corpus based on a group on the abstracts that were found.

1	gen_cocit_corpuslist(groupsWithAbstracts, mode = "corpus")

`groupsWithAbstracts`	A List containing Lists with abstracts and authornames
`mode`	The actual value in the result, possible values are corpus and abstract: "corpus" The Corpus of all abstracts "abstract" Just a the list of abstracts that are found Default is "corpus"

A list of lists containing the specified structure by the mode variable

MFinst

##---- Should be DIRECTLY executable !! ----
##-- ==>  Define data, use random,
##--	or do  help(data=index)  for the standard data sets.

## The function is currently defined as
function (groupsWithAbstracts, mode = "corpus")
{
    groupCount = length(unique(groupsWithAbstracts[, 1]))
    abstractCount = length(groupsWithAbstracts[, 1])
    result = list()
    currentGroup = 1
    currentGroupList = vector(mode = "character")
    for (i in 1:abstractCount) {
        if (groupsWithAbstracts[, 1][i] != currentGroup) {
            if (mode == "corpus") {
                result[[currentGroup]] = corpus_gen(currentGroupList,
                  lang = "english")
            }
            else if (mode == "abstract" || mode == "author") {
                result[[currentGroup]] = currentGroupList
            }
            currentGroup = groupsWithAbstracts[, 1][i]
            currentGroupList = vector(mode = "character")
        }
        if (!(mode == "author")) {
            if (groupsWithAbstracts[, 4][i] != "") {
                currentGroupList = append(currentGroupList, c(groupsWithAbstracts[,
                  2][i], groupsWithAbstracts[, 4][i]))
            }
        }
        else {
            currentGroupList = append(currentGroupList, groupsWithAbstracts[,
                2][i])
        }
    }
    if (mode == "corpus") {
        result[[groupCount]] = corpus_gen(currentGroupList, lang = "english")
    }
    else if (mode == "abstract" || mode == "author") {
        result[[groupCount]] = currentGroupList
    }
    return(result)
  }