S3 in progress: control_seiqhrf, init_seiqhrf, param_seiqhrf, as.data.frame.seiqhrf, print(control, init, param, model), usage in vignette v2

Not sure if this this a good plan...