我想知道是否可以计算积分函数的积分。
∫ 1 4 ∫ 0 t sin（ x ）dx dt
我尝试通过构建函数integrate为积分函数定义一个R函数，但是，似乎这个函数无法处理向量计算。
f <- function(x){sin(x)}
int_f <- function(f,lower=0,upper){return(integrate(f,lower,upper)$value)}
我尝试将int_f视为integrate中的输入，然后它不起作用。
使用矩形区域来近似积分是我目前的解决方案，然而，问题是for循环无法避免，这是非常耗时的。
你知道吗？或者是否有任何函数可以用一堆上限来计算积分？