# Dummy expression data and network
gexp=matrix(rnorm(2600,sd=3),ncol=100)
gexp=rbind(gexp,do.call(rbind,lapply(1:26,function(i){
tf = sample(1:26,4)
return((gexp[tf[1],]+gexp[tf[2],] -gexp[tf[3],]-gexp[tf[4],] +rnorm(100,sd=3))/2)})))
dimnames(gexp)=list(c(letters,LETTERS),paste("s",1:100,sep=""))
GRN=hLICORN(gexp,TFlist = letters)
MR=masterRegulator(GRN,LETTERS[1:10])
head(MR)
exampleWeight = rnorm(26)
names(exampleWeight) = LETTERS[1:26]
MR=masterRegulator(GRN,exampleWeight,"list")
head(MR)
examplePvalue = 10^-(0.1+runif(26))
names(examplePvalue) = LETTERS[1:26]
MR=masterRegulator(GRN,examplePvalue,"merg")
head(MR)
Run the code above in your browser using DataLab