#Dummy network and evidence data examples
acts=apply(rbind(rep("z",14),matrix(rep(letters[1:4],7),nrow=2)),2,paste,collapse=" ")[1:13]
reps=apply(matrix(rep(letters[5:8],7),nrow=2),2,paste,collapse=" ")[1:13]
grn=data.frame("Target"= LETTERS[1:26] ,"coact"=c(acts,reps),"corep"= c(reps,acts),"R2"=runif(26),stringsAsFactors=FALSE)
GRN=coregnet(grn)
tfs=letters
genes=LETTERS
evidence1=unique(data.frame(tf=sample(tfs,100,replace=TRUE),target=sample(genes,100,replace=TRUE),stringsAsFactors =FALSE))
evidence2=unique(data.frame(tf=sample(tfs,100,replace=TRUE),target=sample(genes,100,replace=TRUE),stringsAsFactors =FALSE))
evidence3=unique(data.frame(tf=sample(tfs,100,replace=TRUE),target=sample(genes,100,replace=TRUE),stringsAsFactors =FALSE))
GRNenrich=addEvidences(GRN,evidence1,evidence2,evidence3)
print(GRNenrich)
unsupervisedNet=refine(GRNenrich)
supervisedNet=refine(GRNenrich,integration="sup",referenceEvidence="evidence1")
# The following usually gives poor results...
#supervisedNet=refine(GRNenrich,integration="sup",referenceEvidence="evidence1",evidenceToMaximize="evidence1",GRNselection="maximize")
Run the code above in your browser using DataLab