TERR脚本输出的怪异值

如何解决TERR脚本输出的怪异值

我有下面的脚本，本质上是要计算与P.Oil值相比，Oil值的可接受值范围。 I.E如果机油为100，机油为120，则如果阈值为15％，则返回“拒绝”。

由于某种原因，脚本正在计算奇怪的内容，请参见下面的链接，以获取输入和输出的屏幕截图。阈值为0.15

Example

data = data.frame(Well,Oil,Date,DaysOn,Qi,A,B)

data$P.oil = data$Qi/((1+data$A*data$B*data$DaysOn)^(1/data$B))
data$P.Hi.Oil=data$P.oil*(1+Threshold)
data$P.Lo.Oil=data$P.oil*(1-Threshold)

Result <- data