R/random_network_sampling_PPI.R

In COSINE: COndition SpecIfic sub-NEtwork

Defines functions random_network_sampling_PPI

Documented in random_network_sampling_PPI

random_network_sampling_PPI <-
function(size,PPI,all_genes){
   a<-0
   while(sum(a)==0){     
    current<-sample(all_genes,size)   
    a<- (PPI[,1] %in% current & PPI[,2] %in% current)
   }
   return(current)
}

Try the COSINE package in your browser