Create transferModel.R