create s4 model.frame method