R - 请分享您的经验 - 页 6

[anonymous]

RandomWorker:

我在R中输入了EURUSD。计算了模型并计算了系数。 如何绘制图表并与科蒂尔对齐？

情节的变化。点

顺便说一下，你刚刚估计了模型。预测是由predict函数完成的。

n <- 100
n.ahead <- 15
ts <- sin(0.05 * pi * (1 : n)) + rnorm(n = n, mean = 0, sd = 0.1)
ts.model <- ar(ts, method = 'burg')
ts.pred <- predict(ts.model, n.ahead = n.ahead)
plot(
  1 : (n + n.ahead),
  c(ts, rep(NA, n.ahead)),
  t = 'l'
  )
lines(
  (n + 1) : (n + n.ahead),
  as.numeric(ts.pred$pred),
  col = 'gray'
  )
lines(
  (n + 1) : (n + n.ahead),
  as.numeric(ts.pred$pred) + as.numeric(ts.pred$se),
  col = 'gray',
  lty = 'dashed'
  )
lines(
  (n + 1) : (n + n.ahead),
  as.numeric(ts.pred$pred) - as.numeric(ts.pred$se),
  col = 'gray',
  lty = 'dashed'
  )

[[删除]]

anonymous:

绘制线条和点

顺便说一下，你只估计了模型。预测是由predict函数完成的。

谢谢你。不过对我来说，这很难。我会试一试的。

你写的东西会借鉴历史吗？

[[删除]]

anonymous:

绘制线条和点

顺便说一下，你只估计了模型。预测是由predict函数完成的。

我已经有点明白了。

我对预测不感兴趣。

我有一个模型，我认为它是一个类似于MA的指标。我如何在计算模型的历史上绘制它？

[anonymous]

RandomWorker:

你如何在计算模型的故事上画它？

情节

library(TTR)

x <- cumsum(rnorm(100))
x.ma <- EMA(x, 10)

plot(x, t = 'l')
lines(x.ma, col = 'red')

[[删除]]

anonymous:

情节

> x<-ar(eur[1:256],method="mle")

> x

呼叫。

ar(x = eur[1:256],method="mle")

系数。

1 2 3

0.9420 0.1955 -0.1644

订单选择3σ^2估计为2.73e-06

> plot(x, t = 'l')

xy.coords(x, y, xlabel, ylabel, log)中的错误。

'x'是一个列表，但没有'x'和'y'的组件

对不起，我一定是愚蠢至极。

[anonymous]

RandomWorker:

> plot(x, t = 'l')

试试这个：plot(eur[1:256], t='l')

[[删除]]

anonymous:

试试这个方法：plot(eur[1:256], t='l')

不问问题。我画了它。但这是一个矢量。

x<-ar(eur[1:256],method="mle")

这里的x不是一个矢量。它里面有一个公式，可以用来做预测中的计算，只是对历史的计算。

[anonymous]

RandomWorker:

不问问题。我画了它。但这是一个矢量。

x<-ar(eur[1:256],method="mle")

这里的x不是一个矢量。它里面有一个公式，可以用来做计算，就像在前缀中一样，只是在历史上。

命令?ar告诉我们，x是一个列表，而不是一个公式。class(x)也是如此。

str(x)命令显示对象的内容。

fitted(x)给出了NULL，但x有一个残差分量（原始数据的残差）--模型值仍然可以计算。(eur[1:256]-x$resid).

Plot(eur[1:256], t='l')

添加一行模型值：lines(eur[1:256]-x$resid, col='red')

[[删除]]

anonymous:

命令?ar告诉我们，x是一个列表，而不是一个公式。class(x)也是如此。

str(x)命令显示对象的内容。

fitted(x)给出NULL，但x有一个残差分量（原始数据的残差）--模型值仍然可以被计算出来。(eur[1:256]-x$resid).

Plot(eur[1:256], t='l')

添加一行模型值：lines(eur[1:256]-x$resid, col='red')

知道了！谢谢。

但不知何故，我们，有一个公式，间接地计算了它的价值，这是令人惊讶的。谓词在那里，配合的结果却不在那里。

[[删除]]

某种奇怪的配合。

> x<-ar.ls(eur[1:256], order.max = 20, demean = TRUE)

> x

呼叫。

ar.ls(x = eur[1:256], order.max = 20, demean = TRUE)

系数。

1 2 3

0.9425 0.1967 -0.1647

指定order.max=20，但只有三个 系数。我是这样理解的。

欧元=0.9425+0.1967*欧元（-1）+（-0.1647）*欧元（-2）。

应该有20名成员吗？

除此以外，我改变了不同的参数，总是三个系数，它们有很大的不同。

请对此进行评论。