Nothing
#' Calculates normalized in balance verification using a mass standard
#'
#' @param reading balance reading for the standard mass.
#' @param standard one of two options: an object of class \code{"massStandard"}
#' (see [massStandard()]) or the numeric value of
#' the conventional mass of the standard used.
#' @inheritParams convMass
#' @param u_massStandard uncertainty of the conventional mass of the standard used.
#' Necessary only if \code{standard} is not an object of class
#' \code{"massStandard"} (see [massStandard()]).
#' @return Numeric value of normalized error for balance verification using a
#' mass standard.
#'
#' @examples
#' data(E2.MS.20g)
#' data(MT.XPE.204)
#' normalizedError(reading = 20.0000, standard = E2.MS.20g, calibCert = MT.XPE.204)
#' @export
#' @seealso [massStandard()].
#'
normalizedError <- function(reading, standard, calibCert, u_massStandard = NULL) {
#if (conventional) {
# convmass <- measurement
#} else {
# if (missing(calibCert)) {
# warning('Conventional mass should be used for the measurement argument,
# or the balance calibration information should
# be provided as a "calibCert" class object. See XXXXXX')
# convmass <- measurement
# } else {
# convmass <- convMass(reading = measurement, calibCert = calibCert)
# }
#}
if (class(standard) != 'massStandard' && missing(u_massStandard)) {
stop('Argument "standard" is numeric. A value for "u_massStandard" is neccesary.')
}
if (class(standard) == 'massStandard') {
massSTD <- standard$convMass
if(!missing(u_massStandard)) {
if(standard$uncert != u_massStandard) {
warning('The uncertainty of the mass standard will be taken from the object of class
"massstandard" provided for the argument standard: ', standard$u_massStandard,
' instead of the value provided at u_massStandard argument: ',
u_massStandard)
}} else {
u_massStandard <- standard$uncert
}
}
if (class(standard) == 'numeric') {
u_massMSR <- u_massStandard
massSTD <- standard
} else {
u_massMSR <- standard$uncert
massSTD <- standard$convMass
}
normErr <- abs(reading - massSTD)/sqrt(u_massMSR^2 + u_massStandard^2)
if (normErr > 1) warning('Balance measurement is not in tolerance.')
return(normErr)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.