multi-vol model r code