tests/testthat/test_smoothIntensityByTime.r
In ChemoSens/PTRMSR: Analysis of PTRMS data
data(ptrv)
breath="m69.06989..isoprene...Conc."
res_ibt=ptrvIntensityByTime(ptrv,referenceBreath=breath,correction="cycle",halfWindowSize=5)
dataset=res_ibt$res
res_smooth=ptrvSmooth(dataset,spar=NULL,sameTime=TRUE,time_x=NULL,method="Spline",negativeValuesToZero=TRUE)
sum(res_smooth$duration>0)==3195
res_smooth_Loess=ptrvSmooth(dataset,spar=NULL,sameTime=TRUE,time_x=NULL,method="Loess",negativeValuesToZero=TRUE)
all(colnames(res_smooth_Loess[1,])==c("time","intensity","ion","duration"))
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.
data(ptrv)
breath="m69.06989..isoprene...Conc."
res_ibt=ptrvIntensityByTime(ptrv,referenceBreath=breath,correction="cycle",halfWindowSize=5)
dataset=res_ibt$res
res_smooth=ptrvSmooth(dataset,spar=NULL,sameTime=TRUE,time_x=NULL,method="Spline",negativeValuesToZero=TRUE)
sum(res_smooth$duration>0)==3195
res_smooth_Loess=ptrvSmooth(dataset,spar=NULL,sameTime=TRUE,time_x=NULL,method="Loess",negativeValuesToZero=TRUE)
all(colnames(res_smooth_Loess[1,])==c("time","intensity","ion","duration"))
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.