# Create from "formula" objects
flist_wei <- formula_list(shape = formula(~ 1), scale = formula(~ x))
class(flist_wei)
# Create from "formula_list" objects
flist <- formula_list(exponential = formula_list(rate = formula(~1)),
weibull = flist_wei)
Run the code above in your browser using DataLab