csys.add.algorithm <- function(algorithm, algos = NULL)
{
    if(is.list(algorithm) == FALSE) {
        stop("The given algorithm must be a list with the following tags: $name, $package, $func.name, $pass.argument, $train.name, $cbind, $data.frame, $labels.name, $labels.formula.left, $labels.formula.right")
    }

    return(cbind(algos,data.frame(algorithm)))
}