require(mvtnorm)
cor.mat <- matrix(c(1, -0.7, -0.7, 1), 2, 2)
u.budget <- uncertaintyBudget(x = list(name = c("x0", "x1"),
mean = c(10, 20), u = c(1, 5), unit = c("kg", "kg"), dof = c(10, 10),
label = c("x[0]", "x[1]"), type = c("A", "A"),
description = c("measurand mass", "sample mass"),
distribution = c("normal", "normal")),
y = cor.mat)
u.budget
Run the code above in your browser using DataLab