## Not run:
# ## Single command
# stata("help regress") #<- this won't work in Windows dued to needed
# # batch mode
#
# ## Many commands
# stata_src <- '
#
# version 10
# set more off
# sysuse auto
# reg mpg weight
#
# '
# stata(stata_src)
#
# ## External .do file
# stata("foo.do")
#
# ## Data input to Stata
# x <- data.frame(a = rnorm(3), b = letters[1:3])
# stata( "sum a", data.in = x)
#
# ## Data output from Stata (eg obtain 'auto' dataset)
# auto <- stata("sysuse auto", data.out = TRUE)
# head(auto)
#
# ## Data input/output
# (y <- stata("replace a = 2", data.in = x, data.out = TRUE))
# ## End(Not run)
Run the code above in your browser using DataLab