add R script file load2.R and change traffic.R