在R中集成非参数曲线

Question

只是一个警告,我一天前开始使用R ......如果有什么看似天真的简单,我道歉.

现在我试图让R接收一个带有影响的测量数据的.txt文件并计算它的头部伤害标准测试.HIC测试要求来自数据的曲线在特定间隔上进行积分.

等式在下面的链接...我试图在这里作为图像插入它但它不会让我.显然我需要一些声望点才能让我这样做.

a(t)是加速曲线.

到目前为止,我没有在R中生成合适的曲线以匹配数据的问题.黄土功能工作得很好,正是我正在寻找的东西...我只是不知道如何整合它.据我所知,黄土是一个非参数回归,所以没有办法确定它的曲线方程.有没有办法整合它呢？

如果没有,是否有另一种方法可以使用不同的功能来完成此任务？

任何帮助或有见识的评论将非常感谢.

提前致谢,

韦斯

詹姆斯还有一个问题,在使用integrate()函数时,如何才能获得没有文本和错误的数字？

Answer 1

你可以使用predict你的函数loess模型来创建与使用功能integrate.

# using the inbuilt dataset "pressure"
plot(pressure,type="l")

# create loess object and prediction function
l <- loess(pressure~temperature,pressure)
f <- function(x) predict(l,newdata=x)

# perform integration
integrate(f,0,360)
40176.5 with absolute error < 4.6

并单独提取价值:

integrate(f,0,360)$value
[1] 40176.5