data("S")
data('parameters')
nspikes <- calculate.network.spikes( S, parameters$sur ,parameters$ns.N, parameters$ns.T )
## pdf(file=NSPlotPath)
## xyplot.network.spikes(nspikes)
## plot.active.wells.network.spikes(nspikes)
## dev.off()
Run the code above in your browser using DataLab