test.eletronicnoise <- function(){
	failpeaks <- read.csv("pH_narcotics_Failpeaks.csv")
	
	checkTrue(!any(apply(failpeaks,1,function(x) all(x[2:4] == c(1738,2819,668,201.69144)))))
}

test.formulacalc <- function(){
	failpeaks <- read.csv("pH_narcotics_Failpeaks.csv")
	
	checkTrue(!any(apply(failpeaks,1,function(x) all(x[2:4] == c(70,2758,321,56.04933)))))
}