library(data.table)
system.time(student1<-read.csv("student_data.csv",header=TRUE, fileEncoding="UTF-8-BOM"))
system.time(student2<-fread("student_data.csv"))

user  system elapsed
  15.83    0.18   16.25
   user  system elapsed
   0.52    0.02    0.37