没有安装Stata的R中的Stata公式

Question

是否可以在您的 PC 上不安装 Stata 的情况下将 Stata 公式翻译成 R？

我的问题就是上面提到的，但让我给你一些背景知识： 我有以下Stata公式

Mtilde=((M:/p):/d)'*M

（M 是矩阵，p 和 d 是向量）

我想将其转换为 R。我知道有 Rstata 包，但它需要安装 Stata，这在我正在工作的 PC 上不可用。

这就是我在 R 中所做的：

Mtilde <- ((M/p)/d) %>% t() %>% `%*%`(M)

但它似乎不起作用，我想不出办法解决它......

Answer 1

这在技术上是 Mata 代码，而不是 Stata 代码。 Mata 是 Stata 的两种矩阵编程语言中较新的一种。您可以通过在 Stata 命令窗口中输入 mata 来调用它。

如果不了解更多关于 M 和 p 的信息，很难给出具体建议。您可以在线找到 pdf 文件形式的 Mata 手册。请参阅 op_colon 条目 here 和 c_conformability 条目 here。

冒号运算符执行逐个元素的操作，因此 M :/ p 将 M 的每个元素除以 p 的相应元素（如果两者大小相同）。

如果它们的大小不同，则会发生类似的事情（比如除以相同的行或列向量），只要向量的尺寸合适，它就可以工作。

一个完成，你计算那个二次分割矩阵的转置，然后矩阵乘以原始M。

以下是一些 mata 示例：

. mata
------------------------------------------------- mata (type end to exit) ------------------------------------------------------------------
: M=(1,2\3,4)

: M
       1   2
    +---------+
  1 |  1   2  |
  2 |  3   4  |
    +---------+

: p=(1,2)

: p
       1   2
    +---------+
  1 |  1   2  |
    +---------+

: M:/p
       1   2
    +---------+
  1 |  1   1  |
  2 |  3   2  |
    +---------+

: M:/p'
         1     2
    +-------------+
  1 |    1     2  |
  2 |  1.5     2  |
    +-------------+

: ((M:/p):/p)
        1    2
    +-----------+
  1 |   1   .5  |
  2 |   3    1  |
    +-----------+

: ((M:/p):/p)'*M
         1     2
    +-------------+
  1 |   10    14  |
  2 |  3.5     5  |
    +-------------+

: end

这是对应的 R 版本：

> M <- matrix(1:4,2,2,byrow=TRUE)
> M
     [,1] [,2]
[1,]    1    2
[2,]    3    4
> p <- matrix((1:2), 1, 2)
> p
     [,1] [,2]
[1,]    1    2
> t(p)
     [,1]
[1,]    1
[2,]    2
> # the second argument needs to be 1 for row or 2 for column
> sweep(M, 2, p, FUN = '/') 
     [,1] [,2]
[1,]    1    1
[2,]    3    2
> sweep(M, 1, t(p), FUN = '/')
     [,1] [,2]
[1,]  1.0    2
[2,]  1.5    2
> sweep(sweep(M, 2, p, FUN = '/'),2,p,FUN = '/')
     [,1] [,2]
[1,]    1  0.5
[2,]    3  1.0
> t(sweep(sweep(M, 2, p, FUN = '/'),2,p,FUN = '/'))%*%M
     [,1] [,2]
[1,] 10.0   14
[2,]  3.5    5