path<-"http://datayyy.com/data_txt/"
file<-"F-F_Research_Data_Factors.txt"
infile<-paste0(path,file)
download.file(infile,file)