tests/testthat/test-DebyeScherrer.R
In thomasgredig/rigakuXRD: X-Ray Diffraction Data Analysis Package for Rigaku Data Sets
test_that("get Debye-Scherrer width", {
fn = xrd.getSampleFiles(fileExt='asc')
d <- xrd.read.ASC(fn)
q = xrd.get.PeakStats(d$theta, d$I, 38.2, Try.Sigma = 0.3)
# expect Au layer to be 14.4nm
expect_equal(xrd.get.DebyeScherrer(q), 144, tolerance=1e-3)
})
thomasgredig/rigakuXRD documentation built on Feb. 3, 2024, 10:49 p.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("get Debye-Scherrer width", {
fn = xrd.getSampleFiles(fileExt='asc')
d <- xrd.read.ASC(fn)
q = xrd.get.PeakStats(d$theta, d$I, 38.2, Try.Sigma = 0.3)
# expect Au layer to be 14.4nm
expect_equal(xrd.get.DebyeScherrer(q), 144, tolerance=1e-3)
})
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.