What do you mean with "infinite slope"? This is how you would do it in 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)
The technical post webpages of this site follow the CC BY-SA 4.0 protocol. If you need to reprint, please indicate the site URL or the original address.Any question please contact:yoyou2525@163.com.