R仅选择最大值

Question

我想从0.01到最大位移值计算所有加速度值的平均值。但是，我不希望在最大值之后包含任何加速度值。这是怎么做到的？

mean(
  subset(S1_Intns40_chainno-Sheet1,
    Displacement>0.01:max(Displacement),
    select=c("Acceleration"))$Acceleration)
[1] -0.8371687

Answer 1

像这样：

limitedAvgAcc <- mean(data$Acceleration[(data$Displacement <= max)&(data$Displacement >= 0.01)])

这是有效的，因为括号中的语句创建了一个布尔向量，然后用于对加速度向量进行子集化，然后对其进行平均。

Answer 2

lift_S1_intns40_chaino=
               (S1_Intns40_chainno[(which.min(S1_Intns40_chainno$Displacement<0.01)):
               (which.max(S1_Intns40_chainno$Dis)),])

我已经得到以下代码，以便我的目的运作良好。