Не можете рисовать линии прогнозирования

Question

Так что есть данные предсказания от:

predictedParams <- predict(parameters, 
          list(independentVar = log(median_income)), 
          interval='prediction', level=0.95) 

predictedParamsDataFrame <- as.data.frame(predictedParams) 

abline(independentVar, predictedParamsDataFrame$upr, lwd=4, col = 'red') 

, но это не работает. Я также пробовал это сделать.

uprParams <- lm(independentVar ~ predictedParamsDataFrame$upr) 
abline(uprParams, lwd=4, col = 'red') 

Но это приводит к слишком высокой линии.

Что мне делать?

Answer 1

Прежде всего вам нужно построить участок. Затем используйте abline.

plot(concentration, signal) 
res <- lm(signal ~ concentration) 
abline(res) 

Answer 2

abline рисует прямые линии, так что это не всегда то, что вы хотите сделать для других, чем приступе линейной модели. Кроме того, он получает в качестве параметров перехват и уклон, что опять не то, что у вас здесь.

Это поможет вам матрицу с предсказанными значениями и интервал:

predictedParams <- predict(parameters, 
          list(independentVar = log(median_income)), 
          interval='prediction', level=0.95) 

Теперь вам просто нужно построить independentVar и верхний/нижний интервал:

lines(log(median_income), predictedParams[,"upr"], lwd=4, col = 'red') 

Смотрите, что мы используем lines функция. На оси x мы используем log(median_income), потому что это фактические данные, заданные predict, а по оси y мы используем верхний конец интервала predictedParams[,"upr"].