Changed a message() to an error(), because the circumstances that generate...

Changed a message() to an error(), because the circumstances that generate this message would lead to an error anyways

R/leMsMs.r

@@ -1757,7 +1757,7 @@ filterPeaksMultiplicity <- function(peaks, formulacol, recalcBest = TRUE)
 	
 	if(!is.data.frame(peaks))
 	{
-		message("filterPeaksMultiplicity: no peaks to aggregate")
+		stop("filterPeaksMultiplicity: no peaks to aggregate")
 		peaks <- cbind(peaks, data.frame(formulaMultiplicity=numeric()))
 	}
 	else