library(BoolNet)
# load example data
data(yeastTimeSeries)
# perform binarization with k-means
bin <- binarizeTimeSeries(yeastTimeSeries)
# reconstruct networks from transition table
net <- reconstructNetwork(bin$binarizedMeasurements, method="bestfit", maxK=3)
# print reconstructed net
print(net)
# plot reconstructed net
plotNetworkWiring(net)
Run the code above in your browser using DataLab