add_dataset.FuMa: add_dataset

In yhoogstrate/FuMaR: FusionMatcher (R wrapper)

Usage

add_dataset.FuMa(object, dataset, dataset_name)

Arguments

object
dataset
dataset_name

Examples

##---- 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 (object, dataset, dataset_name) 
{
    if (class(dataset) == "list") {
        valid <- TRUE
        for (fset in dataset) {
            if (is.fSet(fset) == FALSE) {
                valid <- FALSE
                break
            }
        }
        if (valid) {
            print("Adding Dataset")
            i = length(object$datasets) + 1
            object$datasets[[i]] <- as.list(dataset)
            object$dataset_names[[i]] <- gsub(":", "", as.character(dataset_name))
            return(object)
        }
    }
    stop("ERROR: Trying to add incorrect dataset")
    return(FALSE)
  }

yhoogstrate/FuMaR documentation built on May 4, 2019, 2:33 p.m.