max.bytes<-50000000;
dat<-readBin("c:/data/mpg.png", what="raw", size=1, signed=TRUE, endian="little",n=max.bytes);
data<-data.frame(dat)
library(foreign)
write.dta(data, "c:/data/mpg2.dta")
如何修改？谢谢！