Nothing
tests/testthat/test_ntbcal-functions.R
In readBrukerFlexData: Reads Mass Spectrometry Data in Bruker *flex Format
test_that(".extractV10CTOF2CalibrationConstants", {
x <- "##$NTBCal= <V3.0CCalibrator 12 1 0 0 -2147483648 2147483647 V1.0CHPCData Order 0 vCoeff V1.0VectorDouble 0 c2 0 c0 0 minMass 0 maxMass 0 bUse 0 endCHPCData V1.0CTOF2CalibrationConstants 48 0.25 3884.868239229128 1164156.9998801197 6.1682474689786355 -0.063083671657452864 -34.362308485323794 2 V1.0CTOF2CalibrationConstants 0 0 0 0 0 0 0 -1 >"
r <- c(48, 0.25, 3884.868239229128, 1164156.9998801197, 6.1682474689786355, -0.063083671657452864, -34.362308485323794, 2)
expect_identical(.extractV10CTOF2CalibrationConstants(x), r)
x <- "##$NTBCal= <V3.0CCalibrator 12 1 0 0 -2147483648 2147483647 V1.0CHPCData Order 0 vCoeff V1.0VectorDouble 0 c2 0 c0 0 minMass 0 maxMass 0 bUse 0 endCHPCData V1.0CTOF2CalibrationConstants 30524.799999999999 1.6000000000000001 612.79023136741034 2235683.8041364038 -0.012983605858889708 -2.7924676358365398e-005 0 2 V1.0CTOF2CalibrationConstants 30524.799999999999 1.6000000000000001 612.79023136741034 2235683.8041364038 -0.012983605858889708 -2.7924676358365398e-005 0 2 >"
r <- c(30524.799999999999, 1.6000000000000001, 612.79023136741034, 2235683.8041364038, -0.012983605858889708, -2.7924676358365398e-005, 0, 2)
expect_identical(.extractV10CTOF2CalibrationConstants(x), r)
})
Try the readBrukerFlexData package in your browser
Any scripts or data that you put into this service are public.
readBrukerFlexData documentation built on Oct. 3, 2024, 1:06 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.
test_that(".extractV10CTOF2CalibrationConstants", {
x <- "##$NTBCal= <V3.0CCalibrator 12 1 0 0 -2147483648 2147483647 V1.0CHPCData Order 0 vCoeff V1.0VectorDouble 0 c2 0 c0 0 minMass 0 maxMass 0 bUse 0 endCHPCData V1.0CTOF2CalibrationConstants 48 0.25 3884.868239229128 1164156.9998801197 6.1682474689786355 -0.063083671657452864 -34.362308485323794 2 V1.0CTOF2CalibrationConstants 0 0 0 0 0 0 0 -1 >"
r <- c(48, 0.25, 3884.868239229128, 1164156.9998801197, 6.1682474689786355, -0.063083671657452864, -34.362308485323794, 2)
expect_identical(.extractV10CTOF2CalibrationConstants(x), r)
x <- "##$NTBCal= <V3.0CCalibrator 12 1 0 0 -2147483648 2147483647 V1.0CHPCData Order 0 vCoeff V1.0VectorDouble 0 c2 0 c0 0 minMass 0 maxMass 0 bUse 0 endCHPCData V1.0CTOF2CalibrationConstants 30524.799999999999 1.6000000000000001 612.79023136741034 2235683.8041364038 -0.012983605858889708 -2.7924676358365398e-005 0 2 V1.0CTOF2CalibrationConstants 30524.799999999999 1.6000000000000001 612.79023136741034 2235683.8041364038 -0.012983605858889708 -2.7924676358365398e-005 0 2 >"
r <- c(30524.799999999999, 1.6000000000000001, 612.79023136741034, 2235683.8041364038, -0.012983605858889708, -2.7924676358365398e-005, 0, 2)
expect_identical(.extractV10CTOF2CalibrationConstants(x), r)
})
Try the readBrukerFlexData package in your browser
Any scripts or data that you put into this service are public.
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.