Displaying 1 result from an estimated 1 matches for "chrom2".
Did you mean:
chroma
2009 Feb 17
2
Chromatogram deconvolution and peak matching
...1.275e-05),20)
chrom1.tot <-
data.frame(time,outer(c1,s1,"*")+outer(c2,s2,"*")+outer(c2,s2,"*"))
names(chrom.tot)[-1] <- x
#generation of chromatogram 2
c1 <- f(time,2.1)
c2 <- f(time,4)
c3 <- f(time,8)
plot(c1+c2+c3~time,type="l",main="chrom2")
chrom2.tot <-
data.frame(time,outer(c1,s1,"*")+outer(c2,s2,"*")+outer(c2,s2,"*"))
names(chrom.tot)[-1] <- x
plot(s1~x,type="l",main="spectra")
lines(s2~x,col=2)
lines(s3~x,col=3)
Thanks for your time
Kind Regards
Bart
--
View this...