0 
I have 2 vectors 
days = c(1, 2, 3, 4, 5, 6, 7)
pct_used = c(22.3, 22.1, 22.1, 22.1, 55.660198413, 56.001746032, 55.988769841)

fit <- lm(days ~ poly(pct_used,2,raw=TRUE))
prediction <- predict(fit, data.frame(pct_used=85))
days_remain <- (prediction - tail(days,1))

pct_used は基本的にディスク容量です。したがって、このコードは、ディスク容量が 85 に達する時期を予測します。
返される予測値は 325 です。これは奇妙な感じです。これは、 pct_used = 85 に達するのに 325 日かかるということですか?
どこが間違っていますか？

4

1 に答える 1

1

これを試して、何が起こっているかを確認してください。

plot(pct_used, days)
lines(pct_used, predict(fit

ここに画像の説明を入力

plot(pct_used, days, xlim=c(min(pct_used), 85) ,ylim= c(-50,350))
lines(seq(min(pct_used), 85, length=50), predict(fit, newdata=data.frame( 
                                        pct_used=seq( min(pct_used), 85, length=50))))

ここに画像の説明を入力

于 2013-02-15T01:57:27.070 に答える