}
dyn.load("stataread.so")
esoph<-read.dta("esoph.dta")
read.dta<-function(filename){
a<-.External("do_readStata",filename)
as.data.frame(a)
}
esoph<-read.dta("esoph.dta")
dim(esoph)
esoph
attributes(esoph)
dyn.load("stataread.so")
read.dta<-function(filename){
.External("do_readStata",filename)
}
write.dta<-function(dataframe,filename){
if (any(sapply(dataframe,function(x) !is.null(dim(x)))))
stop("Can't handle multicolumn columns")
invisible( .External("do_writeStata",filename,dataframe))
}
esoph<-read.dta("esophshort.dta")
write.dta(esoph,"d.dta")
esoph<-read.dta("d.dta")
q()
dyn.load("stataread.so")
esoph<-read.dta("esophshort.dta")
write.dta(esoph,"d.dta")
read.dta("d.dta")
prompt(d.dta)
prompt(read.dta)
prompt(write.dta)
q()
