Update model.R

set RNG seed before calling GBM for repeatable results.