Update R code - Part #2

Test98 is the code for eliminating the NA from the list of possible choices