@@ -208,7 +208,7 @@ names(timeSeriesFits) = classes

 # Removing classes of bacteria without a potentially

 # interesting time interval difference.

-timeSeriesFits = sapply(timeSeriesFits,function(i){i[[1]]})[-grep("No",timeSeriesFits)]

+timeSeriesFits = lapply(timeSeriesFits,function(i){i[[1]]})[-grep("No",timeSeriesFits)]

 # Naming the various interesting time intervals.

 for(i in 1:length(timeSeriesFits)){