Title: A Bit of Glue Between R and Stata
Version: 1.1.2
Author: Luca Braglia [aut, cre]
Maintainer: Luca Braglia <lbraglia@gmail.com>
Description: A simple R -> Stata interface allowing the user to execute Stata commands (both inline and from a .do file) from R.
URL: https://github.com/lbraglia/RStata
BugReports: https://github.com/lbraglia/RStata/issues
Imports: foreign, tools, utils
License: GPL-3
RoxygenNote: 7.3.2
Encoding: UTF-8
NeedsCompilation: no
Packaged: 2025-03-25 07:06:35 UTC; l
Repository: CRAN
Date/Publication: 2025-03-25 07:20:02 UTC

A Bit of Glue Between R and Stata

Description

A simple R -> Stata interface allowing the user to execute Stata commands (both inline and from a .do file) from R.

Author(s)

Maintainer: Luca Braglia lbraglia@gmail.com

See Also

Useful links:

Set Stata binary path

Description

Set Stata binary (among found alternatives) path. These settings are lost when R is closed, therefore you should consider adding a options("RStata.StataPath") line in your .Rprofile.

Usage

chooseStataBin()

Send commands to a Stata process

Description

Function that sends commands to a Stata process.

Usage

stata(
  src = stop("At least 'src' must be specified"),
  data.in = NULL,
  data.out = FALSE,
  stata.path = getOption("RStata.StataPath",
    stop("You need to set up a Stata path; ?chooseStataBin")),
  stata.version = getOption("RStata.StataVersion",
    stop("You need to specify your Stata version")),
  stata.echo = getOption("RStata.StataEcho", TRUE),
  ...
)

Arguments

src

character vector of length 1 (path to .do file) or more (a set of stata commands). See examples.

data.in

data.frame to be passed to Stata

data.out

logical value. If TRUE, the data at the end of the Stata command are returned to R.

stata.path

Stata command to be used

stata.version

Version of Stata used

stata.echo

logical value. If TRUE stata text output will be printed

...

parameter passed to write.dta

Examples

## 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)