assignment due 8/4, 1NN. Comments are in the file.

It seems I didn't copy this line into the script:
     Ugulino <- read.csv(DataSet_Artigo_SBIA3-SemiColon.csv).  
It would go in between lines 38 & 39, or skipping to the sampling by 1000, at line 47.