data("S")
data("parameters")
s<-list()
s[[1]]<-S
spike.features = suppressWarnings( IGM.aggregate.feature.data(s, "spike", parameters))
ns.features = suppressWarnings( IGM.aggregate.feature.data(s, "ns", parameters) )
burst.features = suppressWarnings( IGM.aggregate.feature.data(s, "burst", parameters) )
Run the code above in your browser using DataLab