R/getCandidates.R

Defines functions getCandidates

getCandidates <-
function(pheSeed,genSeed,lncSeed,candidates=NULL,GNodes=NULL,LNodes=NULL,PNodes=NULL){
seeds<-getSeed(pheSeed,genSeed,lncSeed,GNodes,LNodes,PNodes)
seeds[[2]]->lncSeeds
if( length(candidates)==0){Candidates<-setdiff(LNodes,lncSeeds)}else{Candidates<-intersect(LNodes,candidates)}
return(Candidates)
}

Try the LncPriCNet package in your browser

Any scripts or data that you put into this service are public.

LncPriCNet documentation built on May 29, 2017, 3:46 p.m.