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