Added HW4 Code

Turning in 1NN code for HW4.  Sorry for the delay - thanks!
if training.data is only the first four columns of iris (the numeric values), I believe this line should read:
 result1[j,6] <- labels[nearest.row]