add R script file load.R, traffic.R