Finds the best fitting orm model for a single continuous predictor x, starting by finding the link function with the smallest deviance when the predictor is modeled with 4 knots in a restricted cubic spline function. Then the function finds the number of knots minimizing AIC when this link function is used. Candidate number of knots are 0 (linear fit), 3, 4, 5, maxk.
adapt_orm(x, y, maxk = 6, ...)the best orm fit object
if (FALSE) { # \dontrun{
f <- adapt_orm(age, blood_pressure)
f$stats['d.f.'] # print no. of parameters for age
f$family # print optimum link found
} # }