A function to strip model fits of all but coefficient estimates

This function was taken from muschellij2/ms_seg, it strips fit objects from R of all but coefficient estimates

strip.model(model)

Arguments

model	A fit object to be stripped