powered by
update_Lipschitz
update_Lipschitz(tms, beta, a, inflate = 1)
test_data <- synthetic_multiband() tms <- test_data$tms beta <- test_data$beta a <- test_data$a update_Lipschitz(tms,beta,a)
Run the code above in your browser using DataLab