O2.data<-read.table('O2.txt',header=T)
X<-rev(log(O2.data$Ratio))
spectrum(X)
abline(v=1/14)