design_test <- data.frame("Point" = seq(1, 5, length.out = 7),
"Weight" = c(0.1, 0.0001, 0.2, 0.134, 0.073, 0.2111, 0.2818))
efficient_round(design_test, 20)
exact_design <- efficient_round(design_test, 21)
aprox_design <- exact_design
aprox_design$Weight <- aprox_design$Weight/sum(aprox_design$Weight)
Run the code above in your browser using DataLab