tests/testthat/test-uncertainties.R

test_that("AndresDiapositiva110", {
  data(minimalCert)
  expect_equal(round(uncertErrorCorr(reading = 12.4835, calibCert = minimalCert), 9),
               0.000100249)
#               0.0005728/2)
  # Hablar con Andr'es de por qu'e en la diapositiva est'a la incertidumbre expandida
})

test_that("AndresDiapositiva111", {
  data(minimalCert)
  expect_equal(uncertReading(calibCert = minimalCert, reading = 12.4835)^2, 2.891329e-9)
})

test_that("AndresDiapositiva112", {
  data(minimalCert)
  expect_equal(round(uncertConvMass(reading = 12.4835, calibCert = minimalCert), 10),
               0.0001137598)
               #0.0004091251) #Preguntar a Andres porque el n'umero dos
})

# usethis::use_test("")

Try the masscor package in your browser

Any scripts or data that you put into this service are public.

masscor documentation built on Sept. 13, 2021, 9:06 a.m.