我的电脑可以运行成功,但是需要把第9和11行
<br />
my.tempfile<-paste(tempdir(),"\\frenchindustry.zip",sep="")</p>
<p>my.usefile<-paste(tempdir(),"\\48_Industry_Portfolios_daily.txt",sep="")<br />
改成
<br />
my.tempfile<-paste(tempdir(),"/frenchindustry.zip",sep="")</p>
<p>my.usefile<-paste(tempdir(),"/48_Industry_Portfolios_daily.txt",sep="")<br />
</p>
注:我的系统是fedora linux