Update descriptive.R

Update comments