写一个长数学表达式

Question

我正在尝试写一个长数学方程，如下所示：

  

1 / x + 1 [（x ^ 2 + 4x +1 / x ^ 2-1-）* log（x + sqrt（x ^ 2-1-1））-（x +3）/ sqrt（x ^ 2 -1）]

我试图在R studio中的一个函数中对此进行定义，如下所示：

pho_ann <- function(x) {(1/(x+1))*((x^2)+4x)}

我什至无法编写完整功能，而且我已经遇到错误：

  

错误：“ pho_ann <-function（x）{（1 /（x + 1））*（（x ^ 2）+ 4x”中的意外符号

什么是错误的根源？我该怎么写整个表达式？

Answer 1

为避免错误

• 将4x更改为4*x
• 删除1[和]。

函数定义变为：

pho_ann <- function(x){
    1/x + (x^2 + 4*x + 1/x^2 -1)* log(x + sqrt(x^2 - 1)) - (x + 3) / sqrt(x^2 - 1)
}