added some comments
skeModel.R