R/getGeneVals.R

In kouroshz/creNet: Fit a GLM with a combination of lasso and overlapping group lasso regularization

getGeneVals <- function(uids, evidence, as.factor = TRUE)
{
  val = numeric(length(uids))
  ind.loc = which(uids %in% evidence$uid)
  if (length(ind.loc)) {
  	ind.val = match(uids[ind.loc],evidence$uid)
  	val[ind.loc] = evidence$val[ind.val]
  }
  if (as.factor) val <- factor(val, levels = c(-1,0,1))
  val
}