# NOT RUN {
nominal <- c(1000, 500, 200, '200*', 100) # [g]
convMassCor <- c(0.0, -0.03, 0.03, 0.06, 0.00) # [mg]
uncert <- c(0.50, 0.25, 0.10, 0.10, 0.05) # [mg]
units <- c('g', 'mg', 'mg')
rho <- c(8012.217, 8008.640, 8011.126, 8010.722, 8010.935)# [kg/m^3]
u_rho <- c(0.096, 0.090, 0.160, 0.160, 0.321)# [kg/m^3]
unitsrho <- 'kg/m^3'
MS.Kit1 <- massStandardKit(nominal = nominal, convMassCor = convMassCor, uncert = uncert,
units = units, rho = rho, u_rho = u_rho, unitsrho = unitsrho)
print(MS.Kit1)
# }
Run the code above in your browser using DataLab