model <- mmir_model(mpg ~ -1 + hp + wt, data = mtcars, engine = "lm",
standardize = TRUE)
iht_res <- restriktor::iht(model, constraints = 'hp < wt')
iht_interpreter(iht_res) |> cat()
Run the code above in your browser using DataLab