Что вы имеете в виду под «бесконечным наклоном»? Вот как вы бы сделали это в R:
library(dplyr)
df <- tibble::tribble(
~R1, ~LAI1,
233.7, 1.34,
411.3, 4.42,
143.4, 3.57,
136.7, 3.27,
249, 5.53,
59, 1.79,
186, 4.32,
185, 2.58
)
model1 <- lm(LAI1 ~ R1, data = df)
summary(model1)
plot(df$R1, df$LAI1)
abline(model1)