csys.make.algorithm <- function(name,package,func.name,train.name,labels.name,
                                pass.argument = "FALSE", cbind = "FALSE", data.frame = "FALSE", labels.formula.left = "", labels.formula.right = "")
{
    return(list(name = name, package = package, func.name = func.name, train.name = train.name, labels.name = labels.name, pass.argument = pass.argument, cbind = cbind, data.frame = data.frame, labels.formula.left = labels.formula.left, labels.formula.right = labels.formula.right))
}