Displaying 1 result from an estimated 1 matches for "pred_elev".
2023 Dec 09
1
Linear model and approx function
...Vol Area V_sum A_sum
158 2307 233.0276 233.02756 1771806968 15172603
159 2308 0.0000 71.65642 1771806968 15172674
I used a linear model to estimate the elevation for a specific volume, but
the codes do not work properly.
lm1 = lm(x6[,1]~x6[,4])
new_volume <- 3,000,000,000
pred_elev <- predict(lm1, newdata = data.frame(volume = new_volume))
pred_elev
The results just estimated for the 159 rows of the dataframe, not the new
volume.
> tail(pred_elev)
154 155 156 157 158 159
2254.296 2254.296 2254.296 2254.296 2254.296 2254.296
Also I have u...