tests/testthat/test_ptrvRemoveBlank.R
In ChemoSens/PTRMSR: Analysis of PTRMS data
df=data.frame(time=0:100, intensity=1+sin(0:100),ion="ion")
df[df[,"time"]>50,"intensity"]=df[df[,"time"]>50,"intensity"]+1
plot(df[,"intensity"],type="l")
res_max=ptrvRemoveNoise(df,timeBlank=c(0,50),stat="max", k=3,removeNegative=TRUE)
res_avg=ptrvRemoveNoise(df,timeBlank=c(0,50),stat="avg", k=3,removeNegative=TRUE)
plot(res_max[,"intensity"],type="l")
plot(res_avg[,"intensity"],type="l")
ChemoSens/PTRMSR documentation built on June 15, 2025, 10:40 a.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
df=data.frame(time=0:100, intensity=1+sin(0:100),ion="ion")
df[df[,"time"]>50,"intensity"]=df[df[,"time"]>50,"intensity"]+1
plot(df[,"intensity"],type="l")
res_max=ptrvRemoveNoise(df,timeBlank=c(0,50),stat="max", k=3,removeNegative=TRUE)
res_avg=ptrvRemoveNoise(df,timeBlank=c(0,50),stat="avg", k=3,removeNegative=TRUE)
plot(res_max[,"intensity"],type="l")
plot(res_avg[,"intensity"],type="l")
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.