将等式转换为R代码

Question

我有一个很长的表达式，我想转换成R代码。下面是一个示例，显示表达式的外观/编写方式：

(a exp(-a t) t^4)/(24 (a-b) (a-c) (a-d))

为了R可以理解，应在变量，括号等之间添加乘号*。有没有办法自动执行此操作而不是手动插入？ 表达式应如下所示：

(a *exp(-a*t) *t^4)/(24* (a-b)* (a-c)* (a-d))

Answer 1

如果输入的格式是显示的，则使用gsub替换每个空格就足够了，如下所示：

expr <- "(a exp(-a t) t^4)/(24 (a-b) (a-c) (a-d))"
gsub(" +", "*", expr)
## [1] "(a*exp(-a*t)*t^4)/(24*(a-b)*(a-c)*(a-d))"