added plotModel.R