在R中的数据中确定特定事件之前的最大值

Question

我有一些力/时间数据用于跳跃任务，无论何时强制值= 0，它们都在空中。我在跳跃的推进阶段寻找峰值力，所以在它读数为0或小于0之前，我不能使用max（）函数，因为着陆力几乎总是大于推进力。我不想修剪数据，因为最大着陆力是另一个感兴趣的变量。我不想手动执行此操作，因为我会有大量样本。有什么想法如何在力值0之前返回推进力或最大值的最大值？感谢

这里有一些样本数据（真实数据每秒收集1000个数据点，因此我必须在此处制作类似于力/时间曲线的东西）。所以在这里我会寻找0或10s之前的最大值。 example

Answer 1

如果要查找在第一个值小于10之前出现的值集的最大值，请尝试以下操作：

myMax <- max(x[1:(which(x < 10)[1]-1)])