R 与动物园的每日变化

R 与动物园的每日变化,r,time-series,zoo,R,Time Series,Zoo,我试图比较两个时间序列的波动性,观察如下情况: A系列与B系列的平均每日变化 A系列与B系列中最大的每日变化 每日变化的sd为A系列与B系列 A系列和B系列之间的最大差异 我是个新手,但似乎每个人都在为时间序列推荐动物园。我搜索了一遍又一遍,没有一个关于如何找到日复一日的变化的教程 现在我有这个: series<-c("A","B") dateStart="01-jan-15" DateEnd=format(Sys.Date(),format="%d-%b-%y") dfa=get

我试图比较两个时间序列的波动性,观察如下情况:

  • A系列与B系列的平均每日变化
  • A系列与B系列中最大的每日变化
  • 每日变化的sd为A系列与B系列
  • A系列和B系列之间的最大差异
我是个新手,但似乎每个人都在为时间序列推荐动物园。我搜索了一遍又一遍,没有一个关于如何找到日复一日的变化的教程

现在我有这个:

series<-c("A","B")  
dateStart="01-jan-15"
DateEnd=format(Sys.Date(),format="%d-%b-%y")
dfa=getMyData(series[1],dateStart,DateEnd)
dfb=getMyData(series[2],dateStart,DateEnd)
df <-merge(dfa,dfb,by="date")  
df$date<-as.Date(df$date)
df=rename(df, c("price.x"="A"))
df=rename(df, c("price.y"="B"))
df=df[ , !names(df) %in% c("series.x","series.y")]  
df$Difference=df$A-df$B
abc <- read.zoo(df)
summary(abc)

series让我们先创建数据

z.index = as.Date(12550:12554)
z1 = zoo(seq(1,3,6,4,3), order.by = z.index)
z2 = zoo(seq(2,7,4,8,3), order.by = z.index)
A系列与B系列的平均每日变化-两者之间的差异

mean(diff(z1)) - mean(diff(z2))
A系列与B系列中最大的每日变化-每个系列中最大

max(diff(z1)); max(diff(z2))
每日变化的sd为A系列与B系列

sd(diff(z1)); sd(diff(z2))
A系列和B系列之间的最大差异-如果您指的是绝对差异

max(abs(z1 - z2));