R/ExpProcess.r

ExpProcess<-function(ExpMatrix,pert){

pertlist<-c()
sampleNum<-dim(ExpMatrix)[1]
    for (i in (1:dim(ExpMatrix)[1]))
      {
	    Numsample<-length(which(as.numeric(ExpMatrix[i,]) ==0))
		pertlist<-c(pertlist,(Numsample/(dim(ExpMatrix)[2])))
	  }
	 NewMatri<-cbind(pertlist,ExpMatrix)
	 NewMatri<- NewMatri[which(NewMatri[,1]<(1-pert)),2:(dim(NewMatri)[2])]
     
	return(NewMatri)
}

Try the SubpathwayLNCE package in your browser

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

SubpathwayLNCE documentation built on May 1, 2019, 10:25 p.m.