积分估计函数[R] (虽然很简单但还算够用? ((分部积分令人头秃 ## 积分计算函数 crspf <- function(gx, a, b, d){ # gx:待积分函数 # a、b:积分区间[a, b] # d:分割的小区间的长度(可理解为估计精度) list <- seq(from = a