data(dream4)
network <- 1
reference <- dream4gold10[[network]]
nGenes <- length(unique(c(reference[,1],reference[,2])))
nPossibleEdges <- nGenes^2
reference <- reference[reference[,3] == 1,1:2]
nTimePoints <- length(unique(dream4ts10[[network]]$time))
edges1ts10 <- networkBMA( data = dream4ts10[[network]][,-(1:2)],
nTimePoints = nTimePoints, prior.prob = 0.1,
self = FALSE)
size <- nPossibleEdges - nGenes
contingencyTables <- contabs(network = edges1ts10, reference = reference,
size = size)
scores(contingencyTables, what = c("sensitivity", "specificity", "FDR"))
Run the code above in your browser using DataLab