# NOT RUN {
massSTD <- c(0.01, 0.5, 1, 10, 20, 50, 100, 120, 150, 200, 220) ## [g]
indError <- c(0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, -0.2, -0.2) ## [mg]
uncert <- c(0.1, 0.1, 0.1, 0.1, 0.1, 0.2, 0.2, 0.3, 0.3, 0.4, 0.5) ## [mg]
d <- 0.1 ## [mg]
Balance.D1 <- calibCert(balanceID = 'MT XPE 204', serial = 'B403223982',
d = d, d.units = 'mg',
indError = data.frame(massSTD, indError, uncert),
indError.units = c('g', 'mg', 'mg'),
rep = data.frame(load = c(0.1, 100, 220),
sd = c(0.00, 0.04, 0.03)),
rep.units = c('g', 'mg'),
eccen = c(100, 0.1), eccen.units = c('g', 'mg'),
Temp = c(17.4, 17.9), ## [deg.C]
p = c(750.4, 751.0), ## [hPa]
h = c(70.5, 71.4), ## [%]
unitsENV = c('deg.C', 'hPa', '%'),
institution = 'Instituto Nacional de Metrologia de Colombia',
date = '2021-03-18')
print(Balance.D1)
# }
Run the code above in your browser using DataLab