R:在动物园里绘制第一个差异
为了便于比较,我试图在同一个图上绘制两个时间序列(动物园对象)的第一个差异。我使用:R:在动物园里绘制第一个差异,r,zoo,R,Zoo,为了便于比较,我试图在同一个图上绘制两个时间序列(动物园对象)的第一个差异。我使用: plot(na.approx(cbind(diff(n),diff(d))),lty=c(1,2),screen=1) 其中n和d是两个系列。我收到以下错误消息: Error in plot.zoo(na.approx(diff(merge(n, d))), lty = c(1, 2), screen=1, : scatter plots only for univariate zoo series 如
plot(na.approx(cbind(diff(n),diff(d))),lty=c(1,2),screen=1)
其中n和d是两个系列。我收到以下错误消息:
Error in plot.zoo(na.approx(diff(merge(n, d))), lty = c(1, 2), screen=1, :
scatter plots only for univariate zoo series
如果我绘制n和d,而不是它们的差异,则相同的命令可以正常工作
如果我遗漏了什么,请帮忙
代码块:
library(zoo)
z <- read.zoo("C:\\Users\\lenovo\\Desktop\\qCombined\\pswiss.txt",header=TRUE,sep="", format="%m/ %d/ %Y" )
colnames(z) <- tolower(colnames(z))
ls <- log(z$inr.chf)
lpstar <- log(z$cpiswiss)
lp <- log(z$cpiind)
n <- ls + lpstar
d <- lp
提前感谢。您的代码似乎正常工作:什么是
n
和d
?你能给出一些可复制的代码吗?@Vincent:代码添加了。谢谢,嗯。完全相同的代码现在似乎正在工作!!您的代码似乎有效:什么是n
和d
?你能给出一些可复制的代码吗?@Vincent:代码添加了。谢谢,嗯。完全相同的代码现在似乎正在工作!!
cpiswiss cpiind inr.chf
2000-01-01 100.0000 100.00000 27.3661
2000-02-01 100.4016 99.76798 26.6971
2000-03-01 100.4016 100.69606 26.2205