R/Top.R

In onesand1/GRC: Gene regulation and correlation between target and pathway

Top=function(object,n){
num=length(object$target)
if(num>n){
FC=as.numeric(object$FC)
order=order(abs(FC),decreasing =T)
order=order[1:n]
object$FC=FC[order]
object$target=object$target[order]
object$reg=object$reg[order]
object$FDR=object$FDR[order]
object$output=object$output[order,]
}else{


}
return(object)
}