modified:   select.r