gxgych<-function(data) {<br />
for (i in 1:nrow(data)) {<br />
data$pltno[i]%/%5->X<br />
data$pltno[i]%%5->Y<br />
if(Y!=0)<br />
{<br />
data$gy[i]<-data$gy[i]+(Y-1)*20<br />
data$gx[i]<-data$gx[i]+X*20<br />
}<br />
else<br />
{<br />
data$gx[i]<-data$gx[i]+(X-1)*20<br />
data$gy[i]<-data$gy[i]+80<br />
}<br />
data$spltno[i]%/%1->x<br />
data$spltno[i]%%1->y<br />
data$gx[i]<-data$gx[i]+(x-1)*5<br />
data$gy[i]<-data$gy[i]+(10*y-1)*5<br />
}<br />
save(data,file="data.Rdata")<br />
}<br />
我原本是希望改了哪个文件就保存为哪个文件,比如我改的是dhs92,希望保存为dhs92.Rdata,但是R不能识别我在save命令中的"data"实际是function(data)中data的意思,有办法改吗?