在两组变量的最大值和最小值之间找到线性方程

Question

我有两组变量； LST和NDVI。 LST的值取决于NDVI的值。这些散点图显示了典型的形状。我需要在点状图中获得上边缘值和下边缘值的方程式。

我已经完成了90％的上四分位数和10％的下四分位数数据集。但是结果并不令人满意。我正在R平台上工作。

dat<- read.table("clipboard", header=TRUE)
names(dat)
plot(dat$LST, dat$NDVI, xlab=expression(bold(LST)), ylab=expression(bold(NDVI)))
summary(dat)
quantile(dat$NDVI, 0.9)
quantile(dat$NDVI, 0.1)
a <- dat[dat$NDVI > 0.65,]$NDVI
x <- dat[dat$NDVI > 0.65,]$LST
MO <- lm(a ~ x) 
newdata <- seq(10,20, length=100)
lines(newdata, predict(MO, data.frame(x = newdata)), lwd=3,
      col="blue") 

a1<-dat[dat$NDVI < 0.31,]$NDVI
x1<-dat[dat$NDVI < 0.31,]$LST
MO1 <- lm(a1 ~ x1) 
newdata1 <- seq(10,20, length=100)
lines(newdata1, predict(MO1, data.frame(x1 = newdata1)), lwd=3, 
      col="blue") 

我期望这两个变量在不同的边缘（即上下）的线性方程。但是不仅仅是上限值数据的线性方程。