tests/testthat/test-Fringe-Thickness.R

test_that("XRD fringe thickness", {
  expect_equal(xrd.FringeThickness(66.22698, 66.32140), 1116.37, tolerance = 0.0001)
  expect_equal(xrd.FringeThickness(66.69300, 66.78327), 1170.79, tolerance = 0.0001)
})
thomasgredig/rigakuXRD documentation built on Feb. 3, 2024, 10:49 p.m.