R语言中，构建函数plotForecastErrors，出现了错误，图形也少了一条蓝线

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

> souvenir <- scan("http://robjhyndman.com/tsdldata/data/fancy.dat")
Read 84 items
> souvenirtimeseries <- ts(souvenir, frequency=12, start=c(1987,1))
> logsouvenirtimeseries <- log(souvenirtimeseries)
> plot.ts(logsouvenirtimeseries)
> souvenirtimeseriesforecasts <- HoltWinters(logsouvenirtimeseries)
> plot(souvenirtimeseriesforecasts)
> library("forecast")
> souvenirtimeseriesforecasts2 <- forecast(souvenirtimeseriesforecasts, h=48)
>  plot(souvenirtimeseriesforecasts2)
> plotForecastErrors <- function(forecasterrors)
+ {
+ # make a red histogram of the forecast errors:
+ mysd <- sd(forecasterrors)
+ hist(forecasterrors, col="red", freq=FALSE)
+ # freq=FALSE ensures the area under the histogram = 1
+ # generate normally distributed data with mean 0 and standard deviation mysd
+ mynorm <- rnorm(10000, mean=0, sd=mysd)
+ myhist <- hist(mynorm, plot=FALSE)
+ # plot the normal curve as a blue line on top of the histogram of forecast errors:
+ points(myhist$mids, myhist$density, type="l", col="blue", lwd=2)
+ }
> source("plotForecastErrors.R")
Error in file(filename, "r", encoding = encoding) : 无法打开链结
此外: Warning message:
In file(filename, "r", encoding = encoding) :
  无法打开文件'plotForecastErrors.R': No such file or directory
>  plotForecastErrors(souvenirtimeseriesforecasts2$residuals)
Error in hist.default(mynorm, plot = FALSE) : invalid number of 'breaks
此外: Warning message:
In rnorm(10000, mean = 0, sd = mysd) : 产生了NA

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：Forecast forecas Errors terror Error

你好，你的问题解决了吗?我也出现了同样的情况