1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
# Sets the genes in <fixIndices> to the values in <values>
# and returns the customized copy of <network>
fixGenes <- function(network,fixIndices,values)
{
stopifnot(inherits(network,"BooleanNetwork") | inherits(network,"SymbolicBooleanNetwork") |
inherits(network,"ProbabilisticBooleanNetwork"))
if (length(fixIndices) != length(values) && length(values) != 1)
stop("fixIndices and values must have the same number of elements, or values must have 1 element!")
if (any(is.na(network$fixed[fixIndices])))
stop("fixIndices contains invalid indices!")
if (any(values != 0 & values != 1 & values != -1))
stop("Please supply only 0, 1, or -1 in values!")
network$fixed[fixIndices] <- as.integer(values)
if (inherits(network,"SymbolicBooleanNetwork"))
network$internalStructs = .Call("constructNetworkTrees_R",network);
return(network)
}
|
