data('gtoy1', package = 'RGraphSpace')
ps <- buildPathwaySpace(gtoy1, nrc = 100)
# Check vertex names
names(ps)
# Access signal values from all vertices
vertexSignal(ps)
# Modify signal value of a specific vertex
vertexSignal(ps)[1] <- 1
# Modify signal value of specific vertices
vertexSignal(ps)[c("n2","n3")] <- 1
# Set '1s' to all vertices
vertexSignal(ps) <- 1
#----
# Access decay function of a specific vertex
vertexDecay(ps)[["n3"]]
# Modify decay function of a specific vertex
vertexDecay(ps)[["n3"]] <- signalDecay(method = "linear")
# Modify decay functions of two vertices
vertexDecay(ps)[c("n1","n3")] <- list( signalDecay() )
# Modify decay functions of all vertices
vertexDecay(ps) <- signalDecay(method = "weibull", shape = 2)
Run the code above in your browser using DataLab