changing function to measure time
 modify to accept Result and R file
add script to import data in R