#data("S")
#data("parameters")
#s<-list(); s[[1]]<-S
# spike.features<-IGM.aggregate.feature.data(s, feat.type="spike", parameters )
# nae = spike.features$nAE
# filtered.spike.features = lapply(spike.features, function(x) filter.wells(x, nae))
Run the code above in your browser using DataLab