Question

我首先要描述一下我的问题：我想要做的是计算24小时窗口价格的峰值数，而我拥有半小时的数据。

我看过所有Stackoverflow帖子，例如这个： Rollapply for time series

（如果有更多相关内容，请告诉我们;））

由于我不能也可能也不应该上传我的数据，这是一个最小的例子：我模拟一个随机变量，将其转换为xts对象，并使用用户定义的函数来检测＆＃34;尖峰＆＃34; （在这种情况下当然很荒谬，但说明了错误）。

library(xts)
##########Simulate y as a random variable
y <- rnorm(n=100)
##########Add a date variable so i can convert it to a xts object later on
yDate <- as.Date(1:100)
##########bind both variables together and convert to a xts object
z <- cbind(yDate,y)
z <- xts(x=z, order.by=yDate)
##########use the rollapply function on the xts object:
x <- rollapply(z, width=10, FUN=mean)

该函数按预期工作：它取10个前面的值并计算平均值。

然后，我定义了一个自己的函数来找到峰值：峰值是局部最大值（高于它周围的m点）并且至少与时间序列的平均值+ h一样大。这导致：

find_peaks <- function (x, m,h){
  shape <- diff(sign(diff(x, na.pad = FALSE)))
  pks <- sapply(which(shape < 0), FUN = function(i){
    z <- i - m + 1
    z <- ifelse(z > 0, z, 1)
    w <- i + m + 1
    w <- ifelse(w < length(x), w, length(x))
    if(all(x[c(z : i, (i + 2) : w)] <= x[i + 1])&x[i+1]>mean(x)+h) return(i + 1) else return(numeric(0))
  })
  pks <- unlist(pks)
  pks
}

并且工作正常：回到示例：

plot(yDate,y)
#Is supposed to find the points which are higher than 3 points around them
#and higher than the average:
#Does so, so works.
points(yDate[find_peaks(y,3,0)],y[find_peaks(y,3,0)],col="red")

但是，使用rollapply()功能会导致：

x <- rollapply(z,width = 10,FUN=function(x) find_peaks(x,3,0))
#Error in `[.xts`(x, c(z:i, (i + 2):w)) : subscript out of bounds

我首先想到，也许错误发生是因为因为m参数，它可能会为第一个点运行一个负索引。遗憾的是，将m设置为零不会改变错误。

我也尝试过跟踪此错误，但找不到来源。任何人都可以帮助我吗？

编辑：尖峰图片：Spikes on the australian Electricity Market. find_peaks(20,50) determines the red points to be spikes, find_peaks(0,50) additionally finds the blue ones to be spikes (therefore, the second parameter h is important, because the blue points are clearly not what we want to analyse when we talk about spikes).

Answer 1

我还不完全确定你追求的是什么。假设给定一个数据窗口，您想要确定其中心是否大于窗口的其余部分，同时大于窗口+ h的平均值，那么您可以执行以下操作： / p>

peakfinder = function(x,h = 0){
  xdat = as.numeric(x)
  meandat = mean(xdat)
  center = xdat[ceiling(length(xdat)/2)]
  ifelse(all(center >= xdat) & center >= (meandat + h),center,NA)
}

y <- rnorm(n=100)
z = xts(y, order.by = as.Date(1:100))
plot(z)
points(rollapply(z,width = 7, FUN = peakfinder, align = "center"), col = "red", pch = 19)

虽然在我看来，如果中心点大于它的邻居，它也必然大于本地平均值，所以如果h >= 0则不需要这部分功能。如果您想使用时间序列的全局均值，只需将meandat的计算替换为预先计算的全局均值作为参数传递给peakfinder。

rollapply出错：下标越界

1 个答案: