Update R code - Part #3

Got the code down for NA for num > than obs