add combined program model.R