# \donttest{
# Example with difference method
t_orig <- c(5.2, 3.1, 8.7, 2.4, 6.9)
t_knock <- list(
c(2.1, 4.2, 3.3, 1.8, 2.9),
c(1.9, 3.8, 4.1, 2.2, 3.1)
)
w_median <- calculate_w_statistics(t_orig, t_knock, method = "median")
w_diff <- calculate_w_statistics(t_orig, t_knock, method = "difference")
# }
Run the code above in your browser using DataLab