s <- generateSpectrum(1)
plot(x ~ t, type="l", data=s)
s <- generateSpectrum(1, centers=c(2000,3000), resolution=10, baseline=3000)
plot(x ~ t, type="l", data=s)
s <- generateSpectrum(1, peaks=2, auc=FALSE, baseline=0)
plot(x ~ t, type="l", data=s)
Run the code above in your browser using DataLab