data-raw/r&d.R

In tpq/exprso: Rapid Deployment of Machine Learning Algorithms

# Use this script to help make new fs and build methods
data(array)
data(arrayMulti)

array2data <- function(object, top){

  if(class(top) == "numeric"){

    if(length(top) == 1){

      if(top > nrow(object@exprs)) top <- 0
      if(top == 0) top <- nrow(object@exprs)
      top <- rownames(object@exprs[1:top, ])

    }else{

      top <- rownames(object@exprs[top, ])
    }
  }

  t(object@exprs[top, ])
}

data <- array2data(array, top = 0)
labels <- factor(array@annot[rownames(data), "defineCase"], levels = c("Control", "Case"))
dataMulti <- array2data(arrayMulti, top = 0)

# Use for new build method:
uniqueFx <- function(data, labels, ...){


}

# Use for new fs method:
uniqueFx <- function(data, top, ...){


}