R/add.degree.R

In oacar/pgsNetwork: This package is used for ref

#' adds degree values to nones.exp.data dataframe as deg
#' @param nones.exp.data dataframe that contains strain ids, gene names, experimental design values
#' @param allnet network that will be uset to calculate degrees of genes
#' @param colname which column name should be used for names
add.degree <- function(nones.exp.data,allnet,colname){
  deg <- degree(allnet)
  nones.exp.data$deg <- NA# %>% transform(deg=NA)
  for(i in 1:nrow(nones.exp.data)){
    d <- deg[names(deg)==nones.exp.data[[colname]][i]]
    nones.exp.data$deg[i] <- ifelse(length(d)==0,0,d)
  }
  nones.exp.data
}