added Evaluation.R, added function to calculate accuracy