node_file <- system.file("extdata", "IL17.nodes.csv", package = "Rato")
edge_file <- system.file("extdata", "IL17.edges.csv", package = "Rato")
g <- Rato::graph.from.csv(node_file, edge_file, sep=",", header=TRUE)
# Get the raw score of a node in the network
score <- Rato::node.raw.score(
Rato::Michaelis.Menten # Use the Michaelis-Menten equation
, g$M # The GRN as an adjacency matrix
, g$initial_values # The initial values of the genes
, g$node_index("ko:K03171") # The gene of interest
, initial_params = list('f' = 1, 'h'=2, 'B'=0.01) # Parameters of the Michaelis-Menten equation
)
Run the code above in your browser using DataLab