# Equal parameters case
result <- ws_tdiff_equal_params(mu = 0, sigma = 1, nu = 10)
print(result)
# nu_star should be 2*(10-4) = 12
# Verify against general formula
general <- ws_tdiff_univariate(0, 1, 10, 0, 1, 10)
all.equal(result$nu_star, general$nu_star)
Run the code above in your browser using DataLab