R/meanDeg.R

In ScISI: In Silico Interactome

Defines functions meanDeg

Documented in meanDeg

meanDeg <- function(comp, degBait, sampled){

        
    if (length(sampled) != 0){
        popMeanDeg <- (length(comp)*(sum(unlist(degBait))))/(2*length(sampled))
    }


    else{
        popMeanDeg <- NA
    }
    
}

Try the ScISI package in your browser